VBA从Excel导出PDF格式的副本2份

我正在寻找一个解决方案，将几张表格从Excel导出到一个文件PDF。我录制了一个可以创建漂亮的PDF和所有有趣的表单的宏。但是我需要在同一PDF中的其中一张纸的两份副本，但我不知道该怎么做。这是我的代码。VBA从Excel导出PDF格式的副本2份

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

来源

2016-04-25 Adam

这个网站是在这方面充分的解决方案：http://stackoverflow.com/questions/36597511/excel-vba-export-multiple-sheets-to-pdf或复制工作表，然后http://stackoverflow.com/questions/20750854/ excel-vba-to-export-selected-sheets-to-pdf。 – Ralph

谢谢。我会检查工作中的所有内容。 – Adam

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

来源

2016-04-25 11:13:30 Clusks

这是我第一次想到，但我的全部代码实际上有点慢，我不确定这个解决方案。我会在工作中检查它，也许它会很快。预先感谢您;） – Adam

它完美的作品，谢谢：] – Adam

你是多么欢迎！如果你能接受我的答案是正确的，那就太好了，因为我仍然在追求我的名声！ :) – Clusks

VBA从Excel导出PDF格式的副本2份

回答

相关问题