Ich habe hier ein Macro mit welchem ich Daten aus einer Accesdatenbank lesen will.
Dieses Macro läuft sehr gut.
Nur habe ich beim Aufzeichnen ein Datum eingegeben welches aber aus meiner Zieltabelle aus A1 gelesen werden soll.
Kann mann hierzu den Code umschreiben und wenn ja wie?
Wer kann mir hierzu helfen?
Private Sub CommandButton1_Click()
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Microsoft Access-Datenbank;DBQ=C:\S\Ab.mdb;DefaultDir=C:\S;DriverId=25;FIL=MS _
Acce" _
), Array("ss;MaxBufferSize=2048;PageTimeout=5;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT T_Datenblatt.Datum, T_Datenblatt.Schicht_Art, T_Datenblatt.Maschine, _
T_Datenblatt.Artikel, T_Datenblatt.Betriebsstunden, T_Datenblatt.Ausfallzeit_Maschine, T_Datenblatt.Anzahl_Schichtführer, T_" _
, _
"Datenblatt.Anzahl_Schichten, T_Datenblatt.Ausfallzeit_Personal, T_Datenblatt. _
Endbestand, T_Datenblatt.Anfangsbestand, T_Datenblatt.Anzahl_Personal, T_Datenblatt.Schichtproduktion, T_Datenblatt.Fehlers" _
, _
"chinken, T_Datenblatt.Abschnitt_Würfel, T_Datenblatt.Schwund, T_Datenblatt.Sonstiges, _
T_Datenblatt.SchichtKZ" & Chr(13) & "" & Chr(10) & "FROM `P:\S\Ab`.T_Datenblatt T_Datenblatt" & Chr(13) & "" & Chr(10) & "WHERE (T_Datenblatt." _
, "Datum={ts '2009-04-17 00:00:00'})")
.Name = "Abfrage von Microsoft Access-Datenbank"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
Danke für Eure Hilfe
Grüße Lisa