¿Cómo convertir por lotes múltiples archivos CSV a archivos XLS (X) en Excel?
Convertir un archivo CSV a un archivo XlS o XLSX es muy fácil para usted aplicando la función Guardar como. Sin embargo, convertir varios archivos CSV a archivos XLS o XLSX desde una carpeta requiere mucho tiempo al guardarlos uno por uno manualmente. Aquí presento un código de macro para convertir rápidamente por lotes todos los archivos CSV a archivos XLS (x) desde una carpeta.
Convierta por lotes archivos CSV a archivos XlS (X) con código de macro
Convierta por lotes archivos CSV a archivos XlS (X) con código de macro
Para convertir varios archivos CSV de una carpeta a archivos XLS (X), puede realizar los siguientes pasos:
1. Habilite un nuevo libro de trabajo, presione Alt + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana y haga clic en recuadro > Módulo. Ver captura de pantalla:
Nota:: Asegúrese de que todos los archivos CSV que desea convertir estén cerrados.
2. Luego, pegue el código de la macro en el Módulo guión y prensa F5 clave para ejecutar el código.
VBA: convierte 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, seleccione la carpeta especificada que contiene los archivos CSV que desea convertir. Ver captura de pantalla:
4. Hacer clic en OK, todos los archivos CSV de la carpeta seleccionada se han convertido en archivos XLS.
Consejo: Si desea convertir archivos CSV a archivos XLSX, utilice el siguiente código VBA.
VBA: convierte 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
convierta o exporte rápidamente un rango de una hoja para separar XLS / Word / PDF u otros archivos de formato en una sola vez
|
Normalmente, Excel no lo admite con una opción para exportar o guardar rápidamente un rango como un archivo CSV o Excel. Si desea guardar un rango de datos como un CSV o un libro de trabajo en Excel, es posible que deba usar una macro de VBA para hacer esto o copiar el rango al portapapeles y pegarlo en un nuevo libro de trabajo y luego guardar el libro de trabajo como CSV o Libro de trabajo. Kutools for Excel aumenta Excel con Exportar rango a archivo utilidad para usuarios de Excel que desean procesar rápidamente las siguientes operaciones: Haga clic para 30-día de prueba gratuita con todas las funciones! |
![]() |
Kutools for Excel: con más de 300 prácticos complementos de Excel, gratis para probar sin limitación en 30 día. |
Artículos relativos:
- ¿Cómo convertir un archivo csv a un archivo xls o importar / abrir csv en Excel?
- ¿Cómo convertir un documento de Word a una hoja de trabajo de Excel?
Las mejores herramientas de productividad de oficina
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!





































