Abfrage in Excel aus Access Datenbank ü. Makrorec.
04.02.2004 10:23:26
Ugur
ich habe mal versucht über Makro-Aufzeichnen eine Abfrage in Excel über MS Query aus Access zu machen. Die Auswertung funktioniert auch wunderbar, nur möchte ich nun die Abfrage erweitern und mich in dieser Abfrage auf Excel-Zellen beziehen:
Sub AutomatischerAbgleich()
'
' AutomatischerAbgleich Makro
' Makro am 22.01.2004 von Ugur aufgezeichnet
'
'
Sheets("Grunddaten").Select
Selection.Copy
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Range("C5").Select
Application.CutCopyMode = False
Selection.Copy
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Range("C5").Select
Application.CutCopyMode = False
Selection.Copy
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=SAP Auswertesystem TD ML;Description=SAP Auswertesystem TD ML;UID=********;APP=Microsoft® Query;WSID=********;DATABASE=SAP;" _
), Array("LANGUAGE=Deutsch;Trusted_Connection=Yes")), Destination:=Sheets( _
"Gesamt").Range("A20"))
.CommandText = Array( _
"SELECT SD_AUFTRAG_UND_RETOURE.Landkurzzeichen, SD_AUFTRAG_UND_RETOURE.Leadtime_return_goods, SD_AUFTRAG_UND_RETOURE.Leadtime_return_goods_end" & Chr(13) & "" & Chr(10) & "FROM SAP.dbo.SD_AUFTRAG_UND_RETOURE SD_AUFTRAG_UND_RETOUR" _
, _
"E" & Chr(13) & "" & Chr(10) & "WHERE (SD_AUFTRAG_UND_RETOURE.Landkurzzeichen='DE')
Und an dieser Stelle möchte ich anstatt 'DE' die Zelle B5 aus Grunddaten benutzen. Könnt Ihr mir helfen?
Anzeige