Hallo zusammen,
ich bin ein ziemlicher Neuling in Access und habe ein Problem: Ich definiere mir eine neue Abfrage, um diese dann in Excel zu exportieren.
Das Funktioniert ganz gut, solange die Abfragen einfach Art sind, wenn die Auddrücke aber komplizierter werden, dann ist meine Excel-Tabelle leer. Wenn ich mir vorher meine Abfrage anzeigen lasse, dann dauert es einen Moment, die Ergebnisse sind aber korrekt.
Gibt es eine Funktion, damit VBA wartet, bis eine Anweisung fertig ist? Vielleicht mache ich auch einen anderen Fehler, hier mein Code:
'Erstellen der zu exportierenden Abfrage
Dim sSQL As String
Dim qdf As DAO.QueryDef
sSQL = "SELECT Standort.Index AS Standort\_Index, Standort.Strasse, Standort.PLZ AS Standort\_PLZ, Standort.Ort AS Standort\_Ort, Vertragspartner.Name, Vertragspartner.PLZ AS Vertragspartner\_PLZ, Vertragspartner.Ort AS Vertragspartner\_Ort, Vertrag.Index AS Vertrag\_Index, Vertrag.Vertragsart, Vertrag.Automatentyp, Vertrag.RegTeam FROM Vertragspartner INNER JOIN (Standort INNER JOIN Vertrag ON Standort.Index=Vertrag.Standort) ON Vertragspartner.ID=Vertrag.Partner;"
On Error Resume Next
DoCmd.DeleteObject acQuery, "ExcelExport"
Set qdf = CurrentDb.CreateQueryDef("ExcelExport", sSQL)
DoCmd.OpenQuery "ExcelExport"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "ExcelExport", ".\test.xls", True
Rem Öffnen der erstellten Datei
Dim WWApp As Excel.Application
Dim ExWB As Excel.Workbook
Set WWApp = CreateObject("excel.application")
WWApp.Application.Visible = True
Set ExWB = WWApp.Workbooks.Open(".\test.xls")
Vielleicht kann mir jemand helfen…
Gruß,
Matthias