Excel VBA 将选定的工作表组合保存为 PDF答案

【问题标题】：Excel VBA to Save Selected Sheets in Combination as PDFsExcel VBA 将选定的工作表组合保存为 PDF
【发布时间】：2014-11-07 22:35:47
【问题描述】：

我有一个包含许多工作表的工作簿。我想保存为两页 PDF，其中第一页是 Worksheet 1，第二页是 Worksheets 2-x。我的代码目前只允许我为工作簿中的每个工作表保存单独的 PDF。我想知道要添加什么来使它做到这一点。谁能分享一些建议？

谢谢！

Option Explicit

Sub createPDFfiles()
Dim ws As Worksheet
Dim Fname As String
For Each ws In ActiveWorkbook.Worksheets
    On Error Resume Next

    Fname = "C:\Folder\" & ws.Name & "Report" & Format(Date, "yyyy-mm-dd") & ".pdf"

   ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=Fname, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False
Next ws
End Sub

【问题讨论】：

您使用的是什么版本的 Excel？
应该声明-对不起。我在 Excel 2007 上。
您的意思是要将第一个工作表放在一个文件中，而将其余工作表放在第二个文件中吗？
澄清一下，我正在寻找多个两页的 PDF，其中 Worksheet 1 基本上是所有 PDF 的封面。即 (Worksheet1 + Worksheet2)、(Worksheet1 + Worksheet3)、(Worksheet1 + Worksheet4) 等。当我第一次编写此代码时，我不需要封面，因此可以将所有工作表导出为单独的 PDF。
stackoverflow.com/questions/14404650/…

标签： excel vba pdf worksheet

【解决方案1】：

您正在枚举工作表并在该循环中进行保存。这就是每个工作表获得一个 PDF 的原因。尝试仅使用工作簿而不是 ActiveWorkbook.Worksheets。

【讨论】：

感谢您的回复 - 澄清一下，我正在寻找多个两页的 PDF。即（Worksheet1 + Worksheet2）、（Worksheet1 + Worksheet3）、（Worksheet1 + Worksheet4）等
好的，在大方向上超级快速轻推，尝试在循环中选择工作表 1 + 当前工作表，然后进行导出。我不记得了，但它可能类似于with selected.worksheets.. Select Worksheet1...

【解决方案2】：

呸。它一直盯着我的脸。我修改了代码以包含一个选择，并将第二个工作表命名为 ws.Name。最终脚本如下所示：

Option Explicit

    Sub createPDFfiles()
    Dim ws As Worksheet
    Dim Fname As String
    For Each ws In ActiveWorkbook.Worksheets
        On Error Resume Next

        Fname = "C:\Folder\" & ws.Name & "Report" &   Format(Date, "yyyy-mm-dd") & ".pdf"

        Sheets(Array("Sheet1", ws.Name)).Select

    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Fname, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False
    Next ws
End Sub

感谢大家的帮助！

【讨论】：