Saltar al contenido principal

¿Cómo convertir varios libros u hojas de trabajo en archivos PDF a la vez en Excel?

En algún momento, debe convertir sus archivos de Excel en archivos PDF, para que otros no puedan modificarlos. En Excel, podemos guardar un archivo de Excel como archivo PDF utilizando la función Guardar como. Pero, ¿cómo se convierten varios libros de trabajo en archivos PDF al mismo tiempo en Excel?


Convierta varios libros de trabajo en archivos PDF con la función Guardar como uno por uno

Normalmente, la función Guardar como en Excel puede ayudarlo a guardar el libro completo en un archivo PDF, haga lo siguiente:

1. Inicie su libro de trabajo que desea convertir a formato PDF.

2. Hacer clic Archive > Guardar como, Y en el Guardar como cuadro de diálogo, especifique una carpeta para guardar el nuevo archivo, luego seleccione (PDF) del desplegable Guardar como tipo lista desplegable y luego haga clic en Opciones botón, ver captura de pantalla:

3. Entonces, en el apareció Opciones cuadro de diálogo, comprobar Libro de trabajo completo, ver captura de pantalla:

4. Y luego haz clic OK > Guardar, todo este libro se ha guardado en formato de archivo PDF.

Tips: Si necesita convertir varios libros de trabajo, aplique los pasos anteriores para guardar los libros de trabajo en archivos PDF uno por uno.

Convierta varios libros de trabajo en archivos PDF con código VBA a la vez

Si hay cientos de archivos de Excel que deben convertirse, el método anterior será problemático, aquí, hablaré sobre un código VBA para convertir varios libros de trabajo en archivos PDF a la vez, siga los siguientes pasos:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código VBA: convierta varios libros de trabajo en archivos PDF a la vez

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3. Entonces presione F5 para ejecutar este código, y se mostrará una ventana, seleccione una carpeta que contenga los libros de trabajo que desea convertir, vea la captura de pantalla:

4. Luego, haga clic en OK, se abre otra ventana, seleccione la ruta de la carpeta donde desea generar los nuevos archivos PDF, vea la captura de pantalla:

5. Y luego, clik OK, después de finalizar la conversión, puede ir a la carpeta especificada para obtener una vista previa del resultado convertido, ver capturas de pantalla:


Convierta varios libros de trabajo en archivos PDF con una característica poderosa

Si tiene Kutools for Excel, Con su Convertidor de formato utilidad, puede convertir rápidamente varios libros de trabajo en archivos PDF a la vez.

Tips:Para aplicar esto Convertidor de formato función, en primer lugar, debe descargar la Kutools for Excely, a continuación, aplique la función de forma rápida y sencilla.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Hacer clic Kutools Más > Libro de trabajo > Convertidor de formato, ver captura de pantalla:

2. Y aparece un cuadro emergente para recordarle que debe cerrar los libros de trabajo que desea convertir.

3. Hacer clic OK, luego, en el Convertidor de formato de archivo diálogo, especifique las siguientes opciones:

  • Bajo la Tipo de conversión lista desplegable, seleccione Libro de Excel a PDF;
  • A continuación, haga clic en Añada botón para agregar los archivos de Excel que desea convertir, puede agregar los libros de trabajo desde su disco computor o OneDrive según lo necesite; 

4. Después de insertar los libros de trabajo que desea convertir, aún en el Convertidor de formato de archivo cuadro de diálogo, haga clic en para elegir una ruta de carpeta para generar los archivos convertidos, y luego especificar algunas operaciones que necesita en la parte inferior del cuadro de diálogo, vea la captura de pantalla:

Notas: En el cuadro de diálogo anterior:
  • Si los libros de trabajo de las subcarpetas también debían convertirse, consulte la Incluir subcarpetas al agregar carpetas casilla de verificación;
  • Si desea eliminar los archivos originales después de la conversión, marque la casilla Eliminar archivos de origen después de la conversión caja;
  • Si desea mantener la fecha de modificación de los archivos originales, marque la Conservar la fecha de modificación de los archivos originales caja;
  • La estructura del directorio del archivo se puede conservar marcando el La estructura de directorios del archivo se conserva cuando se convierte caja;

5. Luego haga clic OK para comenzar a convertir, cuando todos los archivos de Excel especificados se hayan convertido a archivos PDF, puede ir a la carpeta especificada para obtener una vista previa del resultado convertido, vea las capturas de pantalla:


Convierta varias hojas de trabajo de un libro de trabajo para separar archivos PDF con código VBA

En algunos casos, es posible que desee convertir cada hoja de trabajo en el libro de trabajo en archivos PDF separados, si hay muchas hojas en su libro de trabajo, el siguiente código VBA puede ayudarlo a guardar cada hoja de trabajo como un archivo PDF a la vez.

1. Abra un libro de trabajo que desee convertir y luego mantenga presionada la tecla ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código VBA: convierta varias hojas de trabajo de un libro de trabajo en archivos PDF separados

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Entonces presione F5 para ejecutar este código, y se abre una ventana, elija una ruta de carpeta para ubicar los archivos PDF convertidos, vea la captura de pantalla:

4. Luego, haz clic OK botón, todas las hojas de trabajo dentro del libro de trabajo actual se han convertido archivos PDF por separado, vea la captura de pantalla:


Convierta varias hojas de trabajo de un libro de trabajo en archivos PDF separados con una función práctica

Kutools for Excel también admite una función útil: Libro de trabajo dividido, con esta función, puede guardar varias hojas de trabajo dentro del libro para separar archivos de Excel, archivos Txt, archivos CSV y archivos PDF según lo necesite.

Tips:Para aplicar esto Libro de trabajo dividido función, en primer lugar, debe descargar la Kutools for Excely, a continuación, aplique la función de forma rápida y sencilla.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Abra el libro de trabajo en el que desea guardar cada hoja como archivo PDF y luego haga clic en Kutool más > Libro de trabajo > Libro de trabajo dividido, ver captura de pantalla:

2. En la Libro de trabajo dividido cuadro de diálogo, marque la hoja que desea guardar y luego elija PDF (* .pdf) del desplegable Guardar como tipo lista desplegable y luego haga clic en Mini Split botón, en el Seleccionar carpeta ventana, especifique una carpeta para colocar los archivos convertidos, vea la captura de pantalla:

3. Y luego, todas las hojas de trabajo seleccionadas en el libro de trabajo actual se han guardado en archivos PDF individualmente, vea la captura de pantalla:


Artículos más relativos:

  • Convierta varios archivos Xls a archivos Xlsx en Excel
  • Para convertir un antiguo archivo xls de Excel en un nuevo archivo xlsx, puede aplicar la función Guardar como en Excel, pero, si hay que convertir varios archivos xls, ¿cómo podría hacer frente a esta tarea de forma rápida y sencilla?
  • Guardar todas las hojas de trabajo solo como valores
  • Si tiene un libro de trabajo que contiene varias fórmulas, ahora necesita distribuir este archivo a otros usuarios, no desea mostrar las fórmulas, solo se muestran los valores. Normalmente, podemos guardar rápidamente una hoja de trabajo como valores copiando y pegando los datos solo como valores. Pero, ¿cómo podría guardar todas las hojas de trabajo como valores solo sin copiar y pegar una por una?
  • Botón de comando para guardar la hoja de trabajo activa como archivo PDF
  • Mientras trabaja en Microsoft Excel, puede enfrentar el problema de guardar la hoja de trabajo activa como archivo PDF. En este artículo, puede aprender cómo guardar la hoja de trabajo activa como archivo PDF con código VBA a través de un botón de comando. Y si también desea guardar un rango o cada hoja de trabajo en el libro activo como un archivo PDF individual, este artículo también puede ayudarlo.
  • Divida una mesa grande en varias mesas pequeñas
  • Si tiene una hoja de trabajo grande que contiene varias columnas y cientos o miles de datos de filas, ahora, desea dividir esta tabla grande en varias tablas pequeñas según el valor de la columna o el número de filas para obtener los siguientes resultados. ¿Cómo podría hacer frente a esta tarea en Excel?
  • Dividir un libro para separar archivos de Excel
  • Es posible que deba dividir un libro grande para separar los archivos de Excel y guardar cada hoja de trabajo del libro como un archivo de Excel individual. Por ejemplo, puede dividir un libro en varios archivos de Excel individuales y luego entregar cada archivo a una persona diferente para que lo maneje. Al hacerlo, puede lograr que ciertas personas manejen datos específicos y mantengan sus datos seguros. Este artículo presentará formas de dividir un libro grande para separar archivos de Excel según cada hoja de trabajo.

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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello this might be to much, but is there a way to make a VBA that would separate multiples workbooks worksheets into to their own pdf file and for each header to be a text in a certain cell in worksheet for each one?
This comment was minimized by the moderator on the site
Thank you so much for this code.
This comment was minimized by the moderator on the site
the vba is really good and serves my purpose well. but can this code not be changed to create pdf from a particular sheet for multiple excel files (say 3rd worksheet of all 100 excel workbooks i have).
This comment was minimized by the moderator on the site
This is perfect for what I was looking for. Thanks for the sharing. I used to convert excel file to PDF file with Acethinker PDF Creator, one by one, not so quick, share it here as an alternative solution.
This comment was minimized by the moderator on the site
i am editing and updating my data in pdf explorer and i have already my data in excel sheet so now i want to export to my excel log to pdf explorer how
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations