另存为PDF VBAfunction问题

我做了一个简单的function，将我的所有标签保存到目标文件夹中。 但是，在实施整个过程之后，我意识到这不会每周都工作。

为了解决我从一个星期到另一个问题，我需要的文件是PDF而不是.xlsx。 我试图通过修改已经存在的函数来解决这个问题，但是，当我打开它生成的pdf文件时，它们会被“损坏”，或者说Adobe。

请看下面：

Sub SaveFilesInFolder() ' 'This is a function for saving each worksheet as a workbook in a destination folder ' ' Dim sh As Worksheet Dim wb As Workbook For Each sh In Worksheets SheetName = sh.Name sh.Copy With ActiveWorkbook .SaveAs FileName:="C:\Example\" & SheetName & ".pdf" .Close SaveChanges:=True End With Next sh End Sub 

我知道的ExportAsFileFormat，但我有麻烦得到与具有超过100个选项卡的整个工作簿。

任何build议表示赞赏。

谢谢，

Answer 1

 Sub Test() For Each sht In Sheets sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\" & sht.Name & ".pdf" Next End Sub 

Answer 2

您需要调用ExportAsFixedFormat方法。

 .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Example\" & SheetName & ".pdf"