VBA 将所有 Excel 工作簿选项卡打印/导出/保存到一个 PDF 文档中答案

【问题标题】：VBA print/export/save all Excel workbook tabs into one PDF documentVBA 将所有 Excel 工作簿选项卡打印/导出/保存到一个 PDF 文档中
【发布时间】：2017-05-17 08:06:44
【问题描述】：

我正在尝试将 Excel 工作簿中的所有选项卡打印/导出或保存为一个 PDF 文档。

选项卡的数量可以是任意数字，可以任意命名。

我有以下代码：

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

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

但这显然需要纸张的数量和纸张的确切名称。有没有办法计算工作簿中的工作表数量并将所有这些工作表打印为 PDF 作为一个 PDF 文档？

请有人告诉我如何做到这一点？提前致谢

【问题讨论】：

标签： vba excel pdf

【解决方案1】：

只需使用 ThisWorkbook.ExportAsFixedFormat 或 ActiveWorkbook.ExportAsFixedFormat

Option Explicit
Public Sub Example()

    ThisWorkbook.ExportAsFixedFormat _
                     Type:=xlTypePDF, _
                     FileName:="C:\tempo.pdf", _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=True

End Sub

Workbook.ExportAsFixedFormat Method (Excel)

【讨论】：