【Excel VBA】バックアップファイル（ファイル名に日付つき）を保存する

Excelを使っていると、間違って保存してしまって「あのときの状態に戻したい…」となることよくありますよね。

今回はその悩みを解消するために、Excelを保存したときに自動でバックアップを作成するマクロを作りました。

VBA: Excel保存時にバックアップ（ファイル名に日付つき）を保存するマクロ

VBA: Excel保存時にバックアップ（ファイル名に日付つき）を保存するマクロ

1. Module1を追加する

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

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

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

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

たけのこ

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

copy

Sub SaveBackup()
    
    Dim backupFileName, backupFilePath As String
    Dim folderName As String
    
    ' このファイルが保存してあるフォルダ直下の、backupフォルダを指定する
    backupFolderPath = ThisWorkbook.Path & "\backup"
    
    '同名のフォルダがない場合フォルダを作成する
    If Dir(backupFolderPath, vbDirectory) = "" Then
        
        MkDir backupFolderPath
        
    End If

    ' ファイル名=このファイル名+年月日時分秒(yyyymmddhhmmss)とする
    ' ファイルの拡張子を取る
    backupFileName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
    
    ' ファイル名に日付を付ける
    backupFileName = backupFileName & "_" & Format(Now, "yyyymmddhhmmss") & ".xlsx"
    
    ' ファイルを保存するパス
    backupFilePath = backupFolderPath & "\" & backupFileName

    ' ファイルを保存する
    ActiveWorkbook.SaveCopyAs backupFilePath

End Sub

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