Wie importiert man mehrere Textdateien aus einem Ordner in ein Arbeitsblatt?
Angenommen, Sie stehen vor der Aufgabe, Daten für Berichte oder Analysen zu konsolidieren, und erhalten diese als mehrere Textdateien, die alle in einem einzigen Ordner abgelegt sind. Das manuelle Kopieren und Einfügen des Inhalts jeder einzelnen Textdatei in ein Excel-Arbeitsblatt ist nicht nur äußerst zeitaufwendig, sondern auch fehleranfällig – besonders bei einer großen Anzahl von Dateien oder wenn diese regelmäßig aktualisiert werden. Glücklicherweise gibt es effiziente Möglichkeiten, diese Textdateien automatisch in ein einziges Arbeitsblatt zu importieren und zusammenzuführen. Dieser Artikel stellt praktische Methoden vor, mit denen Sie diese Aufgabe mühelos bewältigen, die Genauigkeit sicherstellen und erheblichen manuellen Aufwand einsparen können. Die vorgestellten Ansätze eignen sich ideal für zahlreiche reale Anwendungsfälle – etwa das Zusammenführen von Umfrageergebnissen, das Importieren von Protokolldaten oder das Kombinieren fragmentierter Textexporte aus verschiedenen Quellen zu einem einheitlichen Datensatz.
Im Folgenden finden Sie mehrere Ansätze, um mehrere Textdateien schnell aus einem Ordner in Excel zu importieren. Jede Methode enthält eine schrittweise Anleitung, praktische Tipps und hilfreiche Hinweise, damit Sie häufige Fehler vermeiden können.
Mehrere Textdatei aus einem Ordner mit VBA in ein einzelnes Blatt importieren
Textdatei in die aktive Zelle mit Kutools für Excel importieren 
Mehrere Textdatei aus einem Ordner mit VBA in ein einzelnes Blatt importieren
Eine effiziente Möglichkeit, alle Textdateien aus einem bestimmten Ordner in Excel zu importieren, ist die Verwendung eines VBA-Makros. Diese Lösung eignet sich besonders, wenn Sie diesen Vorgang häufig wiederholen oder repetitive Aufgaben ohne zusätzliche Add-Ins automatisieren möchten. Sie ermöglicht die schnelle Verarbeitung einer großen Anzahl von Dateien und reduziert manuelle Eingriffe auf ein Minimum. Allerdings erfordert die Nutzung von VBA das Aktivieren von Makros – was in manchen Umgebungen eingeschränkt sein kann – sowie grundlegende Kenntnisse im Visual Basic for Applications-Editor.
Bevor Sie beginnen, empfehlen wir Ihnen, Ihre Arbeitsmappe zu sichern, da Makrovorgänge nicht einfach rückgängig gemacht werden können. Stellen Sie sicher, dass Ihre Textdatei konsistent formatiert ist, da unvorhersehbare Strukturen nach dem Import möglicherweise eine manuelle Bereinigung erforderlich machen.
1. Öffnen Sie die Arbeitsmappe, in die Sie eine Textdatei importieren möchten, und drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im VBA-Editor auf Einfügen > Modul, und fügen Sie dann den folgenden VBA-Code in das Modulfenster ein:
VBA: Mehrere Textdatei aus einem Ordner in ein Blatt importieren
Sub Test()
'UpdatebyExtendoffice
Dim xWb As Workbook
Dim xToBook As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xFiles As New Collection
Dim I As Long
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
If xFile = "" Then
MsgBox "No files found", vbInformation, "Kutools for Excel"
Exit Sub
End If
Do While xFile <> ""
xFiles.Add xFile, xFile
xFile = Dir()
Loop
Set xToBook = ThisWorkbook
If xFiles.Count > 0 Then
For I = 1 To xFiles.Count
Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xWb.Name
On Error GoTo 0
xWb.Close False
Next
End If
End Sub3. Drücken Sie F5, während sich der Cursor innerhalb des Codes befindet, um ihn auszuführen. Anschließend werden Sie in einem Dialog aufgefordert, den Ordner mit Ihrer Ziel-Textdatei auszuwählen. Siehe Screenshot:
4. Klicken Sie auf OK. Das Makro importiert jede Textdatei als neues Arbeitsblatt in Ihre aktuelle Arbeitsmappe. Hinweis: Bei großen oder zahlreichen Dateien kann dieser Vorgang einige Zeit in Anspruch nehmen. Überprüfen Sie das Ergebnis:
Tipp: Enthält Ihre Textdatei Kopfzeilen oder spezifische Trennzeichen, passen Sie den VBA-Code gegebenenfalls an Ihre Datenstruktur an. Stellen Sie im Fehlerfall sicher, dass Dateipfad und Dateityp korrekt sind und die Textdatei nicht anderweitig auf Ihrem System geöffnet ist. Bei identischen Dateinamen können Namenskonflikte bei Arbeitsblättern auftreten.
Textdatei in die aktive Zelle mit Kutools für Excel importieren
Wenn Sie den Inhalt einer einzelnen Textdatei an einer bestimmten Stelle in Ihrem Arbeitsblatt einfügen möchten, bietet Kutools für Excel mit seinem praktischen Tool Datei am Cursor einfügen eine intuitive Lösung. Das ist besonders nützlich, wenn Sie Daten aus ausgewählten Ausschnitten zusammenführen oder Referenznotizen direkt in festgelegte Zellen oder Bereiche importieren möchten. Im Gegensatz zu VBA-Lösungen erfordert Kutools keine Programmierkenntnisse und stellt eine benutzerfreundliche Oberfläche bereit, um Textdateien mühelos in beliebige Zielzellen einzufügen.
Nachdem Sie kostenlos installiertKutools für Excel haben, führen Sie die folgenden Schritte aus:
1. Klicken Sie auf die Zelle, in die der Inhalt der Textdatei importiert werden soll, und navigieren Sie dann zu KUTOOLS PLUS > Import/Export > Datei am Cursor einfügen. Siehe Screenshot:
2. Ein Dialogfeld erscheint. Klicken Sie auf Durchsuchen, um den Dateiauswahldialog zu öffnen. Wählen Sie in der Dropdown-Liste „Dateityp“ die Option Textdatei aus, und suchen Sie die Textdatei, die Sie einfügen möchten. Siehe Screenshot:
3. Klicken Sie auf Öffnen, gefolgt von OK. Der Inhalt Ihrer ausgewählten Textdatei wird in die markierte Zelle eingefügt. Siehe Screenshot:
Hinweise: Der Textinhalt wird in die ausgewählte Zelle importiert, wobei das ursprüngliche Format soweit wie möglich erhalten bleibt. Für optimale Ergebnisse stellen Sie sicher, dass die Zielzelle genügend Platz bietet, um die importierten Daten vollständig anzuzeigen oder zu erweitern. Um mehrere Inhalte gleichzeitig zu importieren, wiederholen Sie diese Funktion oder kombinieren Sie sie mit den Batch-Tools von Kutools.
Zusammenfassung: Für einfache oder einmalige Importe einzelner Dateien bietet Kutools benutzerfreundliche Optionen direkt im Arbeitsblatt, während VBA ideal für Anwender ist, die tiefere Anpassungsmöglichkeiten oder eine Batch-Verarbeitung ohne Abhängigkeit von Add-Ins benötigen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins