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

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

そんなときのために、Excel保存時にPDFも同時に保存するマクロを作成しました。

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

おおまかな手順

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

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

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

1. Module1を追加する

まずは、Excelマクロの作り方を参考にして、標準モジュールにModule1を追加しましょう。

2019-10-14【Excel VBA】Excelマクロの作り方

2. 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にソースコードをコピーしたら、以下のような感じになります。