Hoe converteer ik meerdere CSV-bestanden batchgewijs naar XLS (X) -bestanden in Excel?
Het converteren van een CSV-bestand naar XlS- of XLSX-bestand is heel eenvoudig voor u door de functie Opslaan als toe te passen. Het is echter tijdrovend om meerdere CSV-bestanden vanuit een map naar XLS- of XLSX-bestanden te converteren door ze een voor een handmatig op te slaan. Hier introduceer ik een macrocode om snel alle CSV-bestanden vanuit een map naar XLS (x) -bestanden te converteren.
Batch converteer CSV-bestanden naar XlS (X) -bestanden met macrocode
Batch converteer CSV-bestanden naar XlS (X) -bestanden met macrocode
Om meerdere CSV-bestanden van één map naar XLS (X) -bestanden te converteren, kunt u de onderstaande stappen uitvoeren:
1. Activeer een nieuwe werkmap, druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster en klik Invoegen > Module. Zie screenshot:
Note: Zorg ervoor dat alle CSV-bestanden die u wilt converteren, zijn gesloten.
2. Plak vervolgens onderstaande macrocode in het Module script en druk op F5 sleutel om de code uit te voeren.
VBA: converteer CSV naar 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 Sub
3. Selecteer in het pop-outvenster de opgegeven map met de CSV-bestanden die u wilt converteren. Zie screenshot:
4. klikken OK, zijn alle CSV-bestanden in de geselecteerde map geconverteerd naar XLS-bestanden erin.
Tip: Als u CSV-bestanden naar XLSX-bestanden wilt converteren, gebruikt u onderstaande VBA-code.
VBA: converteer CSV-bestanden naar 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
converteer of exporteer snel een reeks van een blad om XLS / Word / PDF- of andere formaatbestanden in één keer te scheiden
|
Normaal gesproken ondersteunt Excel u niet met een optie om snel een bereik te exporteren of op te slaan als een CSV- of Excel-bestand. Als u een gegevensbereik als CSV of werkmap in Excel wilt opslaan, moet u mogelijk een VBA-macro gebruiken om dit te doen of om het bereik naar het klembord te kopiëren en in een nieuwe werkmap te plakken en vervolgens de werkmap op te slaan als CSV of Werkboek. Kutools for Excel vergroot Excel met Bereik exporteren naar bestand hulpprogramma voor Excel-gebruikers die de volgende bewerkingen snel willen verwerken: Klik voor een gratis proefperiode van 30 dagen met volledige functionaliteit! |
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Relatieve artikelen:
- Hoe csv-bestand naar xls-bestand te converteren of csv in Excel te importeren / openen?
- Hoe Word-document naar Excel-werkblad te converteren?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!