从 Excel 中的多个工作表创建预定义区域的 PDF答案

【问题标题】：Create PDF of predefined areas from multiple sheets in excel从 Excel 中的多个工作表创建预定义区域的 PDF
【发布时间】：2017-06-27 20:16:29
【问题描述】：

我是这个世界上真正的菜鸟，但我希望你能忍受我.. :)

我正在编写一个工作簿，最终结果应该是创建一个 PDF 概览。这应该包括来自工作簿内 3 张纸区域的信息。

我从不同的线程构造了下面插入的代码。每次我尝试运行它时，它都会给我一个错误提示“下标超出范围”。

任何反馈将不胜感激！ :=)

Sub CreatePDF()

    Sheets("Sheet(1)").Select
    Range("B1:K27").Select
    Sheets("Sheet(7)").Select
    Range("A4:J37").Select
    Sheets("Sheet(3)").Select
    Range("A1:J24").Select

        ThisWorkbook.Sheets(Array("Sheet(1)", "Sheet(7)", "Sheet(3)")).Select
        Selection.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:="C:\temp\temp.pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True

    Sheets("Sheet(1)").Select
    Range("A1").Select

End Sub

【问题讨论】：

标签： vba excel pdf

【解决方案1】：

Array("Sheet(1)", "Sheet(7)", "Sheet(3)")

这应该是

Array(1, 7, 3) ' numeric indexes of sheets according to their tab positions

或

Array("Sheet1", "Sheet7", "Sheet3") ' exact names of sheets

也正确Sheets("Sheet(1)")，根据您的意图应该是Sheets("Sheet1") 或Sheets(1)。

【讨论】：