Question

尝试将工作簿中的一组工作表保存为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

Answer 1

尝试以下代码：

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

Answer 2

如果在运行宏之前，您将收到一个错误，将会选择/激活所需的工作表之一..这就是您需要添加第一行的原因表（1）。选择

第一张表不在数组中

使用当前工作簿名称将Excel保存为当前文件夹中的PDF

2 个答案: