Excel VBA读取 ACCESS 数据连接

最新推荐文章于 2025-07-05 14:52:02 发布

原创最新推荐文章于 2025-07-05 14:52:02 发布 · 1.3w 阅读

25 ·

CC 4.0 BY-SA版权

文章标签：

#Excel

本文介绍了一段使用VBA在Excel中操作Access数据库的代码示例，展示了如何连接数据库、执行SQL查询并将结果填充到Excel表格中。此代码适用于需要从Access数据库中批量读取数据并进行处理的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

随笔2

Sub access_test()

Dim CONN As Object
Dim RST As Object
Dim SQL As String

Sheets("Sheet1").Cells.Clear

Set 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).Name
Next


Sheets("Sheet1").[a2].CopyFromRecordset RST
CONN.Close
Set C0NN = Nothing

End Sub