Macro para convertir todas las hojas de un libro Excel a PDFs Individuales

0

 


Código:


Sub HojasPDF()

    Application.ScreenUpdating = False

    Dim hoja As Worksheet, rutaCarpeta As Variant

    rutaCarpeta = Application.FileDialog(msoFileDialogFolderPicker).Show

    If rutaCarpeta = -1 Then

        rutaCarpeta = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)

        For Each hoja In Worksheets

            hoja.ExportAsFixedFormat Type:=xlTypePDF, _

                Filename:=rutaCarpeta & "\" & hoja.Name & ".pdf", _

                Quality:=xlQualityStandard, _

                IncludeDocProperties:=True, _

                IgnorePrintAreas:=False, _

                OpenAfterPublish:=False

        Next hoja

    End If

    Application.ScreenUpdating = True

    MsgBox " Todas las hojas han sido exportadas a PDF correctamente.", vbInformation, "Exportación finalizada"

End Sub

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel