Guardar un Excel con varias hojas en separados PDF con nombre de cada hoja excel
Tengo un archivo de excel con varias hojas, pero necesito exportar a PDF cada hoja en separado, con un nombre y otro dato único de cada hoja. ¿Se entiende? Por ejemplo: 10 hojas de un archivo excel, pasarlas a 10 archivos pdf individuales, con un nombre y otro dato como nombre de archivo del pdf. Por favor ayuda, se que con macros o VB se puede realizar.
1 Respuesta
Respuesta de Dante Amor
2
H o l a :
Te anexo la macro para crear los archivos PDF.
Si el "dato único de cada hoja" está en una celda, entonces cambia en la macro "F3" por la celda en donde se encuentra ese dato.
Sub GuardarHojas() 'Por.Dante Amor celda = "F3" ' ruta = ThisWorkbook.Path & "\" For Each h In Sheets h.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=h.Name & " " & h.Range(celda) & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False Next MsgBox "Archivos PDF generados", vbInformation, "PDF's" End Sub
Sigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: pinta
- Aceptar.
- Para ejecutarla dale click a la imagen.
