access的VBA代码：新建一个查询并导出查询结果到excel

以下是在 Access 中使用 VBA 代码新建一个查询并导出查询结果到 Excel 的示例：

Sub exportQueryToExcel()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    Dim excelApp As Object
    Dim excelBook As Object
    Dim excelSheet As Object
    Dim i As Integer
    Dim j As Integer

    ' 设置数据库文件路径和查询名称
    Set db = CurrentDb
    Set qdf = db.QueryDefs("your_query_name")

    ' 执行查询
    Set rst = qdf.OpenRecordset()

    ' 新建 Excel 应用程序
    Set excelApp = CreateObject("Excel.Application")

    ' 新建 Excel 工作簿
    Set excelBook = excelApp.Workbooks.Add()

    ' 新建 Excel 工作表
    Set excelSheet = excelBook.Worksheets(1)

    ' 将查询结果导出到 Excel 工作表
    For i = 0 To rst.Fields.Count - 1
        excelSheet.Cells(1, i + 1).Value = rst.Fields(i).Name
    Next i

    For i = 0 To rst.RecordCount - 1
        For j = 0 To rst.Fields.Count - 1
            excelSheet.Cells(i + 2, j + 1).Value = rst.Fields(j).Value
        Next j
        rst.MoveNext
    Next i

    ' 保存 Excel 工作簿
    excelBook.SaveAs "C:\test.xls"

    ' 关闭 Excel 应用程序
    excelApp.Quit

    ' 释放对象引用
    Set rst = Nothing
    Set qdf = Nothing
    Set db = Nothing
    Set excelSheet = Nothing
    Set excelBook = Nothing
    Set excelApp = Nothing
End Sub

在上面的代码中，需要替换以下内容：

- `your_query_name`：要导出的查询名称。
- `"C:\test.xls"`：导出的 Excel 文件路径和名称。

此外，需要确保 Microsoft Office 中已安装了 Excel 应用程序。