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

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

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

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

おおまかな手順

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

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

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

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

マクロのソースコードは以下になります。処理内容はソースのコメントに書いてあります。

たけのこ

右上の”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