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

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

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

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

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

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

ソースコードを書いていきましょう。

ポイントはファイル名に日付を付けるところ、文字列の検索と切り出しを組み合わせて使うことで実現しています。詳しい説明は以下の記事を参考にしてください。

【Excel VBA】文字列の切り出し・検索の方法

たけのこ

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