Как сохранить Excel в PDF, создав закладку, используя имя листа в VBA - PullRequest
Новая
       31

Как сохранить Excel в PDF, создав закладку, используя имя листа в VBA

0 голосов
/ 10 мая 2019

Я бы хотел сохранить Excel в PDF, создав закладки с именем ЛИСТОВ.

Сегодня мой код генерирует PDF-файл из Excel Perfect, но мне нужно улучшить, чтобы сгенерироватьPDF с закладками, равными названию листов для каждой страницы. 

Sub MacroCreateExcelToPDF()
    'Select ALL Sheets in the excel to generate the PDF
    Worksheets.Select
    ActiveSheet.Range("A1:R39").Select

    'Generate EXCEL in PDF file
    Dim myfile As Variant
    Dim strfile As String
    Dim strPath As String

    strfile = Replace(ThisWorkbook.Name, ".xlsx", "_")
    strPath = Replace(ThisWorkbook.Path, "Input", "Output")
    strfile = strfile & Format(Now(), "yyyymmdd_hhmmss") & ".pdf"
    strfile = strPath & "\" & strfile

    myfile = Application.GetSaveAsFilename _
    (InitialFileName:=strfile, _
    FileFilter:="PDF Files (*.pdf), *.pdf", _
    Title:="Select Folder and File Name to Save as PDF")


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

End Sub

Можете ли вы помочь мне включить в мой код часть для создания PDF с закладками, имя листов для каждой страницы?

...