Wie importiert man mehrere CSV-, Text- oder XML-Dateien schnell und im Batch-Verfahren in Excel?
In Excel haben Sie wahrscheinlich schon einmal versucht, eine Arbeitsmappe als CSV-, Text- oder XML-Datei zu speichern – aber haben Sie jemals mehrere CSV-, Text- oder XML-Dateien aus einem Ordner gleichzeitig in eine Arbeitsmappe oder ein Arbeitsblatt importiert? In diesem Artikel stelle ich Ihnen einige Methoden vor, um diese Dateien schnell und im Batch zu importieren.
Mehrere Textdatei aus einem Ordner mit VBA in jeweils eigene Arbeitsblätter einer Arbeitsmappe importieren
Um eine Textdatei aus einem Ordner in eine Arbeitsmappe zu importieren, können Sie das folgende VBA-Makro verwenden.
1. Öffnen Sie eine leere Arbeitsmappe und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie das VBA-Makro in das Modul-Fenster ein.
VBA: Alle Textdatei aus einem Ordner in eine Arbeitsmappe importieren
Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do While xFile <> ""
xCount = xCount + 1
Sheets(xCount).Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Name = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
xFile = Dir
End With
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files txt", , "Kutools for Excel"
End Sub3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um das VBA-Makro zu starten, und wählen Sie im erscheinenden Dialogfeld den Ordner aus, aus dem Sie die Textdatei importieren möchten. Siehe Screenshot:
4. Klicken Sie auf OK, und jede Textdatei im ausgewählten Ordner wird in ein eigenes Arbeitsblatt der aktuellen Arbeitsmappe importiert. Siehe Screenshot:
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Mehrere CSV-Dateien aus einem Ordner mit VBA in ein einzelnes Arbeitsblatt importieren
Um alle CSV-Dateien aus einem Ordner in ein einzelnes Arbeitsblatt zu importieren, verwenden Sie einfach den folgenden VBA-Code.
1. Öffnen Sie ein leeres Arbeitsblatt und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das neue Modul-Fenster ein.
VBA: CSV-Dateien aus einem Ordner in ein Arbeitsblatt importieren
Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
xWb.Close False
xFile = Dir
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um das VBA-Makro auszuführen. Anschließend erscheint ein Dialogfeld, in dem Sie den Ordner auswählen können, aus dem alle CSV-Dateien importiert werden sollen. Siehe Screenshot:
4. Klicken Sie auf OK, und es erscheint ein weiteres Dialogfeld, das Sie fragt, ob der Inhalt des aktiven Arbeitsblatts vor dem Import gelöscht werden soll. Hier klicke ich auf Ja. Siehe Screenshot:
Nachdem Sie auf Ja geklickt haben, werden alle CSV-Dateien aus dem ausgewählten Ordner in das aktuelle Arbeitsblatt importiert und die Daten ab Spalte A nach rechts eingefügt. Siehe Screenshot:
Tipp: Wenn Sie CSV-Dateien horizontal in ein Arbeitsblatt einfügen möchten, können Sie das folgende VBA-Makro verwenden.
Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
xSht.UsedRange.Clear
xCount = 1
Else
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
End If
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Rows(1).Insert xlShiftDown
Range("A1") = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
xWb.Close False
xFile = Dir
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub 
Mehrere XML-Dateien aus einem Ordner mit VBA in ein einzelnes Arbeitsblatt importieren
Möchten Sie alle XML-Dateien aus einem Ordner in ein einzelnes Arbeitsblatt importieren, steht Ihnen der folgende VBA-Code zur Verfügung.
1. Wählen Sie ein leeres Arbeitsblatt aus, in das Sie die importierten Daten einfügen möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den VBA-Code in das Modul-Fenster ein.
VBA: XML-Dateien aus einem Ordner in ein Arbeitsblatt importieren.
Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
Set xSWb = ThisWorkbook
xCount = 1
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
xWb.Close False
xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
Exit Sub
ErrHandler:
MsgBox "no files xml", , "Kutools for Excel"
End Sub3. Klicken Sie auf die Schaltfläche Ausführen oder drücken Sie die Taste F5, um das VBA-Makro auszuführen, und wählen Sie im erscheinenden Dialogfeld den Ordner aus. Siehe Screenshot:
4. Klicken Sie auf OK, und alle XML-Dateien im ausgewählten Ordner werden in das aktuelle Arbeitsblatt importiert.
Mehrere XML-/CSV-Dateien mit Kutools für Excel in ein Arbeitsblatt oder eine Arbeitsmappe importieren oder zusammenführen
Keine Sorge, wenn Sie mit VBA nicht vertraut sind! Hier stelle ich Ihnen ein praktisches Tool vor – Kutools für Excel. Mit seinem leistungsstarken Zusammenführen-Assistenten fügen Sie mehrere XML- oder CSV-Dateien im Handumdrehen in eine Arbeitsmappe oder ein einzelnes Excel-Arbeitsblatt zusammen.
Nach der Installation von Kutools für Excel gehen Sie wie folgt vor:(Kostenlos herunterladen Kutools für Excel jetzt!)
1. Aktivieren Sie Excel und klicken Sie auf KUTOOLS PLUS > Zusammenführen. Siehe Screenshot:
2. Wählen Sie im Schritt 1 des Assistenten „Zusammenführen“ eine Trennungsoption entsprechend Ihren Anforderungen aus. Siehe Screenshot:
3. Klicken Sie auf Weiter, um zum Schritt 2 des Assistenten „Zusammenführen“ zu gelangen. Klicken Sie auf Hinzufügen, um Dateien aus verschiedenen Ordnern oder mehrere Dateien aus einem Ordner zur Liste Arbeitsmappe hinzuzufügen. Außerdem können Sie in der Liste Arbeitsblatt im rechten Bereich festlegen, welche Blätter zusammengeführt werden sollen. Siehe Screenshot:
4. Klicken Sie auf Weiter, um zum Letzte Zelle-Schritt des Assistenten Zusammenführenzu gelangen, und legen Sie dort die Zusammenführungsoptionen fest.
5. Klicken Sie auf Fertig stellen, und es erscheint ein Dialogfeld, in dem Sie einen Speicherort für das neue zusammengeführte Ergebnis auswählen müssen. Siehe Screenshot:
6. Klicken Sie auf Speichern. Alle hinzugefügten Blätter wurden in ein neues, einzelnes Arbeitsblatt zusammengeführt.
Tipp: Mit dem Assistenten Zusammenführen können Sie auch mehrere CSV-Dateien aus mehreren Ordnern oder einem einzelnen Ordner in ein Arbeitsblatt oder eine Arbeitsmappe zusammenführen.
Jedes Arbeitsblatt als CSV/Text/PDF mit Kutools für Excel in einen Ordner exportieren
Wenn Sie jedes Arbeitsblatt als CSV-, Text- oder PDF-Datei in einen Ordner exportieren möchten, unterstützt Sie das Kutools für Excel-Arbeitsmappe trennen-Tool dabei.
Nachdem Sie Kutools für Excel kostenlos heruntergeladen und installiert haben, gehen Sie wie folgt vor:Kutools für Excel
1. Öffnen Sie die Arbeitsmappe, deren Arbeitsblätter Sie exportieren möchten, und klicken Sie auf KUTOOLS PLUS > Arbeitsmappe > Arbeitsmappe trennen. Siehe Screenshot:
2. Im Dialogfeld Arbeitsmappe trennen können Sie die Namen der Blätter auswählen, die Sie exportieren möchten. Standardmäßig sind alle Blätter ausgewählt. Aktivieren Sie das Kontrollkästchen Speicherformat festlegen, und wählen Sie den gewünschten Dateityp aus der Dropdown-Liste darunter aus. Siehe Screenshot:
3. Klicken Sie auf Teilen und wählen Sie im Dialogfeld Ordner durchsuchen den Speicherort für die geteilten Dateien aus. Siehe Screenshot:
4. Klicken Sie auf OK, und alle ausgewählten Blätter werden im gewählten Ordner als neuer Dateityp exportiert.
Verwandte Artikel:
- Wie wandelt man einen Hyperlink in Excel in reinen Text um?
- Wie wandelt man eine Dezimalzahl in eine Binär-, Oktal- oder Hexadezimalzahl um – oder umgekehrt – in Excel?
- Wie fügt man in Excel einen aktuellen Wechselkurs ein?
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