Hallo, Ich möchte in einer Excel Tabelle automatisch mehrere txt.-Dateien aus einem Ordner einfügen lassen und habe dazu mal folgendes Makro geschrieben:
Die Dateien Werden alle untereinander eingefügt. Wie muss ich den Quelltext verändern, damit die einzelnen Dateien nebeneinander angeordnet werden?
05.08.2018, 18:55 (Dieser Beitrag wurde zuletzt bearbeitet: 05.08.2018, 18:55 von RPP63.)
Moin! Da ich nicht weiß, wie so eine .txt aussieht, mal aus der Hüfte, also ungetestet:
Sub Einlesen()
x = 1: y = 1 d = Dir("C:\Users\admin\Ordner\P*.txt") Do While d <> "" Open "C:\Users\admin\Ordner\" & d For Input As #1 Do While Not EOF(1) Line Input #1, temp Cells(x, y) = temp x = x + 1 Loop Close #1 d = Dir y = y + 1 Loop End Sub
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
(05.08.2018, 18:55)RPP63 schrieb: Moin! Da ich nicht weiß, wie so eine .txt aussieht, mal aus der Hüfte, also ungetestet:
Sub Einlesen()
x = 1: y = 1 d = Dir("C:\Users\admin\Ordner\P*.txt") Do While d <> "" Open "C:\Users\admin\Ordner\" & d For Input As #1 Do While Not EOF(1) Line Input #1, temp Cells(x, y) = temp x = x + 1 Loop Close #1 d = Dir y = y + 1 Loop End Sub
Gruß Ralf
Hallo Ralf, besten Dank für deine Antwort. Die Dateien sind im Prinzip nur zahlreiche untereinander geschrieben Werte. Wenn ich deinen Text verwende, fügt er die Dateien untereinander ein, jedoch ist jede dann um eine Spalte nach rechts versetzt. Ich würde gerne Alle Dateien in der ersten Zeile, immer um eine Spalte verseztz eingefügt haben.
05.08.2018, 19:18 (Dieser Beitrag wurde zuletzt bearbeitet: 05.08.2018, 19:18 von RPP63.)
Na, dann tausche einfach x und y (dann wird jede Datei in Spalten geschrieben und um eine Zeile versetzt)
Zitat:Ich … habe dazu mal folgendes Makro geschrieben:
Wenn Du es geschrieben hast, musst Du doch grob wissen, was das Makro macht?
Zeige mal anhand einer txt und einer xlsx, was Du wirklich vorhast! Die gesamte txt in jeweils eine Zelle??? Es gibt Grenzen, außerdem sollte Excel zumindest die Chance einer Auswertung oder auch zu einer profanen Filterung/Sortierung haben.
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
(05.08.2018, 19:18)RPP63 schrieb: Na, dann tausche einfach x und y (dann wird jede Datei in Spalten geschrieben und um eine Zeile versetzt)
Wenn Du es geschrieben hast, musst Du doch grob wissen, was das Makro macht?
Zeige mal anhand einer txt und einer xlsx, was Du wirklich vorhast! Die gesamte txt in jeweils eine Zelle??? Es gibt Grenzen, außerdem sollte Excel zumindest die Chance einer Auswertung oder auch zu einer profanen Filterung/Sortierung haben.
Hab mal eine txt. Datei in den Anhang gesetzt. Die Excel sollte wie die Beispiel Excel Datei aussehen. Zurzeit werden die txt.Dateien jedoch untereinander eingefügt. Auch das vertauschen von x und y funktioniert irgendwie nicht
