如何在access/vba中导出自定义查询到excel

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM YourQueryName")

Dim row As Integer
row = 1

Do Until rs.EOF
    For col = 1 To rs.Fields.Count
        xlSheet.Cells(row, col).Value = rs.Fields(col - 1).Value
    Next col
    row = row + 1
    rs.MoveNext
Loop

xlBook.SaveAs "YourFilePath\YourFileName.xlsx"
xlBook.Close
xlApp.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing