¿Cómo guardar, exportar varias / todas las hojas a archivos csv o de texto separados en Excel?
Al usar Excel, puede guardar manualmente una hoja de trabajo como un archivo csv o de texto usando la función Guardar como. Sin embargo, para convertir múltiples o todas las hojas de trabajo en un libro de trabajo en archivos csv o de texto separados, ¿cómo puede hacerlo? En este artículo, le mostraremos métodos para guardar o convertir múltiples o todas las hojas en archivos csv o de texto separados.
Guarde, exporte o convierta todas las hojas a csv o archivo de texto con código VBA
Guarde, exporte o convierta varias / todas las hojas a csv o archivo de texto con Kutools para Excel
Guarde, exporte o convierta todas las hojas a csv o archivo de texto con código VBA
Con los siguientes códigos VBA, puede guardar todas las hojas de trabajo en un libro de trabajo en archivos csv o de texto separados. Haz lo siguiente.
Exportar o convertir todas las hojas a archivos csv
1. Prensa otro + F11 teclas simultáneamente para abrir el Aplicación Microsoft Visual Basic ventana.
2. En el Aplicación Microsoft Visual Basic ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código en el Módulo ventana.
Código VBA: exporta todas las hojas a archivos csv separados
Sub ExportSheetsToCSV()
Dim xWs As Worksheet
Dim xcsvFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xcsvFile = CurDir & "\" & xWs.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
FileFormat: = xlCSV, CreateBackup: = False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub3. presione el F5 clave para ejecutar el código. Verá que todos los archivos csv exportados se encuentran en el Documentos carpeta. Ver captura de pantalla:
Exportar o convertir todas las hojas a archivos de texto
El siguiente código puede ayudarlo a exportar o convertir todas las hojas del libro de trabajo en archivos de texto separados.
Código VBA: exporta todas las hojas a archivos de texto separados
Sub ExportSheetsToText()
Dim xWs As Worksheet
Dim xTextFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xTextFile = CurDir & "\" & xWs.Name & ".txt"
Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End SubLos archivos de texto exportados también se encuentran en el Documentos carpeta. Ver captura de pantalla:
Guarde, exporte o convierta varias / todas las hojas a csv o archivo de texto con Kutools para Excel
YPuede exportar o convertir rápidamente varias o todas las hojas a archivos csv individuales, archivos de texto o formato de archivos xls en Excel con el Libro de trabajo dividido utilidad de Kutools for Excel.
Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.
1. Hacer clic en Kutools Más > Libro de trabajo > Libro de trabajo dividido. Ver captura de pantalla:
2. En el Libro de trabajo dividido caja de diálogo:
- 1). Si desea convertir todas las hojas a archivos csv o de texto, mantenga todos los nombres de las hojas marcados en el Nombre de la hoja de trabajo caja; Si solo desea convertir varias hojas, siga marcándolas y desmarque otras hojas que no desea convertir.
- 2). En el Opciones sección, compruebe el Guardar como tipo cuadro y luego seleccione Texto Unicode (*. Txt) or CSV (Macintosh) (*. Csv) de la lista desplegable.
- 3). Haga clic en el Mini Split del botón.
3. En el Busca por carpetas cuadro de diálogo, especifique una carpeta para guardar los archivos exportados y luego haga clic en el OK del botón.
Ahora, todas las hojas u hojas especificadas se convierten en archivos csv o de texto separados y se ubican en la carpeta como se especificó anteriormente.
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Guarde, exporte o convierta varias / todas las hojas a csv o archivo de texto con Kutools para 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!
