Aşağıdaki kodu deneyin. İhtiyacınıza göre düzenlersiniz.

Private Sub Komut0_Click()

    Dim xlApp, xlwkb As Object, strdb As Database, rstbl1, rstbl2 As Recordset, strPath As String



    Set strdb = CurrentDb()

    Set xlApp = CreateObject("Excel.Application")



    strPath = "C:\xxx/yyy/abc.xlsx"  'verilerinizin aktarılacağı Excel dosyanızın yolu

    Set xlwkb = xlApp.Workbooks.Open(strPath)



    Set rstbl1 = strdb.OpenRecordset("tbl_musteri", dbOpenDynaset) ' ilk tablo verilerinden recorset oluştur

    rstbl1.MoveFirst

    xlwkb.Worksheets(1).Range("A1").CopyfromRecordset frst  ' ilk tablo verilerini A1'den başlayarak excele aktar

    rstbl1.Close

    

    Set rstbl2 = strdb.OpenRecordset("tbl_personel", dbOpenDynaset) ' ikinci tablodan recorset oluştur

    rstbl2.MoveFirst

    xlwkb.Worksheets(1).Range("A20").CopyfromRecordset srst ' ikinci tablo verilerini A20'den başlayarak excele aktar

    rstbl2.Close



    xlwkb.Close True ' Excel dosyasını kaydet kapat

    xlApp.Quit



    Set xlwkb = Nothing

    Set xlApp = Nothing

    Set rstbl1 = Nothing

    Set rstbl2 = Nothing

    Set strdb = Nothing



End Sub