¿Cómo convertir varios archivos CSV a archivos XLS(X) en lote con Excel?
Convertir un archivo CSV a archivo XLS o XLSX es muy sencillo si utiliza la función Guardar como. Sin embargo, convertir varios archivos CSV a archivos XLS o XLSX desde una carpeta resulta tedioso si se guarda uno a uno manualmente. A continuación, le presento un código de macro para convertir rápidamente en lote todos los archivos CSV de una carpeta a archivos XLS(X).
Conversión en lote de archivos CSV a archivos XLS(X) con código de macro
Conversión en lote de archivos CSV a archivos XLS(X) con código de macro
Para convertir varios archivos CSV de una carpeta a archivos XLS(X), siga estos pasos:
1. Abra un nuevo libro de trabajo, pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones y haga clic en Insertar > Módulo. Vea la captura de pantalla:
Nota: Asegúrese de que todos los archivos CSV que quiera convertir estén cerrados.
2. A continuación, pegue el siguiente código de macro en el script del Módulo y pulse 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 Sub3. En el cuadro de diálogo que aparece, seleccione la carpeta específica que contiene los archivos CSV que desea convertir. Vea la captura de pantalla:
4. Haga clic en Aceptar y todos los archivos CSV de la carpeta seleccionada se convertirán automáticamente a archivos XLS en la misma carpeta.
Consejo: Si quieres convertir archivos CSV a XLSX, usa 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 SubConvertir o exportar un rango a archivos XLS, Word, PDF y más por separado |
Normalmente, Excel no ofrece una opción rápida para exportar o guardar un rango seleccionado directamente como CSV, Excel u otro tipo de archivo. Para lograrlo, tendría que usar una macro de VBA o copiar manualmente el rango a un nuevo libro de trabajo antes de guardarlo. Kutools para Excel simplifica este proceso con su utilidad Exportar Rango a Archivo, permitiéndole gestionar estas operaciones rápida y fácilmente con solo unos pocos clics. |
|
Kutools para Excel- Potencie Excel con más de 300 herramientas esenciales, lo que hará su trabajo más rápido y sencillo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora |
Artículos relacionados:
- ¿Cómo convertir un archivo CSV a XLS o importar/abrir un archivo CSV en Excel?
- ¿Cómo convertir un documento de Word en una hoja de cálculo de Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos