11
Excel VBA: mehrere txt-Dateien importieren, Zeilenumbruch als Trennzeichen
Hallo zusammen.
seit ein paar Tagen versuche ich vergeblich (weil ich praktisch keine Ahnung von Makros bzw. VBA habe) eine Lösung für folgendes Problem zu finden:
Der Inhalt verschiedener txt-Dokumente (verschiedene Dateinamen, keine logische Reihenfolge) muss in eine Excel-Tabelle importiert werden.
Die txts befinden sich alle in dem gleichen Ordner.
Eine txt-Datei sieht wie folgt aus (Bsp.-Datensatz A):
12345
789
Ja
...(noch mehr Zahlen oder kurzer Text)
-321
8472032
Text mit vielen Zeichen und noch mehr Zeichen; und noch mehr.
noch ein Textabschnitt mit blabla
Bis auf die Zeilenumbrüche sind keine Trennzeichen vorhanden.
Die Dateien sollen so importiert werden, dass je eine Zeile aus der txt Datei in einer anderen Spalte steht:
Bsp:
A | 12345 | 789 | Ja | ... | -321 | ... | Text mit vielen Zeichen und noch mehr Zeichen, und noch mehr. | ...
B | ...
Im Netzt habe ich das hier gefunden:
Ein Import erfolgt, allerdings werden einfach alle Zeilen der txts untereinander abgedruckt, was mir nicht weiterhilft.
Am umformulieren, sodass die Daten vernünftig abgedruckt werden (siehe Tabelle oben), bin ich bisher gescheidert...
Wenn mir jemand helfen könnte, wäre ich sehr sehr dankbar.
VG
seit ein paar Tagen versuche ich vergeblich (weil ich praktisch keine Ahnung von Makros bzw. VBA habe) eine Lösung für folgendes Problem zu finden:
Der Inhalt verschiedener txt-Dokumente (verschiedene Dateinamen, keine logische Reihenfolge) muss in eine Excel-Tabelle importiert werden.
Die txts befinden sich alle in dem gleichen Ordner.
Eine txt-Datei sieht wie folgt aus (Bsp.-Datensatz A):
12345
789
Ja
...(noch mehr Zahlen oder kurzer Text)
-321
8472032
Text mit vielen Zeichen und noch mehr Zeichen; und noch mehr.
noch ein Textabschnitt mit blabla
Bis auf die Zeilenumbrüche sind keine Trennzeichen vorhanden.
Die Dateien sollen so importiert werden, dass je eine Zeile aus der txt Datei in einer anderen Spalte steht:
Bsp:
A | 12345 | 789 | Ja | ... | -321 | ... | Text mit vielen Zeichen und noch mehr Zeichen, und noch mehr. | ...
B | ...
Im Netzt habe ich das hier gefunden:
Sub txtimport()
x = Sheets(1).UsedRange.Rows.Count
d = Dir("C:\Zielordner\*.txt")
Do While d <> ""
Open "C:\Zielordner\" & d For Input As #1
Do While Not EOF(1)
Line Input #1, temp
Sheets(1).Cells(x, 1) = Replace(temp, vbTab, ";")
x = x + 1
Loop
Close #1
For j = 1 To x
Text = Split(Cells(j, 1), ";")
For i = 0 To UBound(Text)
Cells(j, i + 1) = Text(i)
Next
Next
d = Dir
Loop
End SubEin Import erfolgt, allerdings werden einfach alle Zeilen der txts untereinander abgedruckt, was mir nicht weiterhilft.
Am umformulieren, sodass die Daten vernünftig abgedruckt werden (siehe Tabelle oben), bin ich bisher gescheidert...
Wenn mir jemand helfen könnte, wäre ich sehr sehr dankbar.
VG
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 240439
Url: https://administrator.de/contentid/240439
Printed on: April 23, 2024 at 20:04 o'clock
11 Comments
Latest comment
Hallo jojojo und willkommen im Forum!
Soferne ich Deine Problemstellung richtig verstehe (ich würde sie umformulieren auf: Importiere den gesamten Inhalt jeder Textdatei in jeweils eine Zeile, wobei die Zeilen der Textdatei auf einzelne Spalten verteilt werden sollen.), könnte das (ungetestet) so gehen:
Grüße
bastla
[Edit] Zeile 4 ergänzt [/Edit]
Soferne ich Deine Problemstellung richtig verstehe (ich würde sie umformulieren auf: Importiere den gesamten Inhalt jeder Textdatei in jeweils eine Zeile, wobei die Zeilen der Textdatei auf einzelne Spalten verteilt werden sollen.), könnte das (ungetestet) so gehen:
Sub txtimport()
x = Sheets(1).UsedRange.Rows.Count
d = Dir("C:\Zielordner\*.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Do While d <> ""
T = Split(fso.OpenTextFile("C:\Zielordner\" & d).ReadAll, vbNewline)
Sheets(1).Cells(x, 1).Resize(1, UBound(T) + 1).Value = T
x = x + 1
d = Dir
Loop
End Subbastla
[Edit] Zeile 4 ergänzt [/Edit]
Hallo bastla,
erst einmal vielen Dank!
Ich bekomme einen Laufzeitfehler '424' bzw. Objekt erforderlich für Zeile 6 (T = Split...)
VG
EDIT: Ja. Genau so, wie du es oben formuliert hast, ist es vielleicht deutlicher.
erst einmal vielen Dank!
Ich bekomme einen Laufzeitfehler '424' bzw. Objekt erforderlich für Zeile 6 (T = Split...)
VG
EDIT: Ja. Genau so, wie du es oben formuliert hast, ist es vielleicht deutlicher.
Hallo jojojo!
Der Fehler wundert micht nicht - ich habe ja auch die Zeile 4
unterschlagen ... 
Ich trage das auch oben nach.
Grüße
bastla
Der Fehler wundert micht nicht - ich habe ja auch die Zeile 4
Set fso = CreateObject("Scripting.FileSystemObject")
Ich trage das auch oben nach.
Grüße
bastla
Super. Vielen Dank! Das funktioniert....
Hallo zusammen!
genau das gleiche Problem habe ich auch! Allerdings wenn ich den Code einfüge spuckt er mir die Fehlermeldung "Pfad nicht gefunden aus".
Ich kann mit dieser Fehlermeldung leider nichts anfangen. Wäre super wenn einer von euch einen Rat hätte!!
genau das gleiche Problem habe ich auch! Allerdings wenn ich den Code einfüge spuckt er mir die Fehlermeldung "Pfad nicht gefunden aus".
Ich kann mit dieser Fehlermeldung leider nichts anfangen. Wäre super wenn einer von euch einen Rat hätte!!
Hallo radihk und willkommen im Forum!
Grüße
bastla
Wäre super wenn einer von euch einen Rat hätte!!
Das wird vermutlich dauern - schließlich müssen wir uns durch die Unmenge an Informationen, die Du geliefert hast, durcharbeiten ... Grüße
bastla
Sorry x)
Ich möchte eine .txt Datein in Excel importieren. Die .txt ist eine Speisekarte die wie folgt aussieht:
Pizza Salami 5,90€
Pizza mit Tomatensauce, etc.
Nun möchte ich diese so in excel importieren, dass folgendes dabei herauskommt:
Pizza Salami | Pizza mit Tomatensauce | 5,90€
Ich habe es bereits mit eiener =WENN-Formel probiert und das klappt soweit auch allerdings kopiert diese Methode lediglich die"Beschreibung der Pizza" und das bringt mich überhauptnicht weiter..
Schon einmal vielen Dank!
Ich möchte eine .txt Datein in Excel importieren. Die .txt ist eine Speisekarte die wie folgt aussieht:
Pizza Salami 5,90€
Pizza mit Tomatensauce, etc.
Nun möchte ich diese so in excel importieren, dass folgendes dabei herauskommt:
Pizza Salami | Pizza mit Tomatensauce | 5,90€
Ich habe es bereits mit eiener =WENN-Formel probiert und das klappt soweit auch allerdings kopiert diese Methode lediglich die"Beschreibung der Pizza" und das bringt mich überhauptnicht weiter..
Schon einmal vielen Dank!
Hallo radihk!
Viel klarer ist es damit nicht - Du könntest aber eine (als "Code" formatierte) Beispieldatei posten ...
Willst Du (wie es Dein Beispiel vermuten ließe) die Reihenfolge der Felder verändern (wäre im Script nämlich nicht vorgesehen)?
Grüße
bastla
Viel klarer ist es damit nicht - Du könntest aber eine (als "Code" formatierte) Beispieldatei posten ...
Willst Du (wie es Dein Beispiel vermuten ließe) die Reihenfolge der Felder verändern (wäre im Script nämlich nicht vorgesehen)?
Grüße
bastla
In spalte A1: Pizza Salami
In spalte B2: mit Tomatensauce, Käse, etc.
In spalte C1: 4,90€
So sollte es im Idealfall aussehen.
Nach dem import aus der .txt sieht es aber erst einmal so aus:
Spalte A1: Pizza Salami
Spalte A2: mit Tomatensauce, Käse, etc.
Spalte B1: 4,90€
Sub eins()
Dim Start As Integer
Start = 2
Range(Cells(1, Start), Cells(1, Start + 0)).EntireColumn.Insert
End Sub
--> damit erstelle ich eine neue Spalte und jetzt muss nur noch die "Beschreibung" in diese eingefügt werden.
In spalte B2: mit Tomatensauce, Käse, etc.
In spalte C1: 4,90€
So sollte es im Idealfall aussehen.
Nach dem import aus der .txt sieht es aber erst einmal so aus:
Spalte A1: Pizza Salami
Spalte A2: mit Tomatensauce, Käse, etc.
Spalte B1: 4,90€
Sub eins()
Dim Start As Integer
Start = 2
Range(Cells(1, Start), Cells(1, Start + 0)).EntireColumn.Insert
End Sub
--> damit erstelle ich eine neue Spalte und jetzt muss nur noch die "Beschreibung" in diese eingefügt werden.
Hat wirklich niemand ne Idee wie man das umsetzen könnte?
Bin für jede Hilfe dankbar!
Bin für jede Hilfe dankbar!
Ich hab das jetzt mit folgendem Makro hinbekommen. Jetzt müsste das ganze nur noch in einer Schleife durchlaufen.
Jemand einen Rat?
Sub CellsCut()
'Preis
With Range("B1")
.Copy Destination:=Range("C1")
End With
Range("C1").ClearFormats
'Beschreibung
With Range("A2")
.Copy Destination:=Range("B1")
.Value = ""
End With
Range("B1").ClearFormats
'Nächste Zeile
With Range("A3")
.Copy Destination:=Range("A2")
.Value = ""
End With
Range("A2").ClearFormats
'Preis
With Range("B3")
.Copy Destination:=Range("C2")
.Value = ""
End With
Range("C2").ClearFormats
'Beschreibung
With Range("A4")
.Copy Destination:=Range("B2")
.Value = ""
End With
Range("B2").ClearFormats
End Sub
Jemand einen Rat?
Sub CellsCut()
'Preis
With Range("B1")
.Copy Destination:=Range("C1")
End With
Range("C1").ClearFormats
'Beschreibung
With Range("A2")
.Copy Destination:=Range("B1")
.Value = ""
End With
Range("B1").ClearFormats
'Nächste Zeile
With Range("A3")
.Copy Destination:=Range("A2")
.Value = ""
End With
Range("A2").ClearFormats
'Preis
With Range("B3")
.Copy Destination:=Range("C2")
.Value = ""
End With
Range("C2").ClearFormats
'Beschreibung
With Range("A4")
.Copy Destination:=Range("B2")
.Value = ""
End With
Range("B2").ClearFormats
End Sub
