¿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:
Note: 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 obtener una prueba gratuita de 30 días con todas las funciones! |
Kutools para Excel: con más de 300 prácticos complementos de Excel, prueba gratis sin límite en 30 días. |
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
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!