使用VBA将数据从MS Access导出到Excel

Sub ExportRecordsetToExcel(outputPath As String, rs As ADODB.Recordset)
\'exports the past due report in correct formattig to the specified path

On Error GoTo handler:

    Const xlUP              As Long = -4162 \'excel constants if used need to be referenced manually!
    Dim oExcel              As Object
    Dim oBook               As Object
    Dim oSheet              As Object
    Dim row                 As Long

    If rs.BOF And rs.EOF Then
        Exit Sub \'no data to write
    Else
        rs.MoveFirst
    End If

    row = 1

    Set oExcel = CreateObject(\"Excel.Application\")
    oExcel.Visible = False \'toggle for debugging

    Set oBook = oExcel.Workbooks.Add \'default workbook has 3 sheets

    \'Add data to cells of the first worksheet in the new workbook.
    Set oSheet = oBook.worksheets(1)

    Do While rs.EOF = False

        oSheet.range(\"A\" & row).value = rs.Fields(\"MyField\").value

        \'increase row
        row = row + 1
    Loop

    oBook.SaveAs (outputPath)

\'tidy up, dont leave open excel process
    Set oSheet = Nothing
    Set oBook = Nothing
    oExcel.Quit
    Set oExcel = Nothing
Exit Sub
handler:

    \'clean up all objects to not leave hanging processes
End Sub