relativer Dateipfad
15.10.2008 18:59:36
start_34
ich möchte über ein Makro eine Datei im .csv Format einlesen.
Das Makro beginnt folgendermaßen:
Sub MCI()
'
' MCI Makro
' Makro am 10.10.2008 von start_34 aufgezeichnet
'
' Tastenkombination: Strg+m
'
Sheets("MCI-Datei").Select
Range("A1:I350").Select
Selection.ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;c:\abc\123\test\parddi\mci2008.csv", _
Destination:=Range("A1"))
Damit funktioniert es auch.
Aber ich möchte nicht den gesamten Pfad eingeben, sondern nur den Dateinamen oder der Rest des Pfades ab da, wo ich gerade stehe (z.B. \parddi\mci2008.csv)
Wenn ich den Pfad nicht komplett eingebe erhalte ich die Fehlermeldung:
Laufzeitfehler 1004
Excel kann die Textdatei für die Aktualisierung des externen Datenbereichs nicht finden.
Wie muß ich die Datei einbinden ?
Schönen Gruß