Wie konvertiere ich mehrere Excel-Dateien stapelweise in CSV-Dateien in Excel?
In Excel können wir die Arbeitsmappe mit der Funktion Speichern unter in eine CSV-Datei konvertieren. Können Sie jedoch wissen, wie mehrere Excel-Dateien stapelweise in separate CSV-Dateien konvertiert werden? In diesem Artikel stelle ich einen VBA-Code vor, mit dem alle Excel-Dateien in einem Ordner stapelweise in CSV-Dateien in Excel konvertiert werden können.
Batch-Konvertierung von Excel-Dateien eines Ordners in CSV-Dateien mit VBA
Konvertieren Sie Arbeitsmappenblätter mit Kutools for Excel in separate CSV-Dateien
Batch-Konvertierung von Excel-Dateien eines Ordners in CSV-Dateien mit VBA
In Excel gibt es keine integrierte Funktion, die diesen Job schnell lösen kann, außer VBA.
1. Aktivieren Sie Excel und drücken Sie Alt + F11 Schlüssel öffnen sich Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modul um ein neues Modul zu erstellen.
3. Kopieren Sie den folgenden Code und fügen Sie ihn in das neue Modulfenster ein.
VBA: Batch-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 Sub
4. Drücken Sie F5 Wählen Sie mit der Taste den Ordner aus, der die Excel-Dateien enthält, die Sie im ersten Dialogfeld in CSV-Dateien konvertieren möchten.
5 Klicken OKWählen Sie dann im zweiten Dialogfeld den Ordner aus, in dem die CSV-Dateien abgelegt werden sollen.
6 Klicken OKJetzt wurden die Excel-Dateien im Ordner in CSV-Dateien konvertiert und in einem anderen Ordner gespeichert.
Konvertieren Sie Arbeitsmappenblätter mit Kutools for Excel in separate CSV-Dateien
Wie wir wissen, können wir mit der Funktion Speichern unter nur die gesamte Arbeitsmappe in eine CSV-Datei in Excel konvertieren. In einigen Fällen möchten Sie jedoch das einzelne Blatt in eine CSV-Datei konvertieren, in diesem Fall die Arbeitsmappe teilen Nutzen von Kutools for Excel Zeit und Geld sparen.
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. Aktivieren Sie die Arbeitsmappe, deren Blätter Sie als separate CSV-Dateien konvertieren möchten, und klicken Sie auf Kutoolen Plus > Workbook > Arbeitsmappe teilen.
2. In dem Arbeitsmappe teilen Überprüfen Sie im Dialogfeld den Blattnamen, den Sie teilen möchten (alle Blätter sind standardmäßig aktiviert) speichern unter Typ, wählen CSV (Macintosh) (* .CSV) aus der Dropdown-Liste.
3 Klicken Split herausspringen a Suche nach Ordner Wählen Sie im Dialogfeld einen Ordner aus oder erstellen Sie ihn, um die CSV-Dateien zu platzieren.
4 Klicken OKJetzt wurde die Arbeitsmappe als separate CSV-Dateien aufgeteilt.
Arbeitsmappe teilen
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!