在VBA中用循环将Access表单中的查询导出到Excel

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")

Dim xlBook As Object
Set xlBook = xlApp.Workbooks.Add

Dim queryName As String
queryName = "YourQueryName" '将"YourQueryName"替换为实际的查询名称

Dim xlSheet As Object
Set xlSheet = xlBook.Worksheets(1)

With xlSheet
    .Range("A1").Value = "Column1" '将"Column1"替换为实际的列标题
    .Range("B1").Value = "Column2" '将"Column2"替换为实际的列标题
    
    Dim rs As Object
    Set rs = CurrentDb.OpenRecordset(queryName)
    
    Dim row As Long
    row = 2
    
    Do Until rs.EOF
        .Range("A" & row).Value = rs.Fields("Column1").Value '将"Column1"替换为实际的列名
        .Range("B" & row).Value = rs.Fields("Column2").Value '将"Column2"替换为实际的列名
        
        rs.MoveNext
        row = row + 1
    Loop
    
    rs.Close
    Set rs = Nothing
End With

xlBook.SaveAs "C:\Path\To\Your\File.xlsx" '将"C:\Path\To\Your\File.xlsx"替换为实际的文件路径和名称
xlBook.Close
Set xlBook = Nothing

xlApp.Quit
Set xlApp = Nothing