Excel VBA读取 ACCESS 数据 连接

本文链接：https://blog.csdn.net/weixin_43278557/article/details/82856663

随笔2

Sub access_test()

Dim CONN As ObjectDim RST As ObjectDim SQL As StringSheets("Sheet1").Cells.ClearSet CONN = CreateObject("adodb.connection")Set RST = CreateObject("adodb.recordset")SQL = "select * from 律师函8月分"CONN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\新建 Microsoft Access 数据库.accdb" & ";ACE OLEDB:Database Password=" Set RST = CONN.Execute(SQL)For i = 1 To RST.Fields.Count    Cells(1, i) = RST.Fields(i - 1).NameNextSheets("Sheet1").[a2].CopyFromRecordset RSTCONN.CloseSet C0NN = Nothing

End Sub