VBA Macro para Convertir Excel a PDF

Hola Freaks, en el siguiente post os traigo una simple macro para convertir excel a pdf.

Ya veréis que no es nada difícil de comprender, cualquier persona que conozca simplemente como acceder a la pestaña Desarrollador podrá ejecutar la siguiente macro sin ninguna dificultad.

Hay veces que no queda elegante mandar un informe en excel, queda mucho mejor un pdf, es más vistoso. Pues con las siguientes macros podrás crear tantos PDF como hojas tenga el fichero.

Conversor de excel a PDF con una hoja

Lo que hará la siguiente macro será coger el nombre de la pestaña del fichero excel y lo usará para que al guardarlo genere un pdf con dicho nombre.

En este caso, sólo tiene en cuenta la pestaña actual del fichero excel. Más adelante veremos un conversor excel a pdf cuando nuestro fichero tiene más de una pestaña

Código VBA

Sub ConvetirPDF()

Dim NombreArchivo, RutaArchivo As String

NombreArchivo = ActiveSheet.Name
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Convertidor de excel a PDF con varias hojas

Otra opción algo más completa para convertir excel a PDF consiste en que la macro se recorrar todas las pestañas y genere un pdf por cada una de ellas.

Código Visual Basic

Sub ConvetirPDFhojas()

Dim hoja As Worksheet
Dim NombreArchivo, RutaArchivo As String

For Each hoja In Worksheets
NombreArchivo = hoja.Name
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".pdf"

hoja.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Next hoja

End Sub

Como has podido ver, ninguna de las dos macros entraña mucha dificultad.
Si quieres sofisticarlo le podrás añadir un pequeño botón al que vincules cualquiera de las dos macros anteriores.

Espero que os haya sido de utilidad.

Un saludo.

<< Regresar al índice de Curso de Excel Online Avanzado