Dateinamen in Zellen schreiben (wichtig)
20.01.2004 11:58:06
Thorsten
Ich lasse mehrere Daten aus Textdateien in Tabellen einlesen und filtern. Daie Dateien heißen z.B. BA001.txt - BA015.txt Sie werden über eine Schleife eingelesen.
datei = Dir("D:\temp\*.txt")
Do While datei <> ""
sFile = "D:\temp\" + datei
...
Nun möchte ich die Dateibezeichnung, aus der die Daten kommen in Zelle ("F") schreiben lassen. (Ohne Endung) Damit ich die Daten unterscheiden kann.
Kann man das machen?
Danke schonmal