Saltar al contenido principal

¿Cómo guardar o exportar cada hoja como archivo CSV / PDF en Excel?

Por ejemplo, tiene un libro de trabajo grande con varias hojas y desea guardar o exportar cada hoja como un archivo .csv individual o un archivo PDF, ¿cómo hacerlo fácil y rápidamente? En este artículo, presentaré varios métodos para resolverlo.


Guarde o exporte cada hoja como archivo CSV / PDF con la función Guardar como

Como sabe, Microsoft Excel puede guardar la hoja de trabajo actual como un archivo .csv individual o un archivo PDF. Por lo tanto, puede guardar o exportar cada hoja como archivo .csv o archivo PDF una por una manualmente.

1. Cambie a la hoja que guardará o exportará como un archivo .csv individual y haga clic en Archive (o Botón de oficina)> Guardar como.

2. En el cuadro de diálogo de apertura, especifique la carpeta de destino en la que guardará el archivo .csv, haga clic en el Guardar como tipo cuadro y seleccionar CSV (delimitado por comas) (* .csv) or PDF (* .pdf) de la lista desplegable y haga clic en el Guardar del botón.

3. Aparecerán dos cuadros de diálogo de advertencia sucesivamente. Por favor haz click OK > .

Nota: Si guarda la hoja de trabajo activa como archivo PDF, estos cuadros de diálogo no aparecerán. Simplemente continúe con el siguiente paso.

4. Repita los pasos 1-3 anteriores para guardar otras hojas como archivos .csv individuales una por una.


Lote guarde o exporte cada hoja como archivo CSV con VBA

Si hay una serie de hojas que desea guardar o exportar como archivos .csv, el primer método llevará bastante tiempo y será tedioso. Este VBA puede simplificar el trabajo y facilitar el almacenamiento o la exportación de cada hoja como archivo .csv.

1. Prensa otro + F11 teclas simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicación.

2. Hacer clic en recuadro > Módulo, y luego pegue el siguiente código VBA en la ventana del nuevo módulo.

VBA: guarde cada hoja como un archivo CSV individual

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. Haga clic en el Ejecutar botón o prensa F5 clave para ejecutar este VBA.

4. En el cuadro de diálogo Explorar, especifique la carpeta de destino en la que guardará todos los archivos .csv y haga clic en OK del botón.

Luego, verá que cada hoja se guarda / exporta como un archivo .csv individual en la carpeta de destino especificada.


Lote guarde o exporte cada hoja como archivo CSV / PDF con Kutools para Excel

Algunos usuarios de Excel pueden rechazar el código VBA por algunas razones. ¡No te preocupes! El tercer método también puede guardar por lotes o exportar cada hoja como archivo .csv o archivo PDF fácilmente por el Libro de trabajo dividido utilidad de Kutools para Excel.

Kutools for Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! Consíguelo ahora

1. Haga clic en el Empresa > Libro de trabajo > Libro de trabajo dividido.

doc cada hoja a csv 2

2. En el cuadro de diálogo Abrir libro de trabajo dividido,

doc cada hoja a csv 8

(1) Siga seleccionando todas las hojas. Si no, puede marcar la casilla de verificación antes Nombre de la hoja de trabajo para seleccionar todas las hojas;

(2) Compruebe la Especificar formato de guardado opción;

(3) Haga clic en el cuadro de abajo Especificar formato de guardado opción y seleccione CSV (Macintosh) (*. Csv) or PDF (* .pdf) de la lista desplegable.

(4) Haga clic en el Mini Split del botón.

 

Note: Si hay hojas de trabajo ocultas y en blanco en su libro de trabajo, marque la casilla Omitir hojas de trabajo ocultas caja y el Omitir hoja de trabajo en blanco El cuadro ignorará todas las hojas en blanco u ocultas durante la exportación.

Kutools for Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! Consíguelo ahora

3. En el cuadro de diálogo de apertura Buscar carpeta, especifique la carpeta de destino en la que guardará todos los archivos .csv o PDF y haga clic en OK del botón.

Ahora verá que cada hoja se exporta y guarda como un archivo .csv individual en la carpeta especificada.


Demostración: guarde o exporte cada hoja como archivo CSV / PDF en Excel


Kutools for Excel: ¡Más de 300 herramientas útiles a tu alcance! Comience hoy su prueba gratuita de 30 días sin limitaciones de funciones. ¡Descargar ahora!

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you’d better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
This comment was minimized by the moderator on the site
Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature? Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show -1 Then Exit Sub xDir = folder.SelectedItems(1) For Each xWs In Application.ActiveWorkbook.Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations