如何用excel VBA运行access查询？

Sub RunAccessQuery()
    Dim db As Object
    Dim rs As Object
    Dim strSQL As String

    ' 设置Access数据库文件路径和查询语句
    Const strDBPath As String = "C:\Path\To\Your\Database.accdb"
    strSQL = "SELECT * FROM TableName"

    ' 创建Access数据库对象
    Set db = CreateObject("Access.Application")
    
    ' 打开Access数据库文件
    db.OpenCurrentDatabase strDBPath
    
    ' 执行查询
    Set rs = db.CurrentDb.OpenRecordset(strSQL)
    
    ' 将查询结果复制到Excel工作簿中
    Sheets("Sheet1").Range("A1").CopyFromRecordset rs
    
    ' 关闭记录集和数据库对象
    rs.Close
    db.Close

    ' 释放对象变量
    Set rs = Nothing
    Set db = Nothing
End Sub