vba - 将多张工作表保存为 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)