【VBA】複数シートを１つのPDFデータで保存する方法～サンプルコードを掲載～

複数シートを１つのPDFデータで保存したい！

このような要望をVBAを使って解決します。

この記事では

複数のシートを１つのPDFデータで保存するVBAの作り方、コードの解説

を紹介しています。

このVBAは以下のような問題を抱えている方におすすめ

エクセルデータをPDF形式で保存することが多い
シートをどんどん増やして編集作業をしている
PDFデータをメールに添付することが多い

PDF出力する業務の効率をアップさせたい！という方は是非参考にしてみてください。

1 【VBA】複数シートを１つのPDFで保存するVBA
- 1.1 サンプルコード
- 1.2 VBAの導入方法
2 PDF保存するVBAの基本
3 業務内容に合わせてPDF保存するVBAを導入するには
- 3.1 自分でVBAを設定する方法
- 3.2 VBA開発依頼をする方法

【VBA】複数シートを１つのPDFで保存するVBA

複数シートを１つのPDFで保存するマクロはどういう処理をするのか

を図を使ってご紹介していきます。

1.いつも通りエクセルデータの編集をする

2.PDF出力したいシート番号を「X3セル」と「Z3セル」に入力

3.「PDF出力ボタン」をクリック

4.フォルダ内のPDFデータが保存される

使い方は

PDF出力したシート番号を入力して「PDF出力ボタン」をクリック

たったこれだけ。

一瞬で複数のシートを１つのPDFデータで保存することができます。

ガッツポーズの人

シート数が10個だろうが100個だろうが関係ありません。

サンプルコード

複数シートを１つのPDFで保存するVBAに設定されているコードがこちら

Sub PDF保存()
    Dim folder_path As String
    folder_path = ThisWorkbook.Path & "\"
    Dim Num1, Num2 As Long
    Dim sheet_counts2 As Long
    Dim sheet_container() As Variant
    'X3セル、Z3セルに記入された数字を変数に格納
    Num1 = ActiveSheet.Cells(3, 24)
    Num2 = ActiveSheet.Cells(3, 26)
    sheet_counts1 = Worksheets.Count
                '配列を使ってコピペした全てのシートをアクティブにする
                ReDim sheet_container(Num1 To Num2)
                For i = Num1 To Num2
                sheet_container(i) = Sheets(i).Name
                Next i
            Sheets(sheet_container).Select
            'PDF出力
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=folder_path & "写真番号" & ActiveSheet.Cells(3, 24) & "～ 写真番号" & ActiveSheet.Cells(3, 26) & ".pdf", Quality:=xlQualityStandard, OpenAfterPublish:=False
End Sub

12行目から16行目までが

複数のシートを選択（アクティブ）するVBA

です。

配列とFor～Nextを使って指定する写真番号を変数Sheet_containerに格納しています。

18行目は

「保存する場所」「データ名」を指定してPDF出力するVBA

です。