【VBAリファレンス】第17回ファイルを自動保存するマクロに挑戦 3/4：堅牢なバックアップシステムの実装と例外処理の極意

ExcelVBA

2026.09.12

概要

業務効率化の要である「自動保存マクロ」の実装において、単にファイルを上書き保存するだけのコードでは不十分です。なぜなら、予期せぬエラーやネットワーク切断、あるいはファイル破損といったリスクに対して脆弱だからです。本連載の第3回目となる今回は、単なる保存機能を超えた、堅牢でミスのない「バックアップ付き自動保存システム」の設計思想と実装手法を徹底解説します。VBAにおけるエラーハンドリングのベストプラクティスを学び、あなたの作成するツールを「プロ仕様」へと昇華させましょう。

詳細解説：なぜ単なる上書き保存では危険なのか

Excel VBAで「ActiveWorkbook.Save」を実行するだけのコードを運用している場合、致命的なリスクが潜んでいます。もし保存処理の瞬間にネットワークドライブの接続が一時的に切れたらどうなるでしょうか。あるいは、保存中にExcelがフリーズしたらどうなるでしょうか。最悪の場合、ファイルが破損（0バイト化など）し、これまでの作業データがすべて消失する恐れがあります。

プロフェッショナルな現場で求められるのは、「成功したことを確認する」ことと、「失敗に備えて退避させる」という二段構えの戦略です。本稿では、以下の3つのステップで堅牢な仕組みを構築します。

1. 処理実行前の状態チェック：ファイルが開かれているか、書き込み権限があるかを確認。
2. 二重保存戦略：メインファイルへの保存に加え、別フォルダへのタイムスタンプ付きバックアップを作成。
3. エラーハンドリング：何らかの理由で保存が失敗した際、ユーザーに即座に通知し、ログを残す。

この手法を導入することで、万が一の際にも直前の状態まで確実にリカバリーが可能となり、精神的な安心感が段違いになります。

サンプルコード：堅牢なバックアップ付き自動保存

以下のサンプルコードは、現在開いているブックを保存し、同時に「Backup」フォルダへ日付付きでコピーを保存するロジックです。


Sub RobustAutoSave()
    Dim wb As Workbook
    Dim backupPath As String
    Dim fileName As String
    Dim timestamp As String
    Dim fso As Object
    
    Set wb = ActiveWorkbook
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' バックアップ先のパス設定
    backupPath = wb.Path & "\Backup\"
    
    ' フォルダが存在しない場合は作成
    If Not fso.FolderExists(backupPath) Then
        fso.CreateFolder (backupPath)
    End If
    
    ' タイムスタンプの生成
    timestamp = Format(Now, "yyyyMMdd_HHmmss")
    fileName = Left(wb.Name, InStrRev(wb.Name, ".") - 1)
    
    On Error GoTo ErrorHandler
    
    ' 1. メインの保存
    wb.Save
    
    ' 2. バックアップの作成
    wb.SaveCopyAs backupPath & fileName & "_" & timestamp & ".xlsm"
    
    Debug.Print "自動保存成功: " & Now
    Exit Sub

ErrorHandler:
    MsgBox "保存中にエラーが発生しました。" & vbCrLf & _
           "エラー番号: " & Err.Number & vbCrLf & _
           "詳細: " & Err.Description, vbCritical, "保存失敗"
End Sub

このコードのポイントは「SaveCopyAs」を使用している点です。SaveCopyAsは、現在開いているファイルを閉じることなく、別の場所に複製を作成できるため、ユーザーの作業を中断させることなくバックアップを完了できます。

実務アドバイス：運用を成功させるための「3つの規律」

技術的な実装以上に重要なのが、運用ルールです。以下の3点を現場に導入してください。

1. 履歴の自動削除：バックアップファイルが溜まりすぎるとストレージを圧迫します。FSOオブジェクトを使い、「直近10ファイル以外は削除する」というループ処理を自動保存の最後に組み込むのがプロの流儀です。これにより、ストレージ不足によるエラーを未然に防げます。
2. ネットワークの注意点：社内共有フォルダに自動保存を行う場合、同期のタイムラグが発生することがあります。可能な限りローカルディスクへ保存し、同期ソフト（OneDriveやBox等）を活用するか、保存完了後にファイルサイズを確認するチェックロジックを挟むことを推奨します。
3. ユーザーへのフィードバック：バックアップが正常に行われたか不明な状態は不安を招きます。ステータスバー（Application.StatusBar）を活用して、「バックアップ完了」のメッセージを数秒間表示させるなどのUI上の工夫が、マクロの信頼性を高めます。

まとめ

第17回 3/4となる本稿では、自動保存という単純な機能の中に、いかにして「堅牢性」を組み込むかを解説しました。自動保存マクロは、単なる機能ではなく「リスクマネジメント」そのものです。今回のコードをベースに、ご自身の環境に合わせてフォルダパスを動的に変更したり、ログファイルを生成して保存履歴を追跡できるように拡張してみてください。

次回、最終回となる4/4では、この自動保存マクロを「特定のタイミング」や「一定時間ごと」に自動起動させる、Excelのタイマー機能（Application.OnTime）の制御について深掘りします。システムを止めることなく、いかにしてバックグラウンドで処理を継続させるか。その極意を解説しますので、引き続き学習を継続してください。あなたのVBAスキルが、より洗練されたものになることを確信しています。