access中vba创建sql，并导出excel文件

你可以使用以下代码来创建 SQL 查询并将结果导出到 Excel 文件中：

Sub ExportToExcel()
    '连接到数据库
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\MyDB.accdb;"
    cn.Open
    
    '创建 SQL 查询
    Dim sql As String
    sql = "SELECT * FROM MyTable"
    
    '执行 SQL 查询
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open sql, cn
    
    '导出结果到 Excel 文件
    Dim wb As Excel.Workbook
    Set wb = Excel.Workbooks.Add
    Dim ws As Excel.Worksheet
    Set ws = wb.Worksheets(1)
    ws.Range("A1").CopyFromRecordset rs
    wb.SaveAs "C:\MyExportedData.xlsx", Excel.XlFileFormat.xlOpenXMLWorkbook
    wb.Close
    cn.Close
End Sub

这段代码需要引用 Microsoft ActiveX Data Objects 库和 Microsoft Excel 库。你可以在 VBA 编辑器的菜单中选择“工具”->“引用”来添加这些引用。