在不使用 Activesheet 的情况下将外部工作表导出为 PDF答案

【问题标题】：Exporting external sheets to PDF without using Activesheet在不使用 Activesheet 的情况下将外部工作表导出为 PDF
【发布时间】：2017-02-23 00:27:10
【问题描述】：

我有一个两部分的问题

我有一个要从中创建 PDF 的工作表和选项卡列表。由于我无法一次创建 1 个 PDF，因此我决定创建多个 PDF 并一步合并它们。现在这是我的问题。

一般.exportAsFixedformat和'Activesheet'一起使用，我想直接用这个，

即使我使用 Activesheet 执行此操作，参数“From”和“To”也会给我带来问题

    Do
    PrintWB = .Cells(i, 2) 'sheetpath + workbookname
    sheetname = .Cells(i, 3) 'Name of Tab
    Frompage = .Cells(i, 4) 'From
    Topage = .Cells(i, 5) 'To

    Workbook(PrintWB).Sheets(sheetname).ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:\Rough\" & x & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False, _
    From:=Frompage,_
    To:=Topage
    Loop While .Cells(i - 1, 2) = .Cells(i, 2)

简短说明：Do-while 循环可以帮助我避免一次又一次地打开和关闭同一张工作表，以防万一其中一张工作表有多个要打印的标签，所以忽略它

现在我们打印一堆文件，制作一个小册子后归档，如果我能够合并一个PDF，这将节省很多纸张。

【问题讨论】：

标签： excel vba pdf export-to-pdf

【解决方案1】：

它在 WOrkbook 中有拼写错误，最后应该有一个 's'...所以它应该是工作簿并且它有效！

【讨论】：