ich rufe mit einer SQL Abfrage einzelne Datensätze aus einer Access-Datenbank ab und brauche die Daten in einem Excel-Blatt.
Die Abfrage funktioniert auch, aber leider nur im Einzelschritt Mode. Wenn ich das Programm normal laufen lasse, kommen die Daten erst, wenn das Programm schon wieder gestoppt hat. Ich habe schon Wartezeiten einprogrammiert, aber das hat auch nichts geholfen.
Sub GetAccessData()
Dim at As QueryTable
sqlstring1 = "SELECT Serie.SERIE_KEY, Serie.SERIE FROM " & Range("VBAMdbDat") & ".Serie Serie WHERE (Serie.SERIE='" & Range("VBASerie") & "') ORDER BY Serie.SERIE_KEY"
connstring = "ODBC;DSN=MS Access 97-Datenbank;DBQ=" & Range("VBAMdbDat") & ".mdb;DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
Application.Goto Reference:="Serienabfrage"
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
Destination:=Range("Serienabfrage"), Sql:=sqlstring1)
.Refresh
End With
...
End Sub
Hat jemand eine Idee woran es liegen könnte?
Fritz