Wie kann man mehrere Excel-Dateien gleichzeitig in CSV-Dateien konvertieren?

Das Konvertieren von Excel-Dateien in das CSV-Format kann mit der Funktion „Speichern unter“ durchgeführt werden, aber das manuelle Bearbeiten mehrerer Dateien einzeln ist zeitaufwendig. Wenn Sie mehrere Excel-Dateien in separate CSV-Dateien umwandeln müssen, bietet diese Anleitung zwei effiziente Methoden:

Stapelweise Excel-Dateien eines Ordners in CSV-Dateien mit VBA konvertieren

Arbeitsblätter einer Arbeitsmappe in separate CSV-Dateien mit Kutools für Excel konvertieren

Stapelweise Excel-Dateien eines Ordners in CSV-Dateien mit VBA konvertieren

In Excel gibt es keine integrierte Funktion, um diese Aufgabe schnell auszuführen, außer mit VBA.

1. Öffnen Sie Excel, 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, um ein neues Modul zu erstellen.

3. Kopieren Sie den folgenden Code und fügen Sie ihn in das neue Modulfenster ein.

VBA: Stapelweise Excel-Dateien in CSV konvertieren

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 Sub

4. Drücken Sie F5 , wählen Sie im ersten Dialogfenster den Ordner aus, der die Excel-Dateien enthält, die Sie in CSV-Dateien konvertieren möchten.

5. Klicken Sie auf OK, dann wählen Sie im zweiten Dialogfenster den Ordner aus, in dem die CSV-Dateien gespeichert werden sollen.

6. Klicken Sie auf OK, nun wurden die Excel-Dateien im Ordner in CSV-Dateien konvertiert und in einem anderen Ordner gespeichert.

Arbeitsblätter einer Arbeitsmappe in separate CSV-Dateien mit Kutools für Excel konvertieren

Wie wir wissen, können wir nur eine ganze Arbeitsmappe in eine CSV-Datei in Excel mit der Funktion „Speichern unter“ konvertieren. Manchmal möchten Sie jedoch einzelne Arbeitsblätter in CSV-Dateien umwandeln. In solchen Fällen kann Ihnen das Hilfsprogramm „Arbeitsmappe trennen“ von Kutools für Excel helfen.

1. Öffnen Sie die Arbeitsmappe, deren Blätter Sie als separate CSV-Dateien konvertieren möchten, und klicken Sie auf Kutools Plus > Arbeitsmappe > Arbeitsmappe trennen.

2. Im Arbeitsmappe trennen Dialogfenster aktivieren Sie die Namen der Blätter, die Sie trennen möchten (standardmäßig sind alle Blätter aktiviert), und aktivieren Sie Speichern unter Typ, wählen Sie CSV (Macintosh) (*.csv) aus der Dropdown-Liste aus.

3. Klicken Sie auf Aufteilen um ein Ordner durchsuchen Dialogfenster zu öffnen, wählen Sie einen Ordner aus oder erstellen Sie einen neuen, um die CSV-Dateien zu speichern.

4. Klicken Sie auf OK, und die Arbeitsmappe wird in separate CSV-Dateien aufgeteilt.

Demo: Arbeitsmappe mit Kutools für EXCEL aufteilen