Excel VBA Access SQL语句

Sub QueryAccessDatabase()
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
    Dim dbPath As String
    
    ' 设置数据库路径
    dbPath = "C:\path\to\your\database.accdb"
    
    ' 创建ADODB连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 打开数据库连接
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
    
    ' 编写SQL查询语句
    sql = "SELECT * FROM YourTable WHERE SomeField = 'SomeValue'"
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行SQL查询并获取结果
    rs.Open sql, conn
    
    ' 将查询结果输出到Excel工作表
    If Not rs.EOF Then
        Sheet1.Range("A2").CopyFromRecordset rs
    End If
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 清理对象
    Set rs = Nothing
    Set conn = Nothing
End Sub