Hoe converteert u meerdere Excel-bestanden in één keer naar CSV-bestanden in Excel?
Het converteren van Excel-bestanden naar CSV-formaat kan eenvoudig met de functie ‘Opslaan als’, maar het handmatig verwerken van meerdere bestanden, één voor één, kost veel tijd. Wilt u meerdere Excel-bestanden batchgewijs converteren naar afzonderlijke CSV-bestanden? Dan biedt deze handleiding twee efficiënte methoden:
Converteer Excel-bestanden uit een map batchgewijs naar CSV-bestanden met VBA
Converteer werkbladen van een werkmap naar afzonderlijke CSV-bestanden met Kutools voor Excel 
Converteer Excel-bestanden uit een map batchgewijs naar CSV-bestanden met VBA
In Excel is er geen ingebouwde functie om deze taak snel uit te voeren, behalve met VBA.
1. Start Excel en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module om een nieuwe module aan te maken.
3. Kopieer de onderstaande code en plak deze in het nieuwe modulevenster.
VBA: Converteer Excel-bestanden batchgewijs naar 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 Sub4. Druk op F5 en selecteer in het eerste dialoogvenster de map met de Excel-bestanden die u wilt converteren naar CSV-bestanden.
5. Klik op OK en selecteer in het tweede dialoogvenster de map waarin de CSV-bestanden moeten worden opgeslagen.
6. Klik op OK; de Excel-bestanden in de map zijn nu geconverteerd naar CSV-bestanden en opgeslagen in een andere map.
Converteer werkbladen van een werkmap naar afzonderlijke CSV-bestanden met Kutools voor Excel
Zoals bekend kunt u in Excel met de functie Opslaan als alleen een volledige werkmap converteren naar één CSV-bestand. Soms wilt u echter afzonderlijke werkbladen opslaan als aparte CSV-bestanden. In dergelijke gevallen helpt de Werkboek splitsen-functie van Kutools voor Excel u daarbij.
1. Open de werkmap waarvan u de werkbladen als afzonderlijke CSV-bestanden wilt converteren en klik op KUTOOLS PLUS > Werkmap > Werkboek splitsen.
2. In het Werkboek splitsen-dialoogvenster vinkt u de namen van de werkbladen aan die u wilt splitsen (standaard zijn alle werkbladen geselecteerd), kiest u het type Opslaan als en selecteert u CSV (*.csv) in de keuzelijst.
3. Klik op Splitsen om het dialoogvenster Map zoeken te openen; kies een map of maak er een aan om de CSV-bestanden in op te slaan.
4. Klik op OK; de werkmap wordt nu opgesplitst in afzonderlijke CSV-bestanden.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Demo: Werkboek splitsen met behulp van Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins