Excel VBA для сохранения выбранных листов в формате PDF

Question

У меня есть книга со многими рабочими листами. Я хотел бы сохранить как двухстраничные PDF-файлы, где первая страница - это рабочий лист 1, а вторая страница - Worksheets 2-x. В настоящее время мой код позволяет мне сохранять отдельные PDF-файлы для каждого рабочего листа в книге. Мне интересно, что добавить к нему, чтобы заставить это сделать это. Может ли кто-нибудь поделиться советами?

Спасибо!

Option Explicit 

Sub createPDFfiles() 
Dim ws As Worksheet 
Dim Fname As String 
For Each ws In ActiveWorkbook.Worksheets 
    On Error Resume Next 

    Fname = "C:\Folder\" & ws.Name & "Report" & Format(Date, "yyyy-mm-dd") & ".pdf" 

    ws.ExportAsFixedFormat _ 
     Type:=xlTypePDF, _ 
     Filename:=Fname, _ 
     Quality:=xlQualityStandard, _ 
     IncludeDocProperties:=True, _ 
     IgnorePrintAreas:=False 
Next ws 
End Sub 

Answer 1

Вы перечислите листы и сделаете сохранение в этом цикле. Вот почему вы получаете один PDF-файл на листе. Попробуйте использовать только рабочую книгу вместо ActiveWorkbook.Worksheets.

Answer 2

Gah. Он все время смотрел мне в лицо. Я изменил код, чтобы включить выделение, и назвал второй лист ws.Name. Окончательный сценарий выглядит так:

Option Explicit 

    Sub createPDFfiles() 
    Dim ws As Worksheet 
    Dim Fname As String 
    For Each ws In ActiveWorkbook.Worksheets 
     On Error Resume Next 

     Fname = "C:\Folder\" & ws.Name & "Report" & Format(Date, "yyyy-mm-dd") & ".pdf" 

     Sheets(Array("Sheet1", ws.Name)).Select 

    ActiveSheet.ExportAsFixedFormat _ 
      Type:=xlTypePDF, _ 
      Filename:=Fname, _ 
      Quality:=xlQualityStandard, _ 
      IncludeDocProperties:=True, _ 
      IgnorePrintAreas:=False 
    Next ws 
End Sub 

Спасибо за помощь!