将多页保存为PDF

Question

即时尝试将多个工作表保存为单个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 

Answer 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) 

Answer 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 

在这种情况下，我设置参考Microsoft Word Object Library也ToolsReference