VBA中的SQL查询，Excel中存储在多个单元格中的代码

Sub ExecuteSQLQuery()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim i As Integer
    
    ' 创建数据库连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置数据库连接字符串
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"
    
    ' 打开数据库连接
    conn.Open
    
    ' 创建结果集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 设置SQL查询语句
    strSQL = "SELECT * FROM TableName"
    
    ' 执行SQL查询
    rs.Open strSQL, conn
    
    ' 将查询结果存储在Excel的多个单元格中
    i = 1
    Do Until rs.EOF
        Range("A" & i).Value = rs.Fields("Column1").Value
        Range("B" & i).Value = rs.Fields("Column2").Value
        ' 继续存储其他列的数据...
        i = i + 1
        rs.MoveNext
    Loop
    
    ' 关闭结果集和数据库连接
    rs.Close
    conn.Close
    
    ' 释放对象变量
    Set rs = Nothing
    Set conn = Nothing
End Sub