Hallo,
ich habe eine Abfrage über externe Dateien mit dem Makrorecorder aufgenommen. Diese würde ich gern mit dem Auswahlkriterium Datum, variabel verändern.
Mein Problem(e):
Wie bekomme ich die Variablen eingebaut, diese stehen in Tabelle 1 Zelle A1 und A2?
Wie kann die Variable in das richtige Format konvertiert werden?
Danke
Stefan
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Microsoft Access-Datenbank;DBQ=C:\Dokumente und Einstellungen\Stefan\Desktop\meldungen_neu.mdb;DefaultDir=C:\Dokumen" _
), Array( _
"te und Einstellungen\Stefan\Desktop;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
)), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT `meldung Abfrage`.Getriebe_Typ, `meldung Abfrage`.StückNr, `meldung Abfrage`.List_Nr, `meldung Abfrage`.Datum" & Chr(13) & "" & Chr(10) & "FRO" _
, _
"M `meldung Abfrage` `meldung Abfrage`" & Chr(13) & "" & Chr(10) & "WHERE (`meldung Abfrage`.Datum>={ts '2007-11-26 00:00:00'} And `meldung Abfrage`._" _
, "Datum .Name = "Abfrage von Microsoft Access-Datenbank"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub