vba连接数据代码（excel/access/sqlserver)

最新推荐文章于 2024-09-23 15:05:16 发布

kilolo_w

最新推荐文章于 2024-09-23 15:05:16 发布

阅读量5k

点赞数

分类专栏： SQL 文章标签：数据 vba 数据库 sql server access

本文链接：https://blog.csdn.net/kilolo_w/article/details/53432866

版权

本文提供了三个VBA子程序，分别演示了如何使用VBA连接和查询Excel、Access和SQL Server数据库。通过建立ADODB.Connection对象，执行SQL语句，并将数据填充到Excel工作表中，展示了VBA在数据库操作中的应用。

摘要由CSDN通过智能技术生成

Sub excel连接数据库()

Dim Con As New ADODB.Connection
Dim strCon As String
Dim rs As ADODB.Recordset '设置记录集
Dim i, t
t = Timer

strCon = " Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source= D:\平台\报表\账户流水.xlsx" & _
";Extended Properties=""Excel 12.0;HDR=True"";"

strSQL = "select * from [账户流水$]"

Con.Open strCon

Set rs = Con.Execute(strSQL)

For i = 0 To rs.Fields.Count - 1 '逐个字段

Cells(3, i + 3) = rs.Fields(i).Name '取字段名字头放置在cell(3,3)

Next i

Range("c4").CopyFromRecordset rs

rs.Close

Con.Close

Set rs = Nothing

Set C