Excel: Guardar o Exportar Todas las Hojas a Archivos CSV o de Texto Separados (2 formas fáciles)

Trabajar con libros de Excel que contienen múltiples hojas de cálculo es común en el análisis de datos y los informes empresariales. A menudo, necesitarás exportar cada hoja como un archivo CSV (Valores Separados por Comas) o de texto individual para compartir datos, integrar con otros sistemas o propósitos de archivo. Aunque Excel no proporciona una función incorporada de "exportar todas las hojas", existen varios métodos eficientes para realizar esta tarea.

Guardar o Exportar todas las hojas a archivos CSV o de texto con código VBA
Guardar o Exportar todas / hojas específicas a archivos CSV o de texto con Kutools para Excel

Guardar o Exportar todas las hojas a archivos CSV o de texto con código VBA

Con los siguientes códigos VBA, puedes guardar todas las hojas de trabajo de un libro en archivos CSV o de texto separados. Por favor, sigue los pasos a continuación.

Exportar o convertir todas las hojas a archivos CSV separados

1. Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic Application.

2. En la ventana de Microsoft Visual Basic Application, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código en la ventana del Módulo.

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 Sub

3. Presiona la tecla F5 para ejecutar el código. Verás que todos los archivos CSV exportados están ubicados en la carpeta Documentos. Cada hoja de trabajo se guarda como un archivo .csv separado con el mismo nombre que la hoja. Ver captura de pantalla:

Exportar o convertir todas las hojas a archivos de texto separados

El siguiente código puede ayudarte a exportar o convertir todas las hojas del libro 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 Sub

Los archivos de texto exportados también están ubicados en la carpeta Documentos. Ver captura de pantalla:

Guardar o Exportar todas / hojas específicas a archivos CSV o de texto con Kutools para Excel

Kutools para Excel ofrece una característica poderosa y fácil de usar para exportar rápidamente todas o las hojas seleccionadas a archivos CSV o de texto individuales con solo unos pocos clics.

1. Haz clic en Kutools Plus > Libro > Separar Libro. Ver captura de pantalla:

2. En el cuadro de diálogo Separar Libro:

• 1). Si deseas convertir todas las hojas a archivos CSV o de texto, simplemente mantén todos los nombres de las hojas marcados en el cuadro Nombre de la Hoja; si solo quieres convertir varias hojas, mantén seleccionadas las que desees y desmarca las demás que no quieras convertir.
• 2). En la sección Opciones, marca el cuadro Especificar formato de guardado y luego selecciona Texto Unicode (*.txt) o CSV (Macintosh) (*.csv) de la lista desplegable.
• 3). Haz clic en el botón Separar.

3. En el cuadro de diálogo Examinar Carpeta, especifica una carpeta para guardar los archivos exportados y luego haz clic en el botón Aceptar.

Ahora todas las hojas o las hojas especificadas se han convertido en archivos CSV o de texto separados, y se encuentran en la carpeta que especificaste anteriormente.

Demostración: Guardar, exportar o convertir múltiples/todas las hojas a archivos CSV o de texto con Kutools para Excel