Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Mehrere .txt Dateien nebeneinander statt untereinander importieren
#1
Hallo!

Ich nutze aktuell folgendes Makro, um mehrere txt Dateien gleichzeitig in eine Excel zu importieren. 

Sub Dateneinlesen()

    x = Sheets(1).UsedRange.Rows.Count
    d = Dir("C:\txt\")
   
    Do While d <> ""
        Open "C:\txt\" & d For Input As #1
            Do While Not EOF(1)
                Line Input #1, temp
                Cells(x, 1) = Replace(temp, vbTab, ";")
                x = x + 1
            Loop
        Close #1
        d = Dir
    Loop
End Sub



Das funktioniert auch wunderbar, nur hätte ich gerne, dass er die txt Dateien nebeneinander ausspuckt, also pro Spalte eine txt Datei statt die txt Dateien untereinander darzustellen. Ich glaube, dass es eigentlich relativ einfach ist, aber dennoch komme ich nicht voran...

Vielen Dank!
Antwortento top
#2
Hallo,
ungetestet:
PHP-Code:
Sub Dateneinlesen()

    d Dir("C:\txt\")
    spalte=1
    Do While d <> ""
       x=1
        Open "
C:\txt\" & d For Input As #1
            Do While Not EOF(1)
                Line Input #1, temp
                Cells(x, spalte) = Replace(temp, vbTab, "
;")
                x = x + 1
            Loop
        Close #1
        d = Dir
        spalte=spalte+1
     Loop
  End Sub 
Gruß der AlteDresdner (Win10, Off2010)
[-] Folgende(r) 1 Benutzer sagt Danke an AlterDresdner für diesen Beitrag:
  • Nowi
Antwortento top
#3
Vielen Dank, hat wunderbar funktioniert. 100
Antwortento top
#4
(09.11.2020, 12:08)AlterDresdner schrieb: Hallo,
ungetestet:
PHP-Code:
Sub Dateneinlesen()

    d Dir("C:\txt\")
    spalte=1
    Do While d <> ""
       x=1
        Open "
C:\txt\" & d For Input As #1
            Do While Not EOF(1)
                Line Input #1, temp
                Cells(x, spalte) = Replace(temp, vbTab, "
;")
                x = x + 1
            Loop
        Close #1
        d = Dir
        spalte=spalte+1
     Loop
  End Sub 
Beim ersten Versuch mit Testdateiein hat es tatsächlich wunderbar funktioniert, bei den .txt Dateien, die ich importieren möchte, tritt jedoch eine kleine bzw. große Schwierigkeit auf. Die .txt Dateien werden zwar nebeneinander angezeigt, jedoch ist jede .txt Datei in einer Zelle. Ich hätte jedoch gerne, dass eine Zeile aus der .txt Datei auch einer Zeile in der Exceltabelle entspricht.
Ist die Formel vielleicht diesbezüglich anpassbar? Oder welchen anderen zusätzlichen Schritt könnte ich gehen?
Vielen Dank!
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste