Office: (Office 2003) Export aus Access nach Excel in mehreren tabellenblättern

Hallo zusammen,

ich bräuchte eure hilfe und wäre dankbar über einen hinweis.

mein problem ist, dass ich automatisierten export von access nach excel vornehmen möchte.ich habe eine abfrage die viele verschiedene kunden beinhaltet. der reine export von der abfrage nach excel geht auch gut. Die anforderung an mich ist es, dass pro kunde die daten in einen seperaten tabelle exportiert werden sollen. dazu muss ich auch noch sagen, dass ich keine erfahrung mit vba habe.


Private Sub Befehl0_Click()
On Error GoTo Err_Befehl0_Click

CurrentDb.Execute "tmp_qyr-Output"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel3, "tmp_tbl-Output", "H:\Export-Test.xls", False, "Tabelle1!A1:R1"

DoCmd.DeleteObject acTable, "tmp_tbl-Output"

Exit_Befehl0_Click:
Exit Sub

Err_Befehl0_Click:
MsgBox Err.Description

DoCmd.DeleteObject acTable, "tmp_tbl-Output"
Resume Exit_Befehl0_Click

End Sub


Gibt es einen befehl wo nach neuer kunden-id die daten in eine neue tabelle geschrieben wird?


dankeschön!

gruss

esma

:)

 

Dann würde doch so etwas passen (mit MAXROWS=1): Acc2003 - Export Splitten

 

danke für deinen hinweis.

leider wüsste ich jetzt nicht wie ich das bei mir einbauen könnte.

wo und wie könnte ich das den platzieren?

 

Da, wo du es bisher auch machst: beim Button0_Click.

Die Geschichte ist deshalb etwas aufwendiger, weil die "klassische" Exportlösung mit Docmd.TransferSpeadsheet acExport nicht erlaubt, mehrere Arbeitsblätter in derselben Arbeitsmappe zu erzeugen. Daher müssen die Daten in ein Recordset geladen und von dort per Excel-Automation mit CopyfromRecordset nach Excel geschafft werden.

 

VBA-Code kann man durch Copy&Paste in eine eigene Prozedur, die Du erst noch bestimmen und erstellen müsstest, einfügen.

Etwas nachdenken und ggf. einige kleine Anpassungen vornehmen müsste man auch: Tabellen heißt Arbeitsblätter in einer Arbeitsmappe oder Arbeitsmappe pro Kunde?

@Martin: Kleine Korrektur, siehe Tranferspreadsheet - Tabellenblätter gezielt ansprechen: Man kann mit TransferSpreadsheet sehr wohl mehrere Blätter in einer Mappe anlegen. Allerdings benötigt man zu Exportieren damit jeweils ein Objekt (Tabelle/Abfrage). Dessen Erzeugung jeweils in einer Schleife ist kaum weniger aufwändig als die Verwendung von Automation und CopyFromRecordset, insbesondere dann, wenn sich noch Zusatzwünsche an die Mappen ergeben.

 

danke an euch beiden bezüglich der info.

da ich ja nichts vba zu tun habe, fehlt es mir schwer diese anpassungen vorzunehmen. aber ich werde es mal versuchen.

@Eberhard: tabellen heißt arbeitsblätter in einer arbeitsmappe

 

Du müsstest versuchen, den Code zu verstehen. Das beginnt bei einzelnen Befehlen (Markieren und F1 für Hilfe drücken), und daraus kann man sich den Sinn des Ablaufes zusammensetzen. (Das ist einfacher, als Frauen zu verstehen.)

Achtung: CopyFromRecordset ist Excel-VBA. Also muss ein Verweis auf Excel gesetzt sein oder Du schlägst gezielt in Excel nach.

 

ohne erfolg

danke für die hinweise

 

... sehr aussagekräftig. Selbst die F1-Taste versagt?
Dann hilft wohl nur noch Notschlachtung.

 

die taste f1 hat mir auch grad nicht viel weiter geholfen ;-)


ich habe mal eine testdatenbank erstellt. ist es möglich mir darüber hinweise zu geben?

dankeschön!