使用當前工作簿名稱將excel另存為PDF

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）.select的原因。

第一張表不在您的數組中