Guten Morgen zusammen,
ich habe noch ein Problem.
Zum Übertragen von Daten habe ich mir ein Makro aufgezeichnet, das auch super läuft. In dieser Aufzeichnug wird natürlich der Ort der Datei, aus der die Daten kommen, als kompletter Pfad angegeben. Nun möchte ich den Pfad durch eine Variable ersetzen, bekomme das irgendwie aber nicht gebacken.
Hoffe, Ihr könnt mir helfen.
1. Code aus Aufzeichnung, 2. Code, so soll es aussehen
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=F:\001 Arbeitsordner\A 01 \001 V" _
, _
"g\Sd\Ast.mdb;Mode=ReadWrite;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Je" _
, _
"t OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet O" _
, _
"LEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Data" _
, _
"base=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
), Destination:=Range("A1"))
so soll es sein:
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & pfad2 & " ", .dbs.Open "ast", Mode=ReadWrite;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Je" _
, _
"t OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet O" _
, _
"LEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Data" _
, _
"base=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
), Destination:=Range("A1"))
wichtig, so denke ich, ist nur der fettgedruckte Teil.
Danke für Eure Hilfe
Gruß
Stefan