¿Cómo convertir varios archivos de Excel a archivos CSV en masa en Excel?

Convertir archivos de Excel al formato CSV se puede hacer utilizando la función "Guardar como", pero procesar manualmente varios archivos uno por uno es muy lento. Si necesita convertir varios archivos de Excel en archivos CSV separados, esta guía ofrece dos métodos eficientes:

Conversión masiva de archivos de Excel en una carpeta a archivos CSV con VBA

Convertir hojas de un libro de trabajo en archivos CSV separados con Kutools para Excel

Conversión masiva de archivos de Excel en una carpeta a archivos CSV con VBA

En Excel, no hay una función integrada que permita realizar esta tarea rápidamente, excepto usando VBA.

1. Abra Excel y presione las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo para crear un nuevo Módulo.

3. Copie el siguiente código y péguelo en la nueva ventana del Módulo.

VBA: Conversión masiva de archivos de Excel a 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. Presione F5 y seleccione la carpeta que contiene los archivos de Excel que desea convertir a archivos CSV en el primer cuadro de diálogo emergente.

5. Haga clic en Aceptar, luego, en el segundo cuadro de diálogo emergente, seleccione la carpeta donde colocar los archivos CSV.

6. Haga clic en Aceptar, ahora los archivos de Excel en la carpeta se han convertido a archivos CSV y se han guardado en otra carpeta.

Convertir hojas de un libro de trabajo en archivos CSV separados con Kutools para Excel

Como sabemos, solo podemos convertir todo el libro de trabajo en un archivo CSV en Excel con su función Guardar como. A veces, es posible que necesite convertir hojas individuales en archivos CSV. En tales casos, la utilidad Separar Libro de Trabajo de Kutools para Excel puede ayudar.

1. Abra el libro de trabajo que desea convertir sus hojas en archivos CSV separados, haga clic en Kutools Plus > Libro de trabajo > Separar Libro de Trabajo.

2. En el cuadro de diálogo Separar Libro de Trabajo marque el nombre de la hoja que desea separar (todas las hojas están marcadas por defecto), marque Guardar como tipo, elija CSV (Macintosh) (*.csv) de la lista desplegable.

3. Haga clic en Separar para abrir un cuadro de diálogo Examinar Carpeta elija o cree una carpeta para colocar los archivos CSV.

4. Haga clic en Aceptar, y el libro de trabajo se dividirá en archivos CSV separados.

Demostración: Separar Libro de Trabajo usando Kutools para EXCEL