【Excel VBA】Excel保存時にPDFも同時に保存するマクロ

Excelを保存する時に、必ずPDFファイルを保存したいことがありますよね。

そんなときのために、Excel保存時にPDFも同時に保存するマクロを作成しました。また、保存したPDFファイル名には、日付をつけることでいつのファイルなのか分かるようにしてあります！

作成までの手順は以下になります。

おおまかな手順

Excel保存時にPDFも保存するマクロを作る
Excelで保存したときにイベントを発動し、上のマクロを呼び出す

VBAでマクロを作るための準備
- Module1を追加する
Excel VBA: Excel保存時にPDFも保存するマクロ

VBAでマクロを作るための準備

Module1を追加する

標準モジュールにModule1を追加します。

【VBAProjectを右クリック】→ 【挿入】 → 【標準モジュール】をクリックします。

そもそもこの画面なに？という方は、以下の記事でVBAを書き始める準備の方法をまとめているのでご覧ください。

【Excel VBA】Excelマクロの始め方～簡単なサンプル付き～

Excel VBA: Excel保存時にPDFも保存するマクロ

1. VBAのソースコードを書く

Module1を追加したら、以下のソースコードをコピぺしましょう。処理内容はソースのコメントに書いてあります。

たけのこ

右上の”copy”をクリックしたらソースをコピーできますよ！

copy

' 開いているExcelファイルを、PDFファイルとして保存する
Public Sub SavePDF()

    Dim fileName, saveFileName As Variant
    
    ' 開いているExcelファイルを"."で分割する
    fileName = Split(ThisWorkbook.Name, ".")
    
    ' 保存場所　：マクロの保存場所と同じ
    ' ファイル名：マクロのファイル名 + 年月日時分秒
    saveFileName = ThisWorkbook.Path & "\" & fileName(0) & "_" & Format(Now, "yyyymmddhhmmss") & ".pdf"
    
    ' シートが空の場合PDF保存ができないため、空かどうかチェックする
    If Application.WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 Then
    
        MsgBox "シートが空のためPDF保存できません"
        
        Exit Sub
        
    End If
    
    ' アクティブなシートをPDFで保存する
    ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        fileName:=saveFileName, _
        OpenAfterPublish:=True

End Sub

Module1にソースコードをコピーしたら、以下のような感じになります。