¿Cómo convertir varios archivos CSV a archivos XLS(X) en Excel de forma masiva?

Convertir un archivo CSV a un archivo XLS o XLSX es muy fácil utilizando la función Guardar como. Sin embargo, convertir múltiples archivos CSV a archivos XLS o XLSX desde una carpeta puede ser muy laborioso si se guarda uno por uno manualmente. Aquí te presento un código macro para convertir rápidamente todos los archivos CSV de una carpeta a archivos XLS(x) en lote.

Convierte archivos CSV a archivos XLS(X) en masa con código macro

Convierte archivos CSV a archivos XLS(X) en masa con código macro

Para convertir varios archivos CSV de una carpeta a archivos XLS(X), puedes seguir los siguientes pasos:

1. Abre un nuevo libro de trabajo, presiona Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones y haz clic en Insertar > Módulo. Ver captura de pantalla:

Nota: Asegúrate de que todos los archivos CSV que deseas convertir estén cerrados.

2. Luego, pega el siguiente código macro en el script del Módulo y presiona la tecla F5 para ejecutar el código.

VBA: Convertir CSV a XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. En el cuadro de diálogo emergente, selecciona la carpeta específica que contiene los archivos CSV que deseas convertir. Ver captura de pantalla:

4. Haz clic en Aceptar, todos los archivos CSV en la carpeta seleccionada se habrán convertido a archivos XLS dentro de ella.

Consejo: Si deseas convertir archivos CSV a archivos XLSX, utiliza el siguiente código VBA.

VBA: Convertir archivos CSV a XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

Artículos relacionados:

• ¿Cómo convertir un archivo csv a un archivo xls o importar/abrir un csv en Excel?
• ¿Cómo convertir un documento de Word en una hoja de cálculo de Excel?