Wie lassen sich mehrere Excel-Dateien in Excel stapelweise in CSV-Dateien konvertieren?
Die Konvertierung von Excel-Dateien in das CSV-Format lässt sich zwar über die Funktion „Speichern unter“ durchführen – doch die manuelle Bearbeitung mehrerer Dateien nacheinander kostet wertvolle Zeit. Müssen Sie gleich mehrere Excel-Dateien auf einmal in jeweils separate CSV-Dateien umwandeln, zeigt Ihnen dieser Leitfaden zwei effiziente Methoden:
Stapelweise Konvertierung von Excel-Dateien eines Ordners in CSV-Dateien mit VBA
Umwandlung der Arbeitsblätter einer Arbeitsmappe in separate CSV-Dateien mit Kutools für Excel 
Stapelweise Konvertierung von Excel-Dateien eines Ordners in CSV-Dateien mit VBA
In Excel gibt es keine integrierte Funktion, um diese Aufgabe schnell auszuführen – außer der Verwendung von VBA.
1. Öffnen Sie Excel und drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, um ein neues Modul zu erstellen.
3. Kopieren Sie den folgenden Code, und fügen Sie ihn in das neue Modulfenster ein.
VBA: Stapelweise Konvertierung von Excel-Dateien in CSV
Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjFD.AllowMultiSelect = False
xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
If xObjFD.Show <> -1 Then Exit Sub
xStrEFPath = xObjFD.SelectedItems(1) & "\"
Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjSFD.AllowMultiSelect = False
xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
If xObjSFD.Show <> -1 Then Exit Sub
xStrSPath = xObjSFD.SelectedItems(1) & "\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
xS = xStrEFPath & xStrEFFile
Set xObjWB = Application.Workbooks.Open(xS)
xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
xObjWB.Close savechanges:=False
xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub4. Drücken Sie die F5-Taste und wählen Sie im ersten erscheinenden Dialogfeld den Ordner aus, der die Excel-Dateien enthält, die Sie in CSV-Dateien konvertieren möchten.
5. Klicken Sie auf OK, und wählen Sie im zweiten erscheinenden Dialogfeld den Ordner aus, in dem die CSV-Dateien gespeichert werden sollen.
6. Klicken Sie auf OK – die Excel-Dateien im Ordner wurden nun in CSV-Dateien konvertiert und in einem anderen Ordner gespeichert.
Umwandlung der Arbeitsblätter einer Arbeitsmappe in separate CSV-Dateien mit Kutools für Excel
Bekanntermaßen können Sie mit der Funktion „Speichern unter“ in Excel nur die gesamte Arbeitsmappe in eine einzige CSV-Datei konvertieren. Manchmal benötigen Sie jedoch einzelne Arbeitsblätter als separate CSV-Dateien. In solchen Fällen unterstützt Sie das Arbeitsmappe trennen-Tool von Kutools für Excel.
1. Öffnen Sie die Arbeitsmappe, deren Arbeitsblätter Sie als separate CSV-Dateien exportieren möchten, und klicken Sie auf KUTOOLS PLUS > Arbeitsmappe > Arbeitsmappe trennen.
2. Aktivieren Sie im Dialogfeld Arbeitsmappe trennen die Namen der Arbeitsblätter, die Sie aufteilen möchten (standardmäßig sind alle Arbeitsblätter ausgewählt), aktivieren Sie die Option Speichern unter, und wählen Sie CSV (*.csv) aus dem Dropdown-Menü aus.
3. Klicken Sie auf Teilen, um das Dialogfeld Ordner durchsuchen zu öffnen, und wählen oder erstellen Sie einen Ordner für die CSV-Dateien.
4. Klicken Sie auf OK, und die Arbeitsmappe wird in separate CSV-Dateien aufgeteilt.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Demo: Arbeitsmappe trennen mit Kutools für Excel
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