Viele txt-Dateien spaltenweise einfügen

Forumthread: Viele txt-Dateien spaltenweise einfügen

28.03.2023 08:04:58

Florian

Hallo

ich würde gerne viele Textdateien in ein Excel-sheet einfügen.

In einem bestimmten Ordner liegen Dateien w01.txt bis w99.txt
Händisch ist es einfach: Datei öffnen, Alles kopieren, dann in der Excel-Datei in eine Zelle in der ersten Zeile gehen, einfügen. Fertig.
Und das noch 98 Mal.

Geht das vielleicht einfacher?

LG,
Florian

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Mit VBA

28.03.2023 08:20:53

JoS
AW: Mit VBA

28.03.2023 10:00:09

Florian

Mit VBA

28.03.2023 08:20:53

JoS

Mit VBA sollte es gehen. Pfad anpassen und los

Sub DateienImportieren()

Dim OrdnerPfad As String, DateiName As String, VollstaendigerDateiName As String
Dim i As Integer

'Ordnerpfad angeben
OrdnerPfad = "C:\MeinOrdner\"

'Für alle Dateien im Ordner
For i = 1 To 99
    'Dateiname generieren
    DateiName = "w" & Format(i, "00") & ".txt"
    'Vollständigen Dateinamen erstellen
    VollstaendigerDateiName = OrdnerPfad & DateiName
    'Datei öffnen und Inhalt in eine Zelle in der ersten Zeile einfügen
    On Error Resume Next ' Fehlerbehandlungsroutine starten
    Workbooks.OpenText Filename:=VollstaendigerDateiName, _
        StartRow:=1, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, _
        Tab:=False, _
        Semicolon:=False, _
        Comma:=False, _
        Space:=True, _
        Other:=False, _
        FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1)), _
        TrailingMinusNumbers:=True
    If Err.Number > 0 Then ' Wenn ein Fehler aufgetreten ist
        Err.Clear ' Fehler löschen
        On Error GoTo 0 ' Fehlerbehandlungsroutine deaktivieren
        GoTo Weiter ' Zum nächsten Schleifendurchlauf springen
    End If
    On Error GoTo 0 ' Fehlerbehandlungsroutine deaktivieren
    Range("A1").Copy Destination:=ThisWorkbook.Worksheets(1).Cells(i, 1)
    Workbooks(DateiName).Close savechanges:=False
Weiter:
Next i

End Sub

AW: Mit VBA

28.03.2023 10:00:09

Florian

Damit komme ich weiter.
Vielen Dank, JoS
LG, Florian

Beliebteste Forumthreads (12 Monate)

Viele txt-Dateien spaltenweise einfügen

Forumthread: Viele txt-Dateien spaltenweise einfügen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread