Como guardar un libro en formato .xlsx y solo una hoja de ese libro en formato PDF en una dirección en especifico ?
Para "Dante Amor"
Estoy haciendo uso de un ejemplo que me proporcionaste, con ese ejemplo guardo una hoja ("hoja1") en formato .xlsx y tambien en PDF en una dirección en especifico, pero ahora tengo un inconveniente que es que en lugar de guardar solo la "hoja1" en formato .xlsx necesito guardar todo el libro en formato .xlsx ("hoja1", "hoja2", "hoja3") y solo la "hoja1" en formato PDF... Necesito de tu ayuda para saber como es que se puede hacer eso...
Este es el ejemplo:
Sub Guardar_Hoja_Pdf_Xls_2007()
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
ruta = "C:\trabajo\"
arch = "archivo1"
h1.Copy
'guarda archivo como versión 2007
ActiveWorkbook.SaveAs _
Filename:=ruta & arch & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close
Application.ScreenUpdating = True
MsgBox "Guardados Archivos Pdf y xlsx"
End Sub
Te anexo la macro actualizada
Sub Guardar_Hoja_Pdf_Xls_2007()
'---
' Por.Dante Amor
'---
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = Sheets("Hoja1")
ruta = "C:\trabajo\"
arch = "archivo1"
'guarda archivo como versión 2007
Sheets. Copy
ActiveWorkbook.SaveAs Filename:=ruta & arch & ".xlsx"
ActiveWorkbook. Close
'
'guarda solamente hoja1 como pdf
h1.Select
h1.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.ScreenUpdating = True
MsgBox "Guardados Archivos Pdf y xlsx"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
