Automatisches Einlesen mehrerer Textdateien

Forumthread: Automatisches Einlesen mehrerer Textdateien

19.01.2004 20:38:16

Thorsten

Hallo.
Ich habe es geschafft über VBA eine Textdatei in Excel importieren zu lassen. *freu* Nun ist es mein Ziel mehrere Dateien aus einem Ordner dies machen zu lassen. Ist das realisierbar? Vielleicht in einer Schleife? Die Texte, die in die Spalten geschrieben werden, sollen untereinander geschrieben werden...
Hat jemand da Erfahrung mit?
Das ware klasse
Gruß Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Automatisches Einlesen mehrerer Textdateien

19.01.2004 22:33:30

Matthias G

Hallo Thorsten,
Folgende Schleife findet alle *.txt-Dateien in C:\test mittels einer Schleife.
Da kannst du deinen Code sicher reinbauen.


Sub ZeigeDateien()
Dim datei As String
datei = Dir("C:\test\*.txt")
Do While datei <> ""
Debug.Print datei
'Hier kann dein Code stehen
datei = Dir
Loop
End Sub

Gruß,
Matthias

Vielleicht etwas überdimensioniert...

19.01.2004 22:54:15

Ramses

Hallo
aber das hatte ich in einer ähnlichen Form schon.

Sub Import_txt_Files()
'(C) Ramses
'liest all Daten von txt Files in beliebig vielen Subfolders ein
'und schreibt alle Daten eines Subfolders in ein EXCEL-Sheet
'Für jeden Subfolder wird ein neues Sheet erstellt
'-------------
Dim i As Long, n As Integer, m As Integer, intTotFiles As Long, fSlash As Integer
Dim txtlines As Long, totFiles As Long, textArr() As Variant
Dim geffile As String, dname As String
Dim Suchpfad As String, Suchbegriff As String, Dateiform As String
Dim tmpFoName As String, tmpFoNameFirst As String, Text1 As String
Dim si As Integer, myDiv As Boolean
Dim oldStatus As Variant
Suchpfad = InputBox("Geben Sie den Ordner an, der durchsucht werden soll.", "Pfad definieren", "C:\")
If Suchpfad = "" Then Exit Sub
Dateiform = InputBox("Geben Sie den Dateityp an der gesucht werden soll", "Dateierweiterung", "*.txt")
If Dateiform = "" Then Exit Sub
Application.ScreenUpdating = True
oldStatus = Application.StatusBar
myDiv = False
'Alle Tabellen löschen bis auf eine
Application.DisplayAlerts = False
For i = Worksheets.Count To 2 Step -1
    Worksheets(i).Delete
Next
Application.DisplayAlerts = True
Close #1
With Application.FileSearch
    .LookIn = Suchpfad
    'Unterordner durchsuchen = ".SearchSubFolders = True" !!!
    .SearchSubFolders = False
    .filename = Dateiform
    If .Execute() > 0 Then
        totFiles = .FoundFiles.Count
        Application.StatusBar = "Total " & totFiles & " gefunden"
        For i = 1 To .FoundFiles.Count
            geffile = .FoundFiles(i)
                If i = 1 Then
                    'FolderName aufnehmen
                    tmpFoName = geffile
                    For n = 1 To Len(tmpFoName) - 5
                        If Mid(tmpFoName, n, 1) = "\" Then
                            fSlash = n
                        End If
                    Next n
                    tmpFoNameFirst = Left(tmpFoName, fSlash)
                    ActiveSheet.Name = "Test0" & i
                Else
                    tmpFoName = geffile
                    For n = 1 To Len(tmpFoName) - 5
                        If Mid(tmpFoName, n, 1) = "\" Then
                            fSlash = n
                        End If
                    Next n
                    tmpFoName = Left(tmpFoName, fSlash)
                End If
                If i = 1 Then
                    Debug.Print "Start 1. Sequenz"
                    Debug.Print geffile
                    Open geffile For Input As #1
                    'Die anzahl ist nötig um die Grösse des Arrays zu deklarieren
                    'Zähler auf 0 setzen
                    txtlines = 0
                    Do While Not EOF(1)    ' Schleife bis Dateiende.
                        Input #1, Text1    ' Hilfsvariable zum einlesen verwenden
                        'Zähler hochzählen
                        txtlines = txtlines + 1
                    Loop
                    'Schliessen der Datei weil Dateiende erreicht wurde
                    Close #1
                    'Erneutes Öffnen um zum Dateianfang zu kommen
                    Open geffile For Input As #1    ' Datei zum Einlesen öffnen.
                    'Array neu auf die Anzahl der Linien initialisieren
                    ReDim textArr(txtlines)
                    'Einlesen der Dateien in das Array
                    For n = 1 To txtlines
                        Line Input #1, textArr(n)
                    Next n
                    'Schreiben in Tabelle
                    For m = 1 To UBound(textArr())
                        Debug.Print ActiveSheet.Cells(65536, 1).End(xlUp).Row
                        ActiveSheet.Cells(ActiveSheet.Cells(65536, 1).End(xlUp).Row + 1, 1) = textArr(m)
                    Next m
                    ReDim textArr(0)
                    Debug.Print "1 Ende"
                Else
                    If tmpFoName = tmpFoNameFirst Then
                        Debug.Print "Start nächste Datei Sequenz"
                        Debug.Print geffile
                        Close #1
                        '-------------------
                        'Datei öffnen zum einlesen in ein Array
                        Open geffile For Input As #1
                        'Die anzahl ist nötig um die nächste Grösse des Arrays zu deklarieren
                        'Zähler auf 0 setzen
                        txtlines = 0
                        Do While Not EOF(1)    ' Schleife bis Dateiende.
                            Input #1, Text1    ' Hilfsvariable zum einlesen verwenden
                            'Zähler hochzählen
                            txtlines = txtlines + 1
                        Loop
                        'Schliessen der Datei weil Dateiende erreicht wurde
                        Close #1
                        'Erneutes Öffnen um zum Dateianfang zu kommen
                        Open geffile For Input As #1    ' Datei zum Einlesen öffnen.
                        'Array Anzahl definieren
                        'Array neu auf die Anzahl der Linien initialisieren
                        ReDim textArr(txtlines)
                        'Einlesen der Dateien in das Array
                        For n = 1 To txtlines
                            Line Input #1, textArr(n)
                        Next n
                        Close #1
                        'Schreiben in Tabelle
                        For m = 1 To UBound(textArr())
                            ActiveSheet.Cells(ActiveSheet.Cells(65536, 1).End(xlUp).Row + 1, 1) = textArr(m)
                        Next m
                        ReDim textArr(0)
                    Else
                        Debug.Print "Start Sequenz Neuer Ordner"
                        Debug.Print geffile
                        '-------------------
                        'Es wurde ein File aus einem anderen Ordner geöffnet
                        'Neue Tabelle anlegen und Folder neu bestimmen
                        tmpFoNameFirst = tmpFoName
                        'Trennt die bisherigen Daten in Spalten auf
                        Columns("A:A").Select
                        Selection.TextToColumns Destination:=Range("A1"), Semicolon:=True
                        Worksheets.Add
                        If i < 10 Then
                            ActiveSheet.Name = "Test0" & i
                        Else
                            ActiveSheet.Name = "Test" & i
                        End If
                    End If
                End If
        Next i
    End If
End With
ReDim textArr(0)
'für den letzten Ordner
'Trennt die Daten in Spalten auf
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), Semicolon:=True
Application.StatusBar = oldStatus
Application.ScreenUpdating = True
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruss Rainer

Infobox / Tutorial

Automatisches Einlesen mehrerer Textdateien in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um mehrere Textdateien in Excel zu importieren, kannst Du VBA nutzen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.

Füge den folgenden Code ein:

Sub Import_txt_Files()
   Dim datei As String
   Dim txtlines As Long
   Dim textArr() As Variant
   Dim Suchpfad As String

   Suchpfad = "C:\test\"  ' Passe den Pfad zu deinem Ordner an
   datei = Dir(Suchpfad & "*.txt")

   Do While datei <> ""
       Open Suchpfad & datei For Input As #1
       txtlines = 0

       ' Zähle die Zeilen
       Do While Not EOF(1)
           Input #1, textArr(txtlines)
           txtlines = txtlines + 1
       Loop
       Close #1

       ' Schreibe die Daten in das aktive Blatt
       For i = 0 To txtlines - 1
           ActiveSheet.Cells(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = textArr(i)
       Next i

       ' Nächste Datei
       datei = Dir
   Loop
End Sub

Ändere den Suchpfad in den gewünschten Ordner, in dem sich Deine Textdateien befinden.
Führe das Skript aus, um mehrere TXT-Dateien in Excel zu importieren.

Häufige Fehler und Lösungen

Fehler: "Datei nicht gefunden"
- Überprüfe den Pfad, den Du im Suchpfad angegeben hast. Stelle sicher, dass der Ordner existiert und TXT-Dateien enthält.
Fehler: "Typ nicht definiert"
- Stelle sicher, dass Du den richtigen Datentyp für textArr definiert hast. Möglicherweise musst Du die Größe des Arrays dynamisch anpassen.

Alternative Methoden

Neben VBA gibt es auch andere Möglichkeiten, mehrere Textdateien in Excel zu importieren:

Power Query:
- Gehe zu Daten > Abfragen und Verbindungen > Neue Abfrage > Aus Datei > Aus Ordner.
- Wähle den Ordner aus, der die TXT-Dateien enthält, und folge den Anweisungen, um die Daten in Excel zu importieren.
Textimport-Assistent:
- Du kannst den Textimport-Assistenten verwenden, um TXT-Dateien manuell zu importieren, aber dies ist weniger automatisiert und erfordert mehr Aufwand.

Praktische Beispiele

Hier ein praktisches Beispiel für das Einlesen mehrerer TXT-Dateien:

Angenommen, Du hast folgende Dateien im Ordner C:\test\:
- data1.txt
- data2.txt
- data3.txt

Nach dem Ausführen des VBA-Codes werden die Inhalte aller drei Dateien untereinander in der aktiven Excel-Tabelle angezeigt.

Tipps für Profis

Fehlerbehandlung einfügen: Füge Fehlerbehandlungsroutinen in Deinen VBA-Code ein, um unerwartete Fehler zu vermeiden.
Dateinamen speichern: Wenn Du die Dateinamen zusammen mit den Daten speichern möchtest, erweitere den Code, um den Dateinamen in eine separate Spalte zu schreiben.
Leistungsoptimierung: Deaktiviere Application.ScreenUpdating und Application.Calculation, um die Leistung während der Ausführung des Codes zu verbessern.

FAQ: Häufige Fragen

1. Wie importiere ich mehrere TXT-Dateien in Excel ohne VBA? Du kannst Power Query verwenden, indem Du den Ordner auswählst, der die TXT-Dateien enthält.

2. Gibt es eine maximale Anzahl an TXT-Dateien, die ich importieren kann? Die Begrenzung hängt von der Excel-Version und dem verfügbaren Arbeitsspeicher ab. In der Regel kannst Du jedoch mehrere Tausend Dateien importieren, solange Dein System die Anforderungen erfüllt.

3. Kann ich den Importprozess automatisieren? Ja, durch das Erstellen eines VBA-Skripts kannst Du den Import von mehreren Textdateien in Excel automatisieren und regelmäßig ausführen.

Beliebteste Forumthreads (12 Monate)

Automatisches Einlesen mehrerer Textdateien

Forumthread: Automatisches Einlesen mehrerer Textdateien

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Automatisches Einlesen mehrerer Textdateien in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Automatisches Einlesen mehrerer Textdateien

Forumthread: Automatisches Einlesen mehrerer Textdateien

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Automatisches Einlesen mehrerer Textdateien in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread