Wie kann man mehrere CSV-Dateien in Excel in XLS(X)-Dateien umwandeln?

Eine CSV-Datei in eine XLS- oder XLSX-Datei umzuwandeln ist sehr einfach, indem Sie die Funktion „Speichern unter“ verwenden. Allerdings ist es zeitaufwendig, mehrere CSV-Dateien aus einem Ordner einzeln manuell zu konvertieren. Hier stelle ich einen Makro-Code vor, mit dem Sie schnell alle CSV-Dateien aus einem Ordner in XLS(x)-Dateien umwandeln können.

CSV-Dateien mit Makrocode im Batchverfahren in XLS(X)-Dateien umwandeln

CSV-Dateien mit Makrocode im Batchverfahren in XLS(X)-Dateien umwandeln

Um mehrere CSV-Dateien aus einem Ordner in XLS(X)-Dateien umzuwandeln, können Sie wie folgt vorgehen:

1. Öffnen Sie eine neue Arbeitsmappe und drücken Sie Alt + F11 um das Fenster Microsoft Visual Basic for Applications zu öffnen, und klicken Sie 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 dann den folgenden Makro-Code in das Modul-Skript ein und drücken Sie die F5-Taste, um den Code auszuführen.

VBA: CSV in XLS konvertieren

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 Sub

3. Wählen Sie im erscheinenden Dialogfenster den Ordner aus, der die CSV-Dateien enthält, die Sie konvertieren möchten. Siehe Screenshot:

4. Klicken Sie auf OK, alle CSV-Dateien im ausgewählten Ordner wurden in XLS-Dateien umgewandelt.

Tipp: Wenn Sie CSV-Dateien in XLSX-Dateien umwandeln möchten, können Sie den folgenden VBA-Code verwenden.

VBA: CSV-Dateien in XLSX konvertieren

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 Sub

Verwandte Artikel:

• Wie konvertiert man eine CSV-Datei in eine XLS-Datei oder importiert/öffnet CSV in Excel?
• Wie konvertiert man ein Word-Dokument in ein Excel-Arbeitsblatt?