Guardar varias hojas de Excel en PDF
Taylen
-
cs_Le Pivert Mensajes publicados 8437 Estado Colaborador -
cs_Le Pivert Mensajes publicados 8437 Estado Colaborador -
Hola,
Como indica el título, estoy buscando guardar varias pestañas de un archivo de Excel en PDF. Mi macro actual solo me permite guardar la primera pestaña y ignora totalmente las siguientes. :
Sin embargo, al guardar manualmente hay una opción que permite seleccionar "Todo el libro" (Archivo, Guardar como, PDF, Opciones (botón debajo del formato), Todo el libro) pero incluso el grabador de macros no registra este paso así que no sé cómo transcribirlo en mi código....
Si alguien tiene una idea sobre la mejor manera de resolver mi problema, se lo agradezco de antemano.
Como indica el título, estoy buscando guardar varias pestañas de un archivo de Excel en PDF. Mi macro actual solo me permite guardar la primera pestaña y ignora totalmente las siguientes. :
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=newpdf, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sin embargo, al guardar manualmente hay una opción que permite seleccionar "Todo el libro" (Archivo, Guardar como, PDF, Opciones (botón debajo del formato), Todo el libro) pero incluso el grabador de macros no registra este paso así que no sé cómo transcribirlo en mi código....
Si alguien tiene una idea sobre la mejor manera de resolver mi problema, se lo agradezco de antemano.
5 respuestas
-
Hola,
Para guardar todas las pestañas con sus nombres:
Option Explicit Dim nom, chemin As String Dim ctr Private Sub CommandButton1_Click() For ctr = 1 To Sheets.Count Sheets(ctr).Select nom = Sheets(ctr).Name Save_pdf Next End Sub Private Sub Save_pdf() chemin = "C:\Users\....\Documents\" 'ruta de la carpeta de destino a adaptar ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ chemin & "\" & nom & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False MsgBox "Guardar" 'se puede eliminar End Sub
--
@+ El Pájaro Carpintero
