Inhalt der Abfrage in mehrere Tabellenblätter kopieren

[Tante]

Hallo zusammen,

ich würde gerne den Inhalt einer Abfrage in eine bestehendes Excel Dokument in mehreren Tabellen einfügen.
Ich habe den folgenden Code benutzt und dieser funktioniert soweit mit einem Tabellenblatt. Wenn ich das versuche zu erweitern mit zum Beispiel ("Tabellenblatt1", "Tabellenblatt2") funktioniert es nicht. Hat jemand eine Idee wie ich das umsetzen könnte? Es wären ca. 12 Tabellenblätter.

Sub ExcelExport()
    Dim xlApp As Object ' Excel.Application
    Dim xlBook As Object ' Excel.Workbook
    Dim xlSheet As Object ' Excel.Worksheet
    Dim rst As DAO.Recordset

    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Open("c:\data\.....Gesamt_kumm.xlsx")
    Set xlSheet = xlBook.sheets("Tabellenblatt1")
    Set rst = CurrentDb.OpenRecordset("AbfrageSv1")
    xlSheet.Range("A3").CopyFromRecordset rst
    rst.Close
    Set rst = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

Vielen Dank


Gruß Trama

[DF6GL]

Hallo,

es muss halt der relevante Code

    Set xlBook = xlApp.Workbooks.Open("c:\data\.....Gesamt_kumm.xlsx")
    Set xlSheet = xlBook.sheets("Tabellenblatt1")
    Set rst = CurrentDb.OpenRecordset("AbfrageSv1")
    xlSheet.Range("A3").CopyFromRecordset rst
    rst.Close

12 mal hintereinander (z. B. in einer Schleife) mit angepassten Namen abgearbeitet werden....


Eine Sheet-Referenz auf mehrere Sheets gleichzeitig kann nicht funktionieren...

[Tante]

Danke für den Tipp Franz, habe es in einer For/Next Schleife integriert und funktioniert einwandfrei. Vielen Dank!

Gruß Trama