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
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...
Danke für den Tipp Franz, habe es in einer For/Next Schleife integriert und funktioniert einwandfrei. Vielen Dank!
Gruß Trama