【VBA】全てのシートをまとめてPDFにする方法

今回はVBAを使ってExcelの複数シートをまとめて1つのPDFファイルに変換する方法を紹介します。

ここではA社、B社、C社の3シートに分かれている明細書を1つの明細書(PDFファイル)にまとめます。
※サンプルデータはExcelのテンプレートにある明細書を使用しています。

Excel VBA 脱初心者のための集中講座

created by Rinker

マイナビ出版

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

コード
解説

コード

Sub PDF_Export()

    Dim Path As String
    Dim WSH As Object
    Dim OpenFileName As String
    Dim FolderName As String
    
    '作成するフォルダ名
    FolderName = Format(Date, "yyyymmdd")
    '特殊フォルダの取得
    Set WSH = CreateObject("WScript.Shell")
    'デスクトップの位置を取得
    Path = WSH.SpecialFolders("Desktop") & "\"
    'カレントフォルダ変更
    ChDir Path
     
    'デスクトップに指定したフォルダがない場合作成する
    If Dir(Path & FolderName, vbDirectory) = "" Then
        MkDir Path & "\" & FolderName
    End If

    Dim FileName As String

    'PDFで出力
    Sheets.Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Path & "\" & FolderName & "\" & "明細まとめ.pdf"

End Sub

Sub PDF_Export()

Dim Path As String

Dim WSH As Object

Dim OpenFileName As String

Dim FolderName As String

'作成するフォルダ名

FolderName = Format(Date, "yyyymmdd")

'特殊フォルダの取得

Set WSH = CreateObject("WScript.Shell")

'デスクトップの位置を取得

Path = WSH.SpecialFolders("Desktop") & "\"

'カレントフォルダ変更

ChDir Path

'デスクトップに指定したフォルダがない場合作成する

If Dir(Path & FolderName, vbDirectory) = "" Then

MkDir Path & "\" & FolderName

End If

Dim FileName As String

'PDFで出力

Sheets.Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Path & "\" & FolderName & "\" & "明細まとめ.pdf"

End Sub

保存先の指定が不要な場合はこちらを使ってください。
※保存先を指定しない場合は、「ドキュメント」フォルダに保存されると思います。

Sub PDF_Export2()

    'PDFで出力
    Sheets.Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="明細まとめ.pdf"

End Sub

Sub PDF_Export2()

'PDFで出力

Sheets.Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="明細まとめ.pdf"

End Sub

解説

VBAのコードを実行すると実行年月日のフォルダがデスクトップに存在するか確認し、存在しない場合はフォルダを作成します。

25行目の「Sheets.Select」で明細A～Cのシートを全選択にした状態でPDFに変換をすると1つのPDFにまとめることができます。

今回は2021年10月15日に実行したので、デスクトップに「202110015」フォルダが作成され、3シートをまとめたPDFファイルが出力されます。