另存为PDF VBA功能问题

问题描述：

我做了一个简单的功能，将我的所有选项卡保存到目标文件夹中。但是，在实施整个流程后，我意识到这不会每周工作。另存为PDF VBA功能问题

要解决我从一周到另一周的问题，我需要的文件是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+选项卡中的整个工作簿工作。

任何建议表示赞赏。

谢谢

答

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

这工作，但我需要每个选项卡是一个单独的PDF文件。谢谢您的意见。 –

查看编辑答案 –

Abe，它提示的错误是“我们找不到要打印的东西”。我复制并粘贴了你的代码，只是改变了目标文件夹。 –

答

你需要调用ExportAsFixedFormat方法。

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

我尝试这一点，但一个问题使我回避它。它促使我为每个工作表保存一个excel文件。 –

另存为PDF VBA功能问题

相关推荐