Datum aus Excel in MS Query übernehmen
13.01.2005 17:34:07
Ulf
ich möchte ein Datum (im Fotmat Text: JJJJMMTT) in MS query übernehmen und eine Abfrage in die AS400 machen.
Das Datum steht im Feld AU1.
Im Query wollte ich im Beispiel das Datum 20050113 abrufen.
Anbei mein aufgezeichnetes und modifiziertes Makro.
Was muss ich noch ändern?
Vielen Dank für die Hilfe.
Sub aktuell_query()
Dim Datum
Datum = Range("AU1")
Range("B7").Select
With Selection.QueryTable
.Connection = Array(Array( _
"ODBC;DRIVER={Client Access ODBC Driver (32-bit)};CONNTYPE=1;DESC=Client Access Express ODBC-Datenquelle;QAQQINILIB=;PKG=QGPL/DEFAULT" _
), Array( _
"(IBM),2,0,1,0,512;TRACEFILENAME=C:\Dokumente und Einstellungen\cornelsen\Eigene Dateien\IBM\Client Access\Service\Trace-Dateien" _
), Array( _
";SORTTABLE=;LANGUAGEID=ENU;XLATEDLL=;DFTPKGLIB=QGPL;DBQ=QGPL c70F;SYSTEM=192.168.1.100;" _
))
.CommandText = Array( _
"SELECT FSO.SDATE1, FSO.SORD, IIML01.IPROD, IIML01.I1LB10, IIML01.I1LB11, FSO.SPROD, RCML01.CKTXT, RCML01.CKNME, FSO.SQREQ, FSO.SCUST, FSO.SCORD, FSO.SWHS, FSO.SLOT, FSO.SQFIN, RCML01.CMTC, RCML01.CSAL" _
, _
"" & Chr(13) & "" & Chr(10) & "FROM KONSTANZ.C70F.FSO FSO, KONSTANZ.C70F.IIML01 IIML01, KONSTANZ.C70F.RCML01 RCML01" & Chr(13) & "" & Chr(10) & "WHERE FSO.SOMAND = IIML01.IMMAND AND FSO.SOMAND = RCML01.CMMAND AND FSO.SPROD = IIML01.IPROD AND FSO.SCUST = RCM" _
, _
"L01.CCUST AND ((FSO.SDATE1= 20050113) AND (FSO.SSTAT<>'0'))" & Chr(13) & "" & Chr(10) & "ORDER BY FSO.SDATE1" _
)
.Refresh BackgroundQuery:=False
End With
End Sub