¿Cómo convertir por lotes múltiples archivos de Excel a archivos CSV en Excel?
En Excel, podemos convertir el libro de trabajo a un archivo CSV con la función Guardar como, pero ¿podría saber cómo convertir por lotes varios archivos de Excel en archivos CSV separados? En este artículo, presento un código VBA para convertir por lotes todos los archivos de Excel en una carpeta a archivos CSV en Excel.
Convierta por lotes archivos de Excel de una carpeta a archivos CSV con VBA
Convierta hojas de libros de trabajo en archivos CSV separados con Kutools para Excel
Convierta por lotes archivos de Excel de una carpeta a archivos CSV con VBA
En Excel, no hay una función incorporada que pueda resolver este trabajo rápidamente, excepto VBA.
1. Habilite Excel y presione Alt + F11 llaves abiertas Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > 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: convierte por lotes 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
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
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 <> ""
Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile)
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
End Sub
4. Prensa F5 , seleccione la carpeta que contiene los archivos de Excel que desea convertir a archivos CSV en el primer cuadro de diálogo emergente.
5. Hacer clic OK, luego, en el segundo cuadro de diálogo emergente, seleccione la carpeta para colocar los archivos CSV.
6. Hacer clic OK, ahora los archivos de Excel en la carpeta se han convertido a archivos CSV y se han guardado en otra carpeta.
Convierta hojas de libros de trabajo en archivos CSV separados con Kutools para Excel
Como sabemos, solo podemos convertir todo el libro en un archivo CSV en Excel con su función Guardar como. Pero en algunas ocasiones, desea convertir la hoja única en un archivo CSV, en este caso, el Libro de trabajo dividido utilidad de Kutools for Excel puedo ayudarte.
Después de instalar Kutools para Excel, haga lo siguiente:（¡Descarga gratis Kutools para Excel ahora!)
1. Habilite el libro de trabajo que desea convertir sus hojas como archivos CSV separados, haga clic en Kutools Plus > Libro de trabajo > Libro de trabajo dividido.
2. En el Libro de trabajo dividido cuadro de diálogo, verifique el nombre de la hoja que desea dividir (todas las hojas están marcadas por defecto), verifique Guardar como escriba, elija CSV (Macintosh) (* .CSV) de la lista desplegable.
3. Hacer clic Mini Split sacar un Busca por carpetas cuadro de diálogo, elija o cree una carpeta para colocar los archivos CSV.
4. Hacer clic OK, ahora el libro de trabajo se ha dividido como archivos CSV separados.
Libro de trabajo dividido
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-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características 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!
