¿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 en 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
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. 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 en OK, luego, en el segundo cuadro de diálogo emergente, seleccione la carpeta para colocar los archivos CSV.
6. Hacer clic en 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.
Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
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 Más > 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 en Mini Split sacar un Busca por carpetas cuadro de diálogo, elija o cree una carpeta para colocar los archivos CSV.
4. Hacer clic en OK, ahora el libro de trabajo se ha dividido como archivos CSV separados.
Libro de trabajo dividido
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!