ひとつのExcelブックにある各ワークシートを個別のPDFにするならマクロを使おう

ひとつのExcelブックにあるワークシートを、ワークシートごとに個別のPDFに変換したいときはありませんか？

ワークシートの数が少なければそれほど手間ではないですが、たくさんのワークシートがある場合、ひとつひとつファイル名も入力しないといけないし大変な手間ですよね。

そんなときマクロを使えば、一瞬でPDFファイルが作成でき、しかもファイル名も自動でつけてくれます。

マクロを書く準備

マクロを書くためには、まず”開発タブ”を表示させましょう。

作業するExcelのブックを開いて、左上の”ファイル”→”オプション”から”Excelのオプション”ウィンドウを表示し、”リボンのユーザー設定”から”開発”にチェックを入れて、OKボタンをクリックします。

するとリボンに”開発タブ”が表示されます。

次にマクロのセキュリティを設定します。

”警告を表示してすべてのマクロを無効にする”に設定します。

次はAltキーとF11キーを同時に押してVBE（Visual Basic Editor）を起動します。

”ツール”→”オプション”から

次のように設定します。

次は、Alt→I→Mと順番に押してモジュールを作成します。

このモジュールにマクロを書いていきます。

ワークシートごとにPDFに変換するマクロ

基本構文

ワークシートをPDFに変換する基本の構文は次のようになります。

Sub マクロの名前()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & “￥” & ”ファイル名”, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

コピペする場合、￥は全角になっていますが半角の￥にすることと、半角のスペースにご注意ください。
また、そのままコピペしてもエラーが出ますので、貼り付けたあと、この後に出てくる画像のようになるように微調整をお願いします。
コピペで使えるように調査中です。スミマセン^^;

項　目	説　明
ActiveSheet	現在開いているワークシートのこと
Filename	PDFの保存場所と名前です。この例の場合、マクロが保存されているブックと同じフォルダにPDFが保存されます。
Quality	ファイルの品質です。この例の場合は標準です。
IncludeDocProperties	True…プロパティを設定 False…プロパティを省略
IgnorePrintAreas	True…設定された印刷領域を無視 False…設定された印刷領域を無視しない
OpenAfterPublish	True…マクロ実行後PDFが表示される False…マクロ実行後PDFが表示されない

ワークシートごとにPDFにする場合

基本構文のままだと、アクティブにしているワークシートしかPDFにならないので、次のように書きます。

Sub ワークシートごとにPDFに変換()

Dim i As Long
For i = 1 To Worksheets.Count

Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & “￥” & _
Worksheets(i).Name, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

Next i

End Sub

”Dim i”とは「”i”は数字が変わる変数です」という意味です。

”i”には1からWorksheets.Count、つまりワークシートの数までの数字が入ることになります。

”For i〜Next i”は、For〜Nextまでの間の処理をiの数だけ繰り返すという意味です。

そして、「Filename:=ThisWorkbook.Path & “￥” & _ Worksheets(i).Name」でワークシートの名前がPDFのファイル名になるようにしています。

実際にVBEにマクロを書くとこんな感じになります。