如何从VBA Excel返回多条SELECT语句

Sub ExecuteSelectQueries()
    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\Your\Database.accdb"
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 定义多个SELECT语句
    Dim queries(1 To 3) As String
    queries(1) = "SELECT * FROM Customers"
    queries(2) = "SELECT * FROM Orders"
    queries(3) = "SELECT * FROM Products"
    
    ' 执行每个SELECT语句并输出结果
    For i = 1 To 3
        strSQL = queries(i)
        
        ' 执行查询
        rs.Open strSQL, conn
        
        ' 输出结果到Excel工作表
        With ThisWorkbook.Sheets("Sheet1")
            .Cells(1, 1).Offset((i - 1) * 20).CopyFromRecordset rs
        End With
        
        rs.Close
    Next i
    
    ' 清理对象
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    
    MsgBox "查询完成！"
End Sub