Come convertire in batch più file Excel in file CSV in Excel?

La conversione dei file Excel in formato CSV può essere eseguita utilizzando la funzione "Salva con nome", ma elaborare manualmente più file uno per uno è dispendioso in termini di tempo. Se hai bisogno di convertire in batch più file Excel in file CSV separati, questa guida offre due metodi efficienti:

Convertire in batch i file Excel di una cartella in file CSV con VBA

Convertire i fogli di lavoro di una cartella di lavoro in file CSV separati con Kutools per Excel

Convertire in batch i file Excel di una cartella in file CSV con VBA

In Excel, non esiste una funzione incorporata per eseguire rapidamente questa operazione, a meno di non utilizzare VBA.

1. Apri Excel e premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo per creare un nuovo Modulo.

3. Copia il codice sottostante e incollalo nella nuova finestra del Modulo.

VBA: Convertire in batch i file Excel in 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. Premi F5 seleziona la cartella che contiene i file Excel che desideri convertire in file CSV nella prima finestra di dialogo che appare.

5. Clicca OK, quindi nella seconda finestra di dialogo che appare, seleziona la cartella in cui salvare i file CSV.

6. Clicca OK, ora i file Excel nella cartella sono stati convertiti in file CSV e salvati in un'altra cartella.

Convertire i fogli di lavoro di una cartella di lavoro in file CSV separati con Kutools per Excel

Come sappiamo, possiamo convertire l'intera cartella di lavoro in un unico file CSV in Excel utilizzando la funzione Salva con nome. A volte, potresti aver bisogno di convertire singoli fogli in file CSV. In questi casi, lo strumento Dividi Cartella di Lavoro di Kutools per Excel può aiutarti.

1. Apri la cartella di lavoro che desideri convertire nei suoi fogli come file CSV separati, clicca Kutools Plus > Cartella di lavoro > Dividi Cartella di Lavoro.

2. Nella Dividi Cartella di Lavoro finestra di dialogo, seleziona i nomi dei fogli che desideri dividere (tutti i fogli sono selezionati per impostazione predefinita), seleziona Salva con nome tipo, scegli CSV (Macintosh) (*.csv) dall'elenco a discesa.

3. Clicca Dividi per far apparire una finestra di dialogo Sfoglia Cartella scegli o crea una cartella in cui salvare i file CSV.

4. Clicca OK, e la cartella di lavoro verrà divisa in file CSV separati.

Demo: Dividi Cartella di Lavoro utilizzando Kutools per EXCEL