如何将Excel导出为PDF格式，并使用VBA中的图纸名称创建书签？

我想将电子表格保存为PDF格式，并创建带有工作表名称的书签

我的代码完美地从excel生成了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

--贝克尔73也遇到了同样的问题，他补充道： 当我从“文件”菜单手动运行导出为PDF时，Excel会添加书签。但是，VBA中的ExportAsFixedFormat方法没有

---

一个简单的解决方案可能类似于Word ExportAsFixedFormat方法的“CreateBookmarks”参数，但我看不到Excel的文档。

欢迎使用！由于这不是一项免费的代码编写服务，您能否帮助我们了解您迄今为止为添加书签所做的尝试？在您的尝试中，有什么特别不起作用？请参考和@Jitendra，感谢您添加的文档，这将对我有很大帮助。欢迎使用SO！由于这不是一项免费的代码编写服务，您能否帮助我们了解您迄今为止为添加书签所做的尝试？在您的尝试中，有什么特别不起作用？请参考和@Jitendra，感谢您添加的文档，这将对我有很大帮助。