Abfragen/temp Tabellen aus Access in Excel exportieren

Hi,

das Problem läßt sich aus Access herauslösen, wenn du ein VBA-Modul wie unten beschrieben benutzt.

mfg


Public Sub test()
Dim xlApp As Object ' Excel.Application
Dim xlBook As Object ' Excel.Workbook
Dim xlSheet As Object ' Excel.Worksheet

Dim rst As DAO.Recordset

'Excel-Objekt öbffnen und Workbook hinzufügen
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add()

'Wert aus 1.Abfrage in Zelle A4 kopieren
Set xlSheet = xlBook.Worksheets(1)
Set rst = CurrentDb.OpenRecordset("Abfrage1")
xlSheet.Range("A4").CopyFromRecordset rst
rst.Close

'Wert aus 2.Abfrage in Zelle C4 kopieren
Set rst = CurrentDb.OpenRecordset("Abfrage2")
xlSheet.Range("C4").CopyFromRecordset rst
rst.Close

'Objekte schließen
Set rst = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub

Danke für die schnelle Antwort.

Ich habe den Code einfach mal in meine Anwendung unverändert hineinkopiert.
Beim Ausführen bekomme ich dann die Fehlermeldung:

Fehler beim Kompilieren:
Benutzerdefinierter Typ nicht definiert

Dabei wird die Programmzeile

Dim rst As DAO.Recordset

blau hinterlegt.

Woran liegt das denn?

Hat sich erledigt!
Wer suchet der findet.

Ich hatte die "Microsoft DAO 3.6 Object Library" nicht aktiviert.
Danach funktioniert das script.
Vielen Dank!!!

Wie sieht denn deine Abfrage aus? Der Laufzeitfehler '3078' sagt nur, das es die Tabelle nicht gibt. Das Problem muß also in der Abfrage stecken bzw. im Aufruf.

Tut mir leid, aber mit der Aussage kann ich nichts anfangen. Schreib doch mal das SQL der Abfrage und den Aufruf des OpenRecordset.

Wie ist es mit der Zeit zwischen auf Aufruf und Ergebnis der Abfrage, gibt es evtl. ein Timeout-Problem?

Hallo zusammen,
kann ich das Script auch dazu benutzen eine Abfrage mit mehr als einem Wert in Excel zu exportieren?
Wenn ja, wie mach ich das?

Danke im Voraus!

ViSiT

@visit
Laut Aufruf der VBA-Hilfe in Excel und Eingabe des Suchbegriffs "CopyFromRecordSet" könnte es in Excel 2002 so gehen:
[Zitat]
CopyFromRecordset-Methode
Siehe auch Betrifft Beispiele Zusatzinfo
Kopiert den Inhalt eines ADO- oder DAO-Recordset-Objekts in ein Arbeitsblatt, wobei an der linken oberen Ecke des angegebenen Bereichs begonnen wird. Enthält das Recordset-Objekt Felder mit OLE-Objekten, schlägt diese Methode fehl.

Ausdruck.CopyFromRecordset(Data, MaxRows, MaxColumns)

Ausdruck Erforderlich. Ein Ausdruck, der ein Range-Objekt zurückgibt.

Data Erforderlicher Variant-Wert. Das Recordset-Objekt, das in den Bereich kopiert werden soll.

MaxRows Optionaler Variant-Wert. Die maximale Anzahl von Datensätzen, die in das Arbeitsblatt kopiert werden sollen. Wenn Sie dieses Argument nicht angeben, werden alle Datensätze im Recordset-Objekt kopiert.

MaxColumns Optionaler Variant-Wert. Die maximale Anzahl von in das Arbeitsblatt zu kopierenden Feldern. Wenn Sie dieses Argument nicht angeben, werden alle Felder im Recordset-Objekt kopiert.

Anmerkung
Das Kopieren beginnt mit der aktuellen Zeile des Recordset-Objekts. Nach dem Kopieren hat die EOF-Eigenschaft des Recordset-Objekts den Wert True.

Beispiel
In diesem Beispiel werden die Feldnamen von einem DAO-Recordset-Objekt in die erste Zeile eines Arbeitsblattes kopiert und fett formatiert. Anschließend wird in diesem Beispiel der Datensatz in das Arbeitsblatt kopiert, beginnend mit Zelle A2.

For iCols = 0 to rs.Fields.Count - 1
ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Next
ws.Range(ws.Cells(1, 1), _
ws.Cells(1, rs.Fields.Count)).Font.Bold = True
ws.Range("A2").CopyFromRecordset rs
[Zitat Ende]

Leider hast Du nicht gepostet, welche Excel/Accessversionen Du verwendest - ich könnte sonst noch ein paar Bekannte anrufen, die eventuell Deine Version im Einsatz haben und um kurzes Nachgucken in der Hilfe bitten.
BTW, auf welche Art hast Du denn versucht, Dich mit Deiner Frage auseinanderzusetzen?

Grüße Biber

danke für die schnelle antwort, aber ich hab es mit einem makro gelöst:

Aktion: TransferArbeitsblatt
Transfertyp: Exportieren
Dateiformat: Microsoft Excel 8-10
Tabellenname: (Tabelle oder Abfrage)
Dateiname: (Zieldatei mit Pfad)
Bereich: (Name des Tabellenblatts)