Pfad und Dateiname aus der Zelle entnehmen
04.06.2007 15:30:00
mehmet
anbei habe ich ein auszug aus meinem Makrorecorder:
Dim Pfad_und_Datei_Name As String
Pfad_und_Datei_Name = Sheets("tab1").Range("c1")
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Dokumente und Einstellungen\Mehmet\Desktop\27MAR07.txt", _
Destination:=Range("A1"))
.Name = ""
...
Statt C:\Dokumente und Einstellungen\Mehmet\Desktop\27MAR07.txt möchte ich Pfad_und_Datei_Name eingeben, also das was in Zelle der Tabelle1 (tab1) steht.
Geht aber nicht.
Laufzeitfehler '1004':
Excel kann die extdatei für die Aktualisierung des externen Datenbereichs nicht finden.
Vergewissern Sie sich, dass die Textdatei nicht verschoben oder umbenannt wurde.
Wiederholen Sie anschliessend die Aktualisierung.
Wenn ich aber C:\Dokumente und Einstellungen\Mehmet\Desktop\27MAR07.txt in den Code eingebe, klappt es.
Gruss
mehmet