Hoe converteer je meerdere Excel-bestanden in bulk naar CSV-bestanden in Excel?

Het converteren van Excel-bestanden naar CSV-formaat kan worden gedaan met behulp van de functie 'Opslaan als', maar het handmatig verwerken van meerdere bestanden één voor één is tijdrovend. Als je meerdere Excel-bestanden in bulk moet converteren naar afzonderlijke CSV-bestanden, biedt deze handleiding twee efficiënte methoden:

Converteer in bulk Excel-bestanden van een map naar CSV-bestanden met VBA

Converteer werkbladen van een werkboek naar afzonderlijke CSV-bestanden met Kutools voor Excel

Converteer in bulk Excel-bestanden van een map naar CSV-bestanden met VBA

In Excel is er geen ingebouwde functie om deze taak snel uit te voeren, behalve met behulp van VBA.

1. Open 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 te maken.

3. Kopieer onderstaande code en plak deze in het nieuwe modulevenster.

VBA: Converteer in bulk Excel-bestanden 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 Sub

4. Druk op F5 toets, selecteer de map die de Excel-bestanden bevat die je wilt converteren naar CSV-bestanden in het eerste pop-updialoogvenster.

5. Klik op OK, daarna selecteer je in het tweede pop-updialoogvenster de map waarin de CSV-bestanden moeten worden geplaatst.

6. Klik op OK, nu zijn de Excel-bestanden in de map geconverteerd naar CSV-bestanden en opgeslagen in een andere map.

Converteer werkbladen van een werkboek naar afzonderlijke CSV-bestanden met Kutools voor Excel

Zoals we weten, kunnen we alleen het hele werkboek converteren naar één CSV-bestand in Excel met de functie Opslaan als. Soms moet je mogelijk individuele werkbladen converteren naar CSV-bestanden. In dergelijke gevallen kan de functie Werkboek splitsen van Kutools voor Excel helpen.

1. Open het werkboek dat je wilt converteren naar afzonderlijke CSV-bestanden en klik op Kutools Plus > Werkboek > Werkboek splitsen.

2. In het Werkboek splitsen dialoogvenster, vink de naam van het werkblad aan dat je wilt splitsen (alle werkbladen zijn standaard aangevinkt), vink Opslaan als type aan, kies CSV (Macintosh) (*.csv) uit de keuzelijst.

3. Klik op Splitsen om een Bladeren naar map dialoogvenster te openen, kies of maak een map om de CSV-bestanden te plaatsen.

4. Klik op OK, en het werkboek zal worden gesplitst in afzonderlijke CSV-bestanden.

Demo: Werkboek splitsen met Kutools voor EXCEL