BackupWithDateToFolder｜日付付きで安全にファイルをバックアップ | Excel VBA

<概要(バックアップ,VBA)>

　BackupWithDateToFolder は、指定したファイルを指定フォルダへ日付（YYYYMMDD）付きでコピーする Excel VBA 用の汎用バックアッププロシージャです。

　FileSystemObject を利用することで、既存ファイルを上書きせず、履歴を残しながら安全にバックアップを作成できます。

　Excel VBA バックアップ運用において、作業前の自動保存や日次バックアップ処理として非常に有効です。

　紹介する汎用プロシージャを「Excelブックの保存時のイベントプロシージャ（Workbook_BeforeSave）」で使用することで、指定のExcelブックの自動バックアップができるようになります。特に重要なExcelブックだったり、開発用アドイン（xlam）などは実行例の処理を追加しておいたほうが良いでしょう。

<用途>

• 特定ファイルを自動的にバックアップを作成しておく

• 重要なExcelブックやアドインを自動バックアップを作成する

<プロシージャ紹介>

Public Sub BackupWithDateToFolder(FullPath As String, BackupFolderPath As String)

名前： BackupWithDateToFolder /Subプロシージャ

説明： 指定ファイルを指定フォルダに日付をつけてバックアップ

'引数

'FullPath ・・・バックアップするファイルのフルパス

'BackupFolderPath・・・バックアップ先のフォルダパス

<実行例>

　次のようなコードを用意します。

　コードはThisWorkbookオブジェクトにおける保存時イベントプロシージャです。

　コードはサンプルファイルの中に記載しています。

　保存先のフォルダは「C:\Test」としていますが、サンプルファイルの実行結果を確認する際はご自身でこのフォルダを用意してください。

　実行サンプルのファイル名は「BackupWithDateToFolder.xlsm」としています。

サンプルファイル

　このファイルを起動中に保存するとバックアップ先のフォルダに次のようなファイルが作成されます。

バックアップの結果

　サンプルコードではOneDriveの影響も考慮して「ConvOneDrivePath_LocalPath」を利用しています。

<サンプルファイル>

BackupWithDateToFolder.zip

ダウンロード：ZIP • 20KB

<コード>

　Gist