VBA - .txt teilweise in excel einlesen
Verfasst: 7. Jan 2008, 20:46
Hallo Ihr,
ich habe da eine kleine Frage an die VBA Profis hier.
Ich möchte ca. 400 *.txt Dateien mit einem Klick in Excel einlesen. Wie bekomme ich das hin?
Jetzt meine Bedürfnisse und Restriktionen.
Die Dateien liegen alle im selben Verzeichnis.
Die Namen der Dateien sind unterschiedlich, diese Namen hätte ich gerne auch in der Excel Tabelle enthalten.
Es gibt drei verschiedene Stellen, die ich aus den jeweiligen Dateien auslesen möchte, diese Stellen sind über alle Dateien aber gleich! Leider sind die Werte in den Dateien aber nicht via Trennzeichen ( Punkt, Komma, Strich ) getrennt.
Das alles soll am liebsten mit einem Mausklick ablaufen und am Ende wäre es super wenn die Exceldatei so aussähe:
Datei001.txt WertA WertB WertC
Datei002.txt WertA WertB WertC
Ich hoffe es kann mir jemand helfen.
Ich habe schon überlegt ein Makro mit dem Rekorder aufzunehmen, doch da bekomme ich das nur für eine Datei hin. Der Sprung in die nächste Excel Datei gelingt da nicht.
Viele Grüße und besten Dank
Lars
ich habe da eine kleine Frage an die VBA Profis hier.
Ich möchte ca. 400 *.txt Dateien mit einem Klick in Excel einlesen. Wie bekomme ich das hin?
Jetzt meine Bedürfnisse und Restriktionen.
Die Dateien liegen alle im selben Verzeichnis.
Die Namen der Dateien sind unterschiedlich, diese Namen hätte ich gerne auch in der Excel Tabelle enthalten.
Es gibt drei verschiedene Stellen, die ich aus den jeweiligen Dateien auslesen möchte, diese Stellen sind über alle Dateien aber gleich! Leider sind die Werte in den Dateien aber nicht via Trennzeichen ( Punkt, Komma, Strich ) getrennt.
Das alles soll am liebsten mit einem Mausklick ablaufen und am Ende wäre es super wenn die Exceldatei so aussähe:
Datei001.txt WertA WertB WertC
Datei002.txt WertA WertB WertC
Ich hoffe es kann mir jemand helfen.
Ich habe schon überlegt ein Makro mit dem Rekorder aufzunehmen, doch da bekomme ich das nur für eine Datei hin. Der Sprung in die nächste Excel Datei gelingt da nicht.
Viele Grüße und besten Dank
Lars