Wie kann ich mehrere CSV-Dateien in Excel stapelweise in XLS (X) -Dateien konvertieren?
Das Konvertieren einer CSV-Datei in eine XlS- oder XLSX-Datei ist für Sie sehr einfach, indem Sie die Funktion Speichern unter anwenden. Das Konvertieren mehrerer CSV-Dateien aus einem Ordner in XLS- oder XLSX-Dateien ist jedoch zeitaufwändig, da sie einzeln manuell gespeichert werden. Hier stelle ich einen Makrocode vor, mit dem alle CSV-Dateien aus einem Ordner schnell in XLS (x) -Dateien stapelweise konvertiert werden können.
Batch-Konvertierung von CSV-Dateien in XlS (X) -Dateien mit Makrocode
Batch-Konvertierung von CSV-Dateien in XlS (X) -Dateien mit Makrocode
Um mehrere CSV-Dateien aus einem Ordner in XLS (X) -Dateien zu konvertieren, gehen Sie wie folgt vor:
1. Aktivieren Sie eine neue Arbeitsmappe und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster, und klicken Sie auf Insert > Modul. Siehe Screenshot:
Note: Stellen Sie sicher, dass alle CSV-Dateien, die Sie konvertieren möchten, geschlossen sind.
2. Fügen Sie dann den folgenden Makrocode in das ein Modul Skript und drücken Sie F5 Schlüssel zum Ausführen des Codes.
VBA: Konvertieren Sie 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 Dialogfeld "Herausspringen" den angegebenen Ordner mit den CSV-Dateien aus, die Sie konvertieren möchten. Siehe Screenshot:
4 Klicken OKAlle CSV-Dateien im ausgewählten Ordner wurden in XLS-Dateien konvertiert.
Tipp: Wenn Sie CSV-Dateien in XLSX-Dateien konvertieren möchten, verwenden Sie den folgenden VBA-Code.
VBA: Konvertieren Sie 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 Sub
Konvertieren oder exportieren Sie schnell einen Bereich eines Blattes, um XLS / Word / PDF- oder andere Formatdateien auf einmal zu trennen
|
| Normalerweise unterstützt Excel Sie nicht mit der Option, einen Bereich schnell als CSV- oder Excel-Datei zu exportieren oder zu speichern. Wenn Sie einen Datenbereich als CSV oder Arbeitsmappe in Excel speichern möchten, müssen Sie möglicherweise ein VBA-Makro verwenden, um dies zu tun, oder den Bereich in die Zwischenablage kopieren und in eine neue Arbeitsmappe einfügen und dann die Arbeitsmappe als CSV oder speichern Arbeitsmappe. Kutools for Excel erweitert Excel mit Bereich in Datei exportieren Dienstprogramm für Excel-Benutzer, die die folgenden Vorgänge schnell verarbeiten möchten: Klicken Sie hier für eine 30-tägige kostenlose Testversion mit vollem Funktionsumfang! |
 |
| Kutools für Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Relative Artikel:
- Wie konvertiere ich eine CSV-Datei in eine XLS-Datei oder importiere / öffne eine CSV-Datei in Excel?
- Wie konvertiere ich 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, 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!
