Kako paketno pretvoriti več datotek Excel v datoteke CSV v Excelu?

Datoteke Excel lahko pretvorite v format CSV s funkcijo »Shrani kot«, vendar je ročna obdelava več datotek eno za drugo dolgotrajna. Če morate paketno pretvoriti več Excelovih datotek v ločene datoteke CSV, ta priročnik ponuja dva učinkovita načina:

Paketno pretvorite datoteke Excel iz mape v datoteke CSV z VBA

Pretvorite liste delovnega zvezka v ločene datoteke CSV s programom Kutools za Excel

Paketno pretvorite datoteke Excel iz mape v datoteke CSV z VBA

V Excelu ni vgrajene funkcije za hitro izvedbo te naloge, razen z uporabo VBA.

1. Omogočite Excel in pritisnite Alt + F11 tipke odprte Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli ustvariti nov modul.

3. Kopirajte spodnjo kodo in jih prilepite v novo okno modula.

VBA: paketno pretvorite datoteke Excel v 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. Pritisnite F5 v prvem pogovornem oknu izberite mapo z datotekami Excel, ki jih želite pretvoriti v datoteke CSV.

5. klik OK, nato v drugem pojavnem pogovornem oknu izberite mapo, kamor želite namestiti datoteke CSV.

6. klik OK, zdaj so datoteke Excel v mapi pretvorjene v datoteke CSV in shranjene v drugo mapo.

Pretvorite liste delovnega zvezka v ločene datoteke CSV s programom Kutools za Excel

Kot vemo, lahko celoten delovni zvezek pretvorimo samo v eno datoteko CSV v Excelu s funkcijo Shrani kot. Včasih boste morda morali posamezne liste pretvoriti v datoteke CSV. V takih primerih je Razdeljeni delovni zvezek uporabnost Kutools za Excel lahko pomaga.

1. Omogočite delovni zvezek, v katerega želite pretvoriti njegove liste kot ločene datoteke CSV, kliknite Kutools Plus > Delovni zvezek > Razdeljeni delovni zvezek.

2. V Ljubljani Razdeljeni delovni zvezek pogovorno okno, označite ime lista, ki ga želite razdeliti (vsi listi so privzeto označeni), označite Shrani kot tip, izberite CSV (Macintosh) (* .CSV) s spustnega seznama.

3. klik Split izstopiti a Brskaj po mapi pogovorno okno, izberite ali ustvarite mapo, v katero želite namestiti datoteke CSV.

4. klik OK, in delovni zvezek bo razdeljen na ločene datoteke CSV.

Demo: Razdeli delovni zvezek z uporabo Kutools for EXCEL