將兩個 Access 表導出到同一個 Excel 選項卡

Question

我想知道是否可以將兩個訪問表導出到同一個 Excel 選項卡，而不僅僅是工作表。 我正在嘗試在同一頁面上加入兩個表。 有誰知道如何做到這一點或任何其他可以提供幫助的解決方案？

謝謝！

Answer 1

如果表之間有關系，則可以在 access 中創建查詢，然后導出查詢

Answer 2

由於表不相關，請在 Access VBA CopyFromRecordset中使用以將表輸出到 Excel 工作表的特定范圍。 您只需要引用最左上角的單元格（因此請務必考慮表格的列和行，以免數據重疊）：

Public Sub acToxlRecordsets()

    Dim xlApp As Object, xlwkb As Object
    Dim db As Database
    Dim frst As Recordset, srst As Recordset    
    Dim strPath As String

    Set db = CurrentDb()
    Set xlApp = CreateObject("Excel.Application")

    strPath = "C:\Path\To\Excel\Workbook.xlsx"

    Set xlwkb = xlApp.Workbooks.Open(strPath)

    ' OPEN FIRST RECORDSET
    Set frst = db.OpenRecordset("FirstTable", dbOpenDynaset)
    frst.MoveFirst

    ' OUTPUT RECORDSET (SELECT TOP LEFT CORNER --CHANGE SHEET AS NEEDED)         
    xlwkb.Worksheets(1).Range("A1").CopyfromRecordset frst
    frst.Close

    ' OPEN SECOND RECORDSET
    Set frst = db.OpenRecordset("SecondTable", dbOpenDynaset)
    srst.MoveFirst

    ' OUTPUT RECORDSET (SELECT TOP LEFT CORNER --CHANGE SHEET AS NEEDED)        
    xlwkb.Worksheets(1).Range("J1").CopyfromRecordset srst
    srst.Close

    ' SAVE AND CLOSE EXCEL WORKBOOK
    xlwkb.Close True
    xlApp.Quit

    Set xlwkb = Nothing
    Set xlApp = Nothing
    Set frst = Nothing
    Set srst = Nothing
    Set db = Nothing   

End Sub