¿Cómo convertir varios archivos de Excel a CSV de forma masiva en Excel?
La conversión de archivos de Excel a formato CSV puede realizarse mediante la función «Guardar como», pero procesar manualmente varios archivos uno por uno consume mucho tiempo. Si necesita convertir múltiples archivos de Excel en archivos CSV independientes de forma masiva, esta guía le ofrece dos métodos eficientes:
Convertir en lote los Archivos de Excel de una carpeta a archivos CSV con VBA
Convertir hojas de un libro en archivos CSV independientes con Kutools para Excel ![]()
Convertir en lote los Archivos de Excel de una carpeta a archivos CSV con VBA
Excel no incluye ninguna función integrada para realizar esta tarea de forma rápida, a menos que se utilice VBA.
1. Abra Excel y pulse Alt + F11 para abrir la ventana de 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: Convertir en lote 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. Pulse la tecla F5 y, en el primer cuadro de diálogo emergente, seleccione la carpeta que contiene los archivos de Excel que desea convertir a CSV.
5. Haga clic en Aceptar y, a continuación, en el segundo cuadro de diálogo emergente, seleccione la carpeta en la que desea guardar los archivos CSV.
6. Haga clic en Aceptar; ahora los archivos de Excel de la carpeta se han convertido a CSV y se han guardado en otra carpeta.
Convertir hojas de un libro en archivos CSV independientes con Kutools para Excel
Como sabemos, en Excel solo podemos convertir todo el libro en un único archivo CSV mediante la función «Guardar como». Sin embargo, a veces necesitará convertir hojas individuales en archivos CSV. En esos casos, la utilidad Separar libro de Kutools para Excel puede ayudarle.
1. Abra el libro cuyas hojas desea convertir en archivos CSV independientes y haga clic en KUTOOLS PLUS > Libro > Separar libro.
2. En el cuadro de diálogo Separar libro, marque las hojas que desee dividir (todas están seleccionadas por defecto), active la opción Guardar como y elija CSV (*.csv) en la lista desplegable.
3. Haga clic en Dividir para abrir un cuadro de diálogo Examinar carpetas y seleccione o cree una carpeta donde guardar los archivos CSV.
4. Haga clic en Aceptar y el libro se dividirá en archivos CSV independientes.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Demostración: Separar libro usando Kutools para 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