将某些 Excel 工作表导出为单独的 PDF 的宏答案

【问题标题】：Macro to Export Certain Excel Sheets to Separate PDF将某些 Excel 工作表导出为单独的 PDF 的宏
【发布时间】：2017-08-31 09:11:30
【问题描述】：

我有一个宏可以将工作簿中的某些工作表导出为单独的 PDF（用于报告目的）。它在一个工作簿中对我来说可以正常工作，但是，在另一个工作簿中它正在导出所有工作表。我不知道我哪里出错了。为了让事情变得更简单，我将根据我的目的自定义它的地方用斜体表示。

Sub ExportToPDFs()  
' PDF Export Macro  
' C:\ *location*  
' Sheets(Array("*selected sheets*")).Select  

Dim nm As String  
Dim ws As Worksheet  

For Each ws In Worksheets  
ws.Select  
nm = ws.Name  

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _  
Filename:="C:\*location*" & "*Report Title*" & nm & Range("D8").Value & ".pdf", _  
Quality:=xlQualityStandard, IncludeDocProperties:=True, _  
IgnorePrintAreas:=False, OpenAfterPublish:=True  

Next ws  

End Sub

【问题讨论】：

这会将它们全部导出，因为您执行For Each ws in Worksheets。这将遍历工作簿中的每个工作表并将其导出。
你建议我用什么来代替它？

标签： vba excel pdf

【解决方案1】：

您需要使用要导出的工作表的名称填充数组sheets_to_select。否则，这对你有用。

Sub ExportToPDFs()  
' PDF Export Macro  
' C:\ *location*  
' Sheets(Array("*selected sheets*")).Select  

Dim nm As String  
Dim ws As Worksheet  
Dim i as Variant, sheets_to_select as Variant

sheets_to_select = Array("Sheet1","Sheet2","Sheet3")

For Each i in sheets_to_select  
   Thisworkbook.Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, _  
      Filename:="C:\*location*" & "*Report Title*" & i & Thisworkbook.Sheets("*The sheet you need the value of D8 from").Range("D8").Value & ".pdf", _  
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _  
      IgnorePrintAreas:=False, OpenAfterPublish:=True  

Next i

End Sub

【讨论】：

【解决方案2】：

好问题！我认为这应该可以满足您的需求...只需修改脚本以满足您的需求...

Sub ExportToPDFs()

Dim ws As Worksheet

For Each ws In Worksheets
ws.Select
nm = ws.Name

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\your_path_here\" & nm & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Next ws

End Sub

【讨论】：