VBA Экспорт PDF из Excel в 2-х экземплярах

Question

Я ищу решение для экспорта нескольких листов из Excel в один файл PDF. Я записал макрос, который создает хороший PDF со всеми интересными листами. НО мне нужно 2 копии одного из листов в одном PDF-файле, но я не знаю, как это сделать. Вот мой код.

Sub ExportPDF() 
    Sheets(Array("PackingList", "Administracyjny", "Nadawca", "Odbiorca", "Przewoźnik")).Select 
    Sheets("PackingList").Activate 
    ChDir "C:\Users\XXXXXX\Desktop" 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
     "C:\Users\XXXXXX\Desktop\Spools_PackingList.pdf", _ 
     Quality:=xlQualityStandard, IncludeDocProperties:=True, _ 
     IgnorePrintAreas:=False, OpenAfterPublish:= False 
End Sub 

Answer 1

See here for copying a worksheet, это может быть хорошим решением, чтобы скопировать всю таблицу в начале вашего кода, а затем вы можете просто удалить его в конце с (taken from here):

Sub sbDeleteASheet() 
Sheet1.Delete 
'OR You can mention the Sheet name 
Sheets("Sheet2").Delete 
End Sub