【VBA】PDF出力マクロの作り方～名前を付けて保存を完全自動化～

VBAを使ってPDF出力を自動化したい！好きなフォルダに好きな名前を付けて保存したい！

こんな要望にお応えします。

この記事では「指定するフォルダに好きな名前を付けてPDF出力するマクロ」の導入方法をご紹介します。

今回紹介するPDF出力マクロを参考にすることで以下の問題を解決することが可能

「日付け」を含めた名前で保存したい
「セルに入力したテキスト」を含めた名前で保存したい
「任意のテキスト」を含めた名前で保存したい
指定するフォルダに保存したい

毎日PDF出力を手作業でやっている！という方は是非参考にしてみてください。

ルーティーン作業はエクセルVBAで自動化することができます。

1 【VBA】PDF出力(指定するフォルダに名前を付けて保存)マクロとは
- 1.1 PDF出力マクロの作り方
- 1.2 PDF出力マクロの導入方法
2 【VBA】PDF出力の基本
3 業務内容に合わせてPDF出力マクロを導入するには

【VBA】PDF出力(指定するフォルダに名前を付けて保存)マクロとは

指定するフォルダに好きな名前を付けて保存するPDF出力をサンプルを使って「作り方」「導入方法」を解説していきます。

解説に利用するサンプルの概要がこちら

指定するフォルダ内にPDF出力する
ファイル名は「A1セル+給与支給明細書+年-月」にする

という処理を自動化できます。

サンプルPDF出力マクロの使い方は

I2セルに「保存先のフォルダ場所」を入力し、実行ボタンを押下する

だけ。

これだけでPDF形式のデータを「名前を付けて保存」することができます。

PDF出力マクロの作り方

PDF出力はExportAsFixedFormatを利用します。

保存先を指定し好きな名前を付けて保存するにはExportAsFixedFormatのFilenameをしっかり設定する必要があります。

サンプルのPDF出力マクロのコードがこちら

MyFolder = Cells(2, 9)
ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFolder & "\" & Ash.Cells(1, 1) & "　" & "給与支給明細書" & "　" & Format(Now, "ge") & "-" & Month(Now) & ".pdf", Quality:=xlQualityStandard, OpenAfterPublish:=False

Filenameの「MyFolder」で保存先フォルダを指定

Filenameの「Ash.Cells(1, 1) & “　" & “給与支給明細書" & “　" & Format(Now, “ge") & “-" & Month(Now) & “.pdf"」でファイル名を指定

しています。

PDF出力マクロの導入方法

PDF出力マクロの導入方法を順番に解説していきます。

1.Moduleを作成

2.Module1にコードを入力

コードは次で紹介するサンプルをコピペしてもOKです。

3.PDF出力マクロのコード

 Sub PDF出力()
    Dim Ash As Worksheet
    Set Ash = ThisWorkbook.Worksheets("PDF出力")
    gyoa = Ash.Cells(Rows.Count, 1).End(xlUp).Row
    Dim MyFolder As String
    Dim Cou1 As Long
    'PDF保存先のパスを変数格納
    MyFolder = Cells(2, 9)
    Ash.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFolder & "\" & Ash.Cells(1, 1) & "　" & "給与支給明細書" & "　" & Format(Now, "ge") & "-" & Month(Now) & ".pdf", Quality:=xlQualityStandard, OpenAfterPublish:=False
 End Sub

4.ボタンを設定