VBA Excelから2つのコピーでPDFをエクスポートする

ExcelからいくつかのシートをPDFファイルにエクスポートするソリューションを探しています。私はすべての興味深い私のシートと素敵なPDFを作成するマクロを記録しました。しかし、私は同じPDFでシートの1つの2つのコピーが必要ですが、私はそれを行う方法がわかりません。ここに私のコードです。VBA Excelから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

出典

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から2つのコピーでPDFをエクスポートする

答えて

関連する問題