Wie kann man schnell mehrere CSV- / Text- / XML-Dateien in Excel stapelweise importieren?
In Excel haben Sie möglicherweise eine Arbeitsmappe als CSV-Datei, Textdatei oder XML-Datei gespeichert, aber haben Sie jemals versucht, mehrere CSV- / Text- / XML-Dateien aus einem Ordner in eine Arbeitsmappe oder ein Arbeitsblatt zu importieren? In diesem Artikel stelle ich einige Methoden vor, um sie schnell im Batch zu importieren.
Importieren Sie mit VBA mehrere CSV-Dateien aus einem Ordner in ein einzelnes Blatt
Importieren Sie mit VBA mehrere XML-Dateien aus einem Ordner in ein einzelnes Blatt
Importieren oder kombinieren Sie mehrere XML / CSV-Dateien in ein Blatt oder eine Arbeitsmappe mit Kutools for Excel 
Exportieren Sie jedes Blatt als csv / text / pdf in einen Ordner mit Kutools for Excel
Importieren Sie mit VBA mehrere Textdateien aus einem Ordner in jedes Arbeitsblatt einer Arbeitsmappe
Um Textdateien aus einem Ordner in eine Arbeitsmappe zu importieren, können Sie unter VBA schnell damit umgehen.
1. Aktivieren Sie eine leere Arbeitsmappe und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie die VBA in die ein Modul Fenster.
VBA: Importieren Sie alle Textdateien aus einem Ordner in eine Arbeitsmappe
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 F5 Schlüssel oder Run Klicken Sie auf die Schaltfläche, um die VBA auszuführen, und wählen Sie im Popup-Dialogfeld einen Ordner aus, aus dem Sie die Textdateien importieren möchten. Siehe Screenshot:
4. Und klicken Sie auf OKund jede Textdatei im ausgewählten Ordner wurde in ein Arbeitsblatt der aktiven Arbeitsmappe importiert. Siehe Screenshot:
Kombinieren Sie einfach mehrere Blätter / Arbeitsmappen zu einem einzigen Blatt oder einer Arbeitsmappe
|
| Das Kombinieren mehrerer Blätter oder Arbeitsmappen zu einem Blatt oder einer Arbeitsmappe kann in Excel schwierig sein, aber mit dem Kombinieren Mit der Funktion in Kutools for Excel können Sie Dutzende von Arbeitsblättern / Arbeitsmappen zu einem Arbeitsblatt oder einer Arbeitsmappe zusammenführen. Außerdem können Sie die Arbeitsblätter mit nur mehreren Klicks zu einem einzigen zusammenfassen. Klicken Sie für Vollfunktion 30 Tage kostenlos testen! |
 |
| Kutools für Excel: mit mehr als 300 praktischen Excel-Add-Ins, die Sie ohne Einschränkung kostenlos ausprobieren können 30 Tage. |
Importieren Sie mit VBA mehrere CSV-Dateien aus einem Ordner in ein einzelnes Blatt
Um alle CSV-Dateien aus einem Ordner in ein einzelnes Blatt zu importieren, können Sie den folgenden VBA-Code verwenden.
1. Aktivieren Sie ein leeres Arbeitsblatt und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund unter VBA in das neue einfügen Modul Fenster.
VBA: Importieren Sie CSV-Dateien aus einem Ordner in ein Arbeitsblatt
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 F5 Taste oder klicken Run Klicken Sie auf die Schaltfläche, um die VBA auszuführen, und ein Dialogfeld wird angezeigt, in dem Sie einen Ordner auswählen können, aus dem Sie alle CSV-Dateien importieren möchten. Siehe Screenshot:
4 Klicken OKund ein Dialogfeld wird angezeigt, um Sie daran zu erinnern, ob der Inhalt des aktiven Arbeitsblatts vor dem Import gelöscht wurde. Hier klicke ich Ja. Siehe Screenshot:
Nach einem Klick JaAlle CSV-Dateien im ausgewählten Ordner werden in das aktuelle Blatt importiert und die Daten aus Spalte A nach rechts platziert. Siehe Screenshot:
TIPP: Wenn Sie CSV-Dateien horizontal in einem Arbeitsblatt platzieren möchten, können Sie sie unter VBA 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 
Importieren Sie mit VBA mehrere XML-Dateien aus einem Ordner in ein einzelnes Blatt
Wenn Sie alle XML-Dateien aus einem Ordner in ein einzelnes Blatt importieren möchten, können Sie den folgenden VBA-Code verwenden.
1. Wählen Sie ein leeres Blatt aus, in das Sie die importierten Daten einfügen möchten, und drücken Sie Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > ModulFügen Sie VBA-Code in das Feld ein Modul Fenster.
VBA: Importieren Sie XML-Dateien aus einem Ordner in ein Arbeitsblatt.
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 Run Knopf oder F5 Taste zum Ausführen des VBA und Auswählen eines Ordners im Popup-Dialogfeld, siehe Screenshot:
4 Klicken OKund alle XML-Dateien im ausgewählten Ordner werden in das aktive Blatt importiert.
Importieren oder kombinieren Sie mehrere XML / CSV-Dateien in ein Blatt oder eine Arbeitsmappe mit Kutools for Excel
Wenn Sie mit VBA nicht vertraut sind, machen Sie sich Sorgen, hier stelle ich ein praktisches Tool vor - Kutools for Excel für dich. Mit seiner Kraft Kombinieren Dienstprogramm, können Sie schnell mehrere XML-Dateien oder CSV-Dateien in einer Arbeitsmappe oder einer Excel-Tabelle kombinieren.
| Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. | ||
Nach der Installation Kutools für Excel, bitte gehen Sie wie folgt vor:（Kutools für Excel jetzt kostenlos herunterladen!)
1. Active Excel und klicken Sie auf Kutoolen Plus > Kombinieren. Siehe Screenshot:
2. Und in der Schritt 1 von Kombinieren Wählen Sie im Dialogfeld eine Trennoption nach Bedarf aus. Siehe Screenshot:
3 Klicken Weiter um zu gehen Schritt 2 des Kombinats, klicken Verwenden Sie um Dateien aus verschiedenen Ordnern oder Dateien aus einem Ordner hinzuzufügen Workbook Sie können auch die Blätter angeben, aus denen Sie kombinieren möchten Arbeitsblatt Liste des rechten Abschnitts. Siehe Screenshot:
4 Klicken Weiter bis zum letzten Schritt von Kombinieren, und Sie können die Kombinationsoptionen angeben.
5 Klicken EndzielEin Dialogfeld wird angezeigt, in dem Sie daran erinnert werden, dass Sie einen Speicherort für das neue kombinierte Ergebnis ausgewählt haben. Siehe Screenshot:
6 Klicken Sie sparen. Alle hinzugefügten Blätter wurden zu einem neuen Einzelblatt zusammengefasst.
TIPP: Mit Kombinierenkönnen Sie auch mehrere kombinieren CSV-Dateien Bilden Sie mehrere Ordner oder einen Ordner zu einem Blatt oder einer Arbeitsmappe.
Kombinieren Sie mehrere XML / CVS-Dateien zu einem Blatt / einer Arbeitsmappe
Exportieren Sie jedes Blatt als csv / text / pdf in einen Ordner mit Kutools for Excel
Wenn Sie jedes Blatt als CSV- / Text- / PDF-Datei in einen Ordner exportieren möchten, Kutools for Excel Arbeitsmappe teilen Dienstprogramm kann einen Gefallen für Sie tun.
Nachher kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:
1. Aktivieren Sie die Arbeitsmappe, deren Arbeitsblätter Sie exportieren möchten, und klicken Sie auf Kutoolen Plus > Workbook > Arbeitsmappe teilen. Siehe Screenshot:
2. In dem Arbeitsmappe teilen Im Dialogfeld können Sie die zu exportierenden Blattnamen überprüfen. Standardmäßig werden alle Blätter überprüft und überprüft Geben Sie das Sicherungsformat an und wählen Sie das zu speichernde Dateiformat aus der Dropdown-Liste aus. Siehe Screenshot:
3 Klicken Split und wählen Sie einen Ordner aus, in dem die geteilten Dateien gespeichert werden sollen Suche nach Ordner Dialog, siehe Screenshot:
4 Klicken OKJetzt werden alle markierten Blätter als neues Dateiformat in den ausgewählten Ordner exportiert.
Exportieren Sie jedes Blatt als einzelne XML / CSV / TXT / PDF-Datei
Relative Artikel:
- Wie konvertiere ich einen Hyperlink in Excel in einfachen Text?
- Wie konvertiere ich eine Dezimalzahl in eine Binär- / Oktal- / Hexadezimalzahl oder umgekehrt in Excel?
- Wie füge ich einen Live-Wechselkurs in Excel ein?
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
