Macros botón exportar a pdf con nombre aleatorio y ruta fija.
Tengo una macros de stock y quisiera saber si se puede crear un botón que exporte la hoja con nombre aleatorio determinado por el usuario y con ruta fija.
Trabajo en office 2013
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
H o l a:
Usa esto, el nombre lo determinas en la celda A1 y guardará el pdf en la ruta de tu archivo
Sub Guardarpdf() Application.ScreenUpdating = False Application.DisplayAlerts = False Ruta = ThisWorkbook.Path & "\" nomb = [A1] ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Ruta & nomb & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True MsgBox "Se ha guardado la hoja en PDF", vbInformation End Sub
si deseas guardar en una ruta específica lo harías así.
Sub Guardarpdf() Application.ScreenUpdating = False Application.DisplayAlerts = False Ruta = "C:\Users\Admin\Documents\" nomb = [A1] ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Ruta & nomb & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False MsgBox "Se ha guardado la hoja en PDF", vbInformation End Sub
Valora para finalizar Excelente o Bueno saludos!
Los comandos me arrojan error de compilación: no se puede encontrar el proyecto o la biblioteca
Tendrás algún problemas con las librerías.
Revisa esto
http://www.todoexcel.com/foro-excel/funciones-formulas/error-compilacion-puede-encontrar-proyecto-biblioteca-t2340.html
https://msdn.microsoft.com/es-es/library/office/gg251321.aspx
