Guardar archivo excel en formato PDF con el mismo nombre
Expertos:
Tengo la siguiente rutina que me guardar una hoja excel con un determinado nombre.
' Guardar archivo excel
PBS = Range("K1").Value
CLIENTE = Range("C18").Value
SOLUCION = Range("C25").Value
Nombre = "PBS000" & PBS & "_" & CLIENTE & "_" & SOLUCION
ActiveWorkbook.SaveAs Filename:="F:\Presupuestos_Contratos\" & Nombre & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Lo que necesito ahora es que una vez que genere el archivo en excel lo exporte a PDF manteniendo el mismo nombre.
1 Respuesta
Respuesta de Adriel Ortiz Mangia
2
H o l a:
Te paso la macro
Application.ScreenUpdating = False
Application.DisplayAlerts = False
PBS = Range("K1").Value
CLIENTE = Range("C18").Value
SOLUCION = Range("C25").Value
Ruta = ThisWorkbook.Path & "\"
nomb = "PBS000" & PBS & "_" & CLIENTE & "_" & SOLUCION
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Ruta & nomb & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Se ha guardado la hoja en PDF", vbInformationValora para finalizar saludos!
Gracias experto te comento que la ruta es: "F:\Presupuestos_Contratos\
pero cuando ingreso a la ruta no hay ningún archivo PDF
Ahí va
Application.ScreenUpdating = False
Application.DisplayAlerts = False
PBS = Range("K1").Value
CLIENTE = Range("C18").Value
SOLUCION = Range("C25").Value
Ruta = "F:\Presupuestos_Contratos\"
nomb = "PBS000" & PBS & "_" & CLIENTE & "_" & SOLUCION
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Ruta & nomb & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
MsgBox "Se ha guardado la hoja en PDF", vbInformationNo olvides de valorar
