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 Sub
3. Drücken Sie F5 Schlüssel oder Führen Sie 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 hier für eine 30-tägige kostenlose Testversion mit vollem Funktionsumfang! |
Kutools für Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
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 Sub
3. Drücken Sie F5 Taste oder klicken Führen Sie 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 Sub
3 Klicken Führen Sie 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 Speichern 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 Speichern. Alle hinzugefügten Blätter wurden zu einem neuen Einzelblatt zusammengefasst.
TIPP: Mit der 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.
Nach der 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?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!