【Excel VBA】PDF出力/名前を付けて保存する方法！複数の保存先指定可！

VBAで複数ブックをPDF出力/名前を付けて保存したいときはないでしょうか。

けど、そんな中で悩むことは、

ですよね。

今回はそんなお悩みを解決する

についてまとめます！

VBAで複数ブックをPDF出力/名前を付けて保存するイメージ

VBAで複数ブックをPDF出力/名前を付けて保存するイメージについて説明をします。

3シートあるエクセルブックを3つ用意します。

次にExcel側で対象ブックのパスとPDF保存先パスとファイル名一覧を作成します。

VBAを実行すると、Excelリスト分のブックがPDF形式で出力/名前を付けて保存されます。

さらにExcel側に列を追加し、シートを指定し、

VBAを実行すると選択したシートのみPDF形式で出力します。

さらにさらにセルの範囲を指定した上、

各シートをPDF形式で出力していきます。

大量のPDFファイルを出力したいときに便利ですね！

それでは早速試してみましょう。

VBAで複数ブックをPDF出力/名前を付けて保存するメソッドについて

VBAでブックの全シートを複数ブックをPDF出力/名前を付けて保存する方法について説明をします。

Workbook.ExportAsFixedFormatメソッド数について

使うメソッドはWorkbook.ExportAsFixedFormatメソッドとなります。

ExportAsFixedFormat メソッドは、ブックを PDF または XPS 形式に出力することができます。

Workbook.ExportAsFixedFormat メソッドの構文と設定パラメータは以下の通りです。

構文

設定パラメータ

今回は複数ブックをPDF出力/名前を付けて保存するので、パラメータに「Type:=xlTypePDF」を設定します。

参照：https://docs.microsoft.com/ja-jp/office/vba/api/excel.workbook.exportasfixedformat

VBAで複数ブックをPDF出力/名前を付けて保存する方法

VBAで複数ブックをPDF出力/名前を付けて保存する方法について説明をします。

サンプルブックを準備する

3シートあるエクセルブックを3つ用意します。

PDF出力/名前を付けて保存先リストを準備する

次にExcel側で対象ブックのパスとPDF保存先パスとファイル名一覧を作成します。

このリストに沿って、Excelリスト分のブックがPDF形式で出力されます。

タカヒロ

シートの位置は一番左端にするようお願いします。

VBAコード

サンプルのVBAコードは以下の通りです。

Sub 複数ブックを全シートPDF出力/名前を付けて保存する()

    Dim objExcelapp As New Excel.Application
    Dim objWorkbook As Workbook
    Dim strPass As String
    Dim intEndrow As Integer
    Dim i As Integer
    
    'マクロ実装ブックの１シート目を対象にします。
    With ThisWorkbook.Worksheets(1)
    
        'PDF出力/名前を付けて保存先リストの最終行を取得します。
        intEndrow = .Cells(Rows.Count, 1).End(xlUp).Row
        
        '２行目から最終行まで処理を繰り返します。
        For i = 2 To intEndrow
        
            'PDF出力/名前を付けて保存先のパスを指定します。
            strPass = .Cells(i, 2).Value
            
            'PDF出力/名前を付けて保存対象ファイルをオブジェクトにセットします。
            Set objWorkbook = objExcelapp.Workbooks.Open(.Cells(i, 1).Value)
    
            'PDFを出力します。
            objWorkbook.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=strPass, _
                Quality:=xlQualityStandard, _
                OpenAfterPublish:=True
            
            'PDF出力/名前を付けて保存対象ファイルを閉じます。
            objWorkbook.Close Savechanges:=False

        Next i
    
    End With

    'オブジェクトを開放します。
    Set objWorkbook = Nothing
    Set objExcelapp = Nothing

End Sub

VBAを設定する

マクロ実装ブックの１シート目を対象にします。シート名を指定したい場合はシート番号「1」をシート名に変更してください。

PDF出力/名前を付けて保存先リストの最終行を取得します。Excelブック1シート目のA列を対象としていますので、変更する場合は列番号「1」を別の列番号に変更してください。

２行目から最終行まで処理を繰り返します。開始行が2行目でない場合は変更をしてください。

VBAの実装

VBAの実装方法については
VBAの実装手順
をご参照ください。

VBAを実行する

VBAを実行してみましょう。

Excelファイルは開くことなく、PDFが生成されました。

内容を確認すると、

3つのExcelブックすべてがPDFに出力/指定ファイル名でPDF保存されていることが確認できましたね！

タカヒロ

Excelファイルは表示はされませんが、バックグラウンドでは開いて処理をしている状態になります。

VBAの説明

VBAについて説明をします。

PDF出力/名前を付けて保存先のパスを指定します。B列を対象にしています。

PDF出力/名前を付けて保存対象ファイルをオブジェクトにセットします。

PDFファイルのパスと名前を指定します。

出力時の品質を指定します。xlQualityStandardは標準です。

PDF出力/名前を付けて保存後にオープンするよう指定しています。Trueに設定すると出力後にビューアが表示されます。

PDF出力/名前を付けて保存対象ファイルを閉じます。

オブジェクトを開放します。

VBAで指定シートのPDFをを出力する方法

VBAで複数シートのPDFをを出力する方法について説明をします。

前回はすべてのシートが対象でしたが、次は出力したいシートを指定することができます。

PDF出力/名前を付けて保存先リストにシート列を追加する

PDF出力/名前を付けて保存先リストにシート列を追加し、指定したいシート名かシート位置番号を入力します。

タカヒロ

シート位置番号は左端のシートから数えていきます。

VBAコード

サンプルのVBAコードは以下の通りです。

Sub 複数ブックの特定シートをPDF出力/名前を付けて保存する()

    Dim objExcelapp As New Excel.Application
    Dim objWorkbook As Workbook
    Dim strPass As String
    Dim intEndrow As Integer
    Dim i As Integer
    
    'マクロ実装ブックの１シート目を対象にします。
    With ThisWorkbook.Worksheets(1)
    
        'PDF出力/名前を付けて保存先リストの最終行を取得します。
        intEndrow = .Cells(Rows.Count, 1).End(xlUp).Row
        
        '２行目から最終行まで処理を繰り返します。
        For i = 2 To intEndrow
        
            'PDF出力/名前を付けて保存先のパスを指定します。
            strPass = .Cells(i, 2).Value
            
            'PDF出力/名前を付けて保存対象ファイルをオブジェクトにセットします。
            Set objWorkbook = objExcelapp.Workbooks.Open(.Cells(i, 1).Value)

            'PDFを出力します。
            objWorkbook.Worksheets(.Cells(i, 3).Value).ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=strPass, _
                Quality:=xlQualityStandard, _
                OpenAfterPublish:=True
            
            'PDF出力/名前を付けて保存対象ファイルを閉じます。
            objWorkbook.Close Savechanges:=False

        Next i
    
    End With

    'オブジェクトを開放します。
    Set objWorkbook = Nothing
    Set objExcelapp = Nothing

End Sub

VBAを実行する

VBAを実行してみましょう。

PDFが自動で開き、内容を確認すると、

選択したシートがPDFに出力/指定ファイル名でPDF保存されていることが確認できましたね！

VBAの説明

VBAについて説明をします。

指定したシート名およびシート位置番号をWorksheetsコレクションの引数に指定し、対象シートを出力するようにしています。

VBAで指定シートを範囲指定した上PDF出力/名前を付けて保存する方法

VBAで指定シートを範囲指定した上PDF出力/名前を付けて保存する方法について説明をします。

サンプルでは3つのブックを以下のセルの範囲に絞り、PDF出力/名前を付けて保存していきます。

VBAコード

サンプルのVBAコードは以下の通りです。

Sub 複数ブックを特定シートを範囲指定した上PDF出力/名前を付けて保存する()

    Dim objExcelapp As New Excel.Application
    Dim objWorkbook As Workbook
    Dim strPass As String
    Dim intEndrow As Integer
    Dim i As Integer
    
    'マクロ実装ブックの１シート目を対象にします。
    With ThisWorkbook.Worksheets(1)
    
        'PDF出力/名前を付けて保存先リストの最終行を取得します。
        intEndrow = .Cells(Rows.Count, 1).End(xlUp).Row
        
        '２行目から最終行まで処理を繰り返します。
        For i = 2 To intEndrow
        
            'PDF出力/名前を付けて保存先のパスを指定します。
            strPass = .Cells(i, 2).Value
            
            'PDF出力/名前を付けて保存対象ファイルをオブジェクトにセットします。
            Set objWorkbook = objExcelapp.Workbooks.Open(.Cells(i, 1).Value)
strRange = "A1:B2"
            'PDFを出力します。
            objWorkbook.Worksheets(.Cells(i, 3).Value).Range(.Cells(i, 4).Value).ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=strPass, _
                Quality:=xlQualityStandard, _
                OpenAfterPublish:=True
            
            'PDF出力/名前を付けて保存対象ファイルを閉じます。
            objWorkbook.Close Savechanges:=False

        Next i
    
    End With

    'オブジェクトを開放します。
    Set objWorkbook = Nothing
    Set objExcelapp = Nothing

End Sub

VBAを実行する

VBAを実行してみましょう。

PDFが自動で開き、内容を確認すると、

選択シートに絞られ出力/指定ファイル名でPDF保存されていることが確認できましたね！

VBAの説明

VBAについて説明をします。

PDF出力/名前を付けて保存する対象にRangeを加え、セルの範囲を引数に指定することにより、セルの範囲に絞り込むことができます。

VBAの実装手順

実装手順は以下の通りです。

Excel側にVBAを実装していきます。

①Excelを新規に開き、「開発」タブをクリックし、「VisualBasic」をクリックします。
もしくはショートカットキー「Alt」＋「F11」でもOKです。

②標準モジュールを追加します。
左ペインのVBAProjectを右クリックし、「挿入」、「標準モジュール」を選択します。

③右ペインのウインドウに上記のVBAを入力します。

こちらで完了です。

VBAを実行する

では早速VBAの実行をしてみましょう。

①「開発」タブの「VBA」をクリックし実行したいマクロを選択し、「実行」をクリックします。

②処理がされたことが確認できれば完了です。

さいごに

いかがでしょうか。

今回は、

についてまとめました。

また、他にも便利な方法がありますので、よろしければご参照頂ければと思います。