Vba 使用当前工作簿名称将excel另存为当前文件夹中的PDF

尝试将工作簿中的一组工作表保存为PDF格式并使用工作簿名称保存到同一文件夹中

在记录了宏的所有步骤后，我返回并尝试用我在本论坛的一些线程中发现的代码片段替换这些代码片段，但现在它不起作用

当前版本如下。 我打碎了什么

SaveToPDF Macro

Sheets(Array("AUDIT Info", "REVIEW", "FILES", "WARNINGS", "PURGE", "NonBIM", _
    "Clashes", "ViewsManagement")).Select
Sheets("AUDIT Info").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & ActiveWorkbook.Name _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
Sheets("AUDIT Info").Select

请尝试以下代码：

Option Explicit

Sub SaveSheetsasPDF()

ThisWorkbook.Sheets(Array("AUDIT Info", "REVIEW", "FILES", "WARNINGS", "PURGE", "NonBIM", "Clashes", "ViewsManagement")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & ThisWorkbook.Name, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

---

如果在运行宏之前选择/激活所需的工作表之一，则会出现错误。。这就是为什么需要添加第一行 表1.选择

---

如果第一张图纸不在阵列中

它正在工作。非常感谢你。但创建的PDF包含[filename].xlms.PDF扩展名。如何删除xlms位？刚刚添加。Dim NameOfWorkbook NameOfWorkbook=LeftThisWorkbook.Name，InstreVThisWorkbook.Name，，，-1，vbTextCompare-1