将多张工作表保存为 PDF答案

【问题标题】：Save multiple sheets into PDF将多张工作表保存为 PDF
【发布时间】：2016-09-11 11:39:12
【问题描述】：

我正在尝试将多个工作表保存为单个 pdf 文件。
以下宏使用表格名称，但它不适合我，因为我的表格具有动态名称。试图使用 Sheets(1) 寻址但没有用。有人知道吗？

Sub export_to_pdf()  
  Sheets(Array("Configuration", "chart")).Copy   
  ActiveWorkbook.ExportAsFixedFormat _    
    Type:=xlTypePDF, _  
    Filename:="filename.pdf", _     
    Quality:=xlQualityStandard, _  
    IncludeDocProperties:=False, _   
    IgnorePrintAreas:=False, _   
  OpenAfterPublish:=True
  ActiveWorkbook.Close (False)  
End Sub

【问题讨论】：

stackoverflow.com/questions/14404650/…

标签： vba excel pdf

【解决方案1】：

使用

Sheets(1).ExportAsFixedFormat _
          Type:=xlTypePDF, _
          Filename:="filename.pdf", _
          Quality:=xlQualityStandard, _
          IncludeDocProperties:=False, _
          IgnorePrintAreas:=False, _
          OpenAfterPublish:=True

或者如果你有更多

Sheets(Array(1, 2, 5)).Copy

ActiveWorkbook.ExportAsFixedFormat _
               Type:=xlTypePDF, _
               Filename:="filename.pdf", _
               Quality:=xlQualityStandard, _
               IncludeDocProperties:=False, _
               IgnorePrintAreas:=False, _
               OpenAfterPublish:=True

ActiveWorkbook.Close (False)

【讨论】：

【解决方案2】：

您的程序代码适用于我，只需在此处进行细微更改。

Sub export_to_pdf()
  Sheets(Array("Sheet1", "Sheet2")).Copy 'Change to your sheets 
  ActiveWorkbook.ExportAsFixedFormat _
  Type:=xlTypePDF, _
  Filename:="filename.pdf", _
  Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, _  'changed to True
  IgnorePrintAreas:=False, _
  OpenAfterPublish:=True
  ActiveWorkbook.Close (False)
End Sub

在这种情况下，我也在Tools Reference 中设置了对Microsoft Word Object Library 的引用

【讨论】：

您将如何修改此代码以使用用户在运行 Sub 之前拥有的工作表 Selected？？
@Gary 的学生我分析了我的示例数据上的代码，并将其更改为 sheet1 和 sheet2 以进行测试。如所示，这对我有用。但是，很抱歉我误解了 OP 要求。这是他想选择具有动态名称的工作表。我想撤回我的答案，但我不知道这里是怎么做的。
请不要删除这个答案.....我只是在问一个问题！答案可能是好的。对于 Wariat.......
@user3598756 程序代码完全满足OP要求。归功于他。请忽略我对 OP 代码的观察。