Hallo @all!
Folgende Herausforderung (Office 2010):
In Access wird eine Datenmenge per SQL aus einer Datenbank abgefragt. Die Datenmenge beinhaltet Buchhaltungskonten mit unterschiedlichen Währungen. Bis hier alles gut!
Jetzt geht es darum, die Daten nach Excel zu exporieren und zwar in unterschiedliche Sheets. Z.B.: "Ausgangsdaten", "EUR", "GBP", "USD" etc.
Bis hier hin funktioniert auch noch alles und die Sheets werden korrekt erstellt. Jetzt kommt aber mein Problem. Ich muss bei der Verteilung der Daten, also dem Durchlaufen des Recordsets, zwischen den Sheets hin und her wechseln. Das Aktivieren funktioniert auch, allerdings wird im konkreten Fall nur noch das Sheet "90801" beschrieben, egal welches Sheet aktiviert ist.
Das Beschreiben der Sheets ist folgendermaßen realisiert:
Ich vermute, das liegt daran, dass ich nur mit einem Object arbeite, richtig?
Wie kann ich das Problem nun elegant lösen, so dass ich mehrere Sheets habe, beliebig zwischen den Sheets wechseln und diese befüllen kann.
Die Anzahl der Sheets steht im Vorwege übrigens nicht fest. Es können mal drei Währungen, mal 10 Währungen in den Basisdaten vorhanden sein.
Bedanke mich im Voraus für Tipps...
Viele Grüße
André
Folgende Herausforderung (Office 2010):
In Access wird eine Datenmenge per SQL aus einer Datenbank abgefragt. Die Datenmenge beinhaltet Buchhaltungskonten mit unterschiedlichen Währungen. Bis hier alles gut!
Jetzt geht es darum, die Daten nach Excel zu exporieren und zwar in unterschiedliche Sheets. Z.B.: "Ausgangsdaten", "EUR", "GBP", "USD" etc.
Quellcode
- ' Neue Excel Instanz öffnen
- Dim objExcel As Excel.Application
- Set objExcel = New Excel.Application
- objExcel.Visible = True
- ' Neues Excel Workbook öffnen
- Dim objExcelWorkbook As Excel.Workbook
- Set objExcelWorkbook = objExcel.Workbooks.Add
- 'Worksheets für Ausgangsdaten und Konto 90801 erstellen
- Dim objWorksheet As Excel.Worksheet
- ' Ausgangsdaten
- Set objWorksheet = objExcelWorkbook.Worksheets.Add
- objWorksheet.Name = "Ausgangsdaten"
- ' Konto 90801
- Set objWorksheet = objExcelWorkbook.Worksheets.Add
- objWorksheet.Name = "90801"
Bis hier hin funktioniert auch noch alles und die Sheets werden korrekt erstellt. Jetzt kommt aber mein Problem. Ich muss bei der Verteilung der Daten, also dem Durchlaufen des Recordsets, zwischen den Sheets hin und her wechseln. Das Aktivieren funktioniert auch, allerdings wird im konkreten Fall nur noch das Sheet "90801" beschrieben, egal welches Sheet aktiviert ist.
Das Beschreiben der Sheets ist folgendermaßen realisiert:
Ich vermute, das liegt daran, dass ich nur mit einem Object arbeite, richtig?
Wie kann ich das Problem nun elegant lösen, so dass ich mehrere Sheets habe, beliebig zwischen den Sheets wechseln und diese befüllen kann.
Die Anzahl der Sheets steht im Vorwege übrigens nicht fest. Es können mal drei Währungen, mal 10 Währungen in den Basisdaten vorhanden sein.
Bedanke mich im Voraus für Tipps...
Viele Grüße
André
