Clever-Excel-Forum

Normale Version: Excel-Makro zum Einfügen von Dateien
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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?

Viele Grüße Sandro
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
(05.08.2018, 17: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.
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.
(05.08.2018, 18: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  Huh