Wie führt man eine Stapelkonvertierung mehrerer CSV-Dateien in XLS(X)-Dateien in Excel durch?
Die Konvertierung einer CSV-Datei in eine XLS- oder XLSX-Datei ist mit der Funktion „Speichern unter“ kinderleicht. Doch sobald Sie mehrere CSV-Dateien aus einem Ordner einzeln und manuell speichern müssen, wird der Vorgang schnell zeitaufwändig. Hier stelle ich Ihnen einen Makrocode vor, mit dem Sie alle CSV-Dateien aus einem Ordner im Handumdrehen stapelweise in XLS(X)-Dateien umwandeln können.
Stapelkonvertierung von CSV-Dateien in XLS(X)-Dateien mithilfe eines Makrocodes
Stapelkonvertierung von CSV-Dateien in XLS(X)-Dateien mithilfe eines Makrocodes
Um mehrere CSV-Dateien aus einem Ordner in XLS(X)-Dateien zu konvertieren, gehen Sie wie folgt vor:
1. Aktivieren Sie ein neues Arbeitsblatt und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen. Klicken Sie anschließend auf Einfügen > Modul. Siehe Screenshot:
Hinweis: Stellen Sie sicher, dass alle CSV-Dateien, die Sie konvertieren möchten, geschlossen sind.
2. Fügen Sie anschließend den folgenden Makrocode in das Modul-Skript ein und drücken Sie die Taste F5, um den Code auszuführen.
VBA: Konvertierung von CSV in XLS
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub3. Wählen Sie im erscheinenden Dialogfeld den Ordner aus, der die zu konvertierenden CSV-Dateien enthält – siehe Screenshot:
4. Klicken Sie auf OK, und alle CSV-Dateien im ausgewählten Ordner werden darin in XLS-Dateien konvertiert.
Tipp: Möchten Sie CSV-Dateien in XLSX-Dateien konvertieren, verwenden Sie den folgenden VBA-Code.
VBA: Konvertierung von CSV-Dateien in XLSX
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End SubBereich in separate XLS-, Word-, PDF-Dateien und mehr konvertieren oder exportieren |
Normalerweise bietet Excel keine schnelle Möglichkeit, einen markierten Bereich direkt als CSV-, Excel- oder anderen Dateityp zu exportieren oder zu speichern. Um dies zu erreichen, müssten Sie entweder ein VBA-Makro verwenden oder den Bereich manuell in ein neues Arbeitsblatt kopieren, bevor Sie ihn speichern können.Kutools für Excel vereinfacht diesen Vorgang mit seinem Bereich in Datei exportieren-Tool – so erledigen Sie diese Aufgabe schnell und einfach mit nur wenigen Klicks. |
|
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu gestalten, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen |
Verwandte Artikel:
- Wie konvertiert man eine CSV-Datei in eine XLS-Datei oder importiert bzw. öffnet sie in Excel?
- Wie konvertiert man ein Word-Dokument in ein Excel-Arbeitsblatt?
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