Ist es möglich eine Variable an ein SQL Statement zu übergeben?
Hier mein Quelltext:
Sub Makro1()
'
' Makro1 Makro
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access 97-Datenbank;DBQ;DefaultDir=C:\Programme\DiagZen;DriverId=25;FIL=MS Access;MaxBufferSize=512;" _
), Array("PageTimeout=5;")), Destination:=Range("A1"))
.Sql = Array( _
"SELECT Meldungen_030.Zeit, Meldungen_030.Text" & Chr(13) & "" & Chr(10) & "FROM `H:\Dokumente\Diag_Daten`.Meldungen_030 Meldungen_030" & Chr(13) & "" & Chr(10) & "WHERE (Meldungen_030.Zeit>={ts '2002-04-25 01:52:07'} And Meldungen_030.Zeit<={ts '2002-04-25" _
, " 03:52:00'})" & Chr(13) & "" & Chr(10) & "ORDER BY Meldungen_030.Zeit")
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = True
.SaveData = True
End With
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.SmallScroll Down:=-3
ActiveWindow.View = xlNormalView
End Sub
Ich wollte eine eigene Tabelle auswählen und eigene Spalten und nicht die die im Quellcode steht. Anstatt Meldung_30 wollte ich eine Tabelle auswählen. Ist das irgendwie Möglich?
Danke vielmals!
MfG Marcel