Convertir hoja activa a pdf en Excel (macro)

Convertir hoja activa a pdf en Excel (macro)

¿Cómo podemos convertir automáticamente una hoja activa a un archivo PDF mediante el uso de macros en Excel?

La siguiente macro nos permite ejecutar una macro que realiza una copia de los datos en una hoja activa y los guarda dentro de un archivo de formato .pdf.

La instrucción a copiar dentro de un nuevo módulo de vba es la siguiente:

CONVERTIR HOJA ACTIVA A PDF EN EXCEL

Sub ExportarHojaAPDF()

    Dim ruta As String
    Dim nombrePDF As String
    
    ruta = ThisWorkbook.Path & "\"
    
    nombrePDF = ActiveSheet.Name & "_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ".pdf"
    
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ruta & nombrePDF, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    MsgBox "PDF creado correctamente en:" & vbCrLf & ruta & nombrePDF, vbInformation

End Sub

Notar que nombramos a la macro «ExportarHojaAPDF» y que el archivo se generará en el mismo directorio o ruta donde se encuentre el archivo de Excel original. Podemos editar los códigos de nombrePDF y MsgBox para asignarle un nombre personalizado distinto o un mensaje final de creación de la macro.

De esta forma logramos convertitr una hoja activa a PDF de forma rápida y fácil mediante macros en Excel.

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores.