ich habe ein Problem mit dem Auslesen eines Datumfeldes aus einer Accesdatenbank.
Das Datumsfeld sieht in Access so aus: 17.10.2007 00:00
Nun möchte ich in Excel die zugehörigen Daten möglichst mit Angabe des Datum auslesen:
Sub riscaserv()
' riscaserv Macro
' Macro recorded 16.10.2007 by xn04553
Dim DATUM As Date
DATUM = Sheets("riscaserv").Range("E2").Value
Range("C4").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=K:\Themes\THE07033\RisCaServ\basedata_history.mdb; _
DefaultDir=K:\Themes\THE07033\RisCaServ;DriverId=2" _
), Array("5;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), Destination:= _
Range("C4"))
.CommandText = Array( _
"SELECT PriceHistory.WKN, PriceHistory.Kurs, PriceHistory.PriceTime" & Chr(13) & "" & Chr(10) & _
_
"FROM `K:\Themes\THE07033\RisCaServ\basedata_history`.PriceHistory PriceHistory" & Chr(13) & "" _
& Chr(10) & "WHERE (PriceHistory.PriceTime={ts '2007-10-16 00:00:" _
, "00'})")
.Name = "Query from MS Access Database_5"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
Vielleicht kann mir jemand einen Tip geben wie ich die Variable DATUM definieren muß, bzw. was im SQL-Statement stehen muß.
Danke.
Grüsse