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

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

所有的步骤后loggingmacros回去，并试图取代我在这个论坛的一些线程中发现的代码片段，但现在它不工作。

当前版本在下面。 我打破了什么？

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

你会得到一个错误，如果在运行macros之前所需的工作表将被选中/激活..这就是为什么你需要添加第一行表（1）。select

第一张不在你的数组中