Hallo Gast71553, leider scheitere ich daran die neuen Workbooks (z.B. 2015-09-01.txt ) anzusprechen. In einem anderen makro habe ich das so gemacht:
b = InputBox("Bitte den Namen der Textdatei eingeben. Ohne .txt")
c = b & ".txt"
pfad = ActiveWorkbook.Path & "\" & c
'Textdatei einlesen
Workbooks.OpenText Filename:=pfad, Semicolon:=True
Workbooks(c).Activate
ActiveWorkbook.Worksheets(b).Cells.Copy
In dem vorigen Beitrag von Gast71553 vom 28.11.2015 werden die Textdateien schon mal in Excel reingeholt.
Was mir noch fehlt ist: Wie kann man den Inhalt der Textdateien untereinanderkopieren? Ich verwende in meinem alten Beispiel mit c und b nicht den vollen Pfad - sondern den Namen.
Das Beispiel von Gast71553 läuft perfekt - aber ich muss den Inhalt der Textdateien auf ein Worksheet untereinanderkopieren und dazu die neuen, importierten "Workbooks" ansprechen. Wenn es noch möglich ist dann sollte neben die Werte aus den Textdateien (die untereinander sind) eine Spalte mit dem dazugehörigen Textdateinamen sein - so kann man die Daten identifizieren.
Ich würde mich sehr über weitere Hilfe freuen und probiere auch konstruktiv mitzuarbeiten...
Vielen Dank für die Hilfe im Voraus!!
Gruß Jörg
|