Сохранение нескольких листов в PDF

Question

im пытается сохранить несколько листов в виде одного файла PDF.
Следующий макрос использует имена листов, но он не подходит мне, а мои листы имеют динамические имена. Старался использовать адреса Таблиц (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