Aus Access in bestehende Excel-Vorlage exportieren

[unknown]

Hallo NG,

ich habe folgende Frage:
Ist es möglich aus Access einzelne Datensätze einer Tabelle(n) in eine
bestehende Excel-Vorlage zu exportieren? Ich möchte bei diesem Export
mehrere gleiche Excel-Dateien generieren, die alle gleich strukturiert sind.
Die Excel-Vorlage hat 4 Arbeitsblätter.

Wenn es da eine Möglichkeit gibt, dann wäre ein kleiner Tipp sehr gut.

Viele Grüsse und Danke schon mal im Voraus,
Christian Thomé

[Josef Poetzl]

Hallo!

Post by unknown
Ist es möglich aus Access einzelne Datensätze einer Tabelle(n) in eine
bestehende Excel-Vorlage zu exportieren? Ich möchte bei diesem Export
mehrere gleiche Excel-Dateien generieren, die alle gleich strukturiert sind.
Die Excel-Vorlage hat 4 Arbeitsblätter.

Ja auf mehrere Arten.
In Deinem Fall ist vermutlich die Verwendung von einem Excel-Objekt
sinnvoll.

Grundprinzip:
'zum Programmieren: (inkl. Verweis aufExcel-Lib)
'Dim xlApp As Excel.Application
'Dim xlBook As Excel.Workbook
'Dim xlSheet As Excel.Worksheet

'Für den fertigen Code: Late Binding
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

Dim rstExport As DAO.Recordset

'Excel-Objekt
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add("DeinTemplate")
Set xlSheet = xlBook.Worksheets("DeinImportSheet")

'...

'Daten mittels Recordset übertragen
Set rstExport = CurrentDb.OpenRecordset("SELECT * From TabelleXYZ")
xlSheet.Cells(1, 1).CopyFromRecordset rstExport
rstExport.Close
Set rstExport = Nothing

'...
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing


mfg
Josef

[unknown]

Hallo Josef,

super vielen Dank für Deine Antwort, die sehr ausführlich ist.

Ich werde das morgen mal ausprobieren.

Viele Grüsse,
Christian

Post by Josef Poetzl
Hallo!

Post by unknown
Ist es möglich aus Access einzelne Datensätze einer Tabelle(n) in eine
bestehende Excel-Vorlage zu exportieren? Ich möchte bei diesem Export
mehrere gleiche Excel-Dateien generieren, die alle gleich strukturiert sind.
Die Excel-Vorlage hat 4 Arbeitsblätter.

Ja auf mehrere Arten.
In Deinem Fall ist vermutlich die Verwendung von einem Excel-Objekt
sinnvoll.
'zum Programmieren: (inkl. Verweis aufExcel-Lib)
'Dim xlApp As Excel.Application
'Dim xlBook As Excel.Workbook
'Dim xlSheet As Excel.Worksheet
'Für den fertigen Code: Late Binding
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim rstExport As DAO.Recordset
'Excel-Objekt
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add("DeinTemplate")
Set xlSheet = xlBook.Worksheets("DeinImportSheet")
'...
'Daten mittels Recordset übertragen
Set rstExport = CurrentDb.OpenRecordset("SELECT * From TabelleXYZ")
xlSheet.Cells(1, 1).CopyFromRecordset rstExport
rstExport.Close
Set rstExport = Nothing
'...
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
mfg
Josef
--
EPT: (Access Error Prevention Table) http://access.joposol.com/
FAQ: (Access-FAQ von Karl Donaubauer) http://www.donkarl.com/