現場で差がつく「自動バックアップ」の極意：SaveAsを使いこなすための設計思想
業務自動化の現場において、`SaveAs`メソッドによるファイル保存は「最も簡単で、最も事故が起きやすい」処理の一つだ。多くの初心者は「動けばいい」という考えでコードを書くが、それは将来の自分を苦しめる爆弾を埋め込んでいるに等しい。
真のエンジニアは、「保存失敗を許容しない」「パスの整合性を担保する」「システムへの負荷を最小限にする」という三原則をコードに落とし込む。今日は、日付付きファイル名で安全にバックアップを生成するための、プロダクションレベルの知見を授ける。
—
1. なぜ「手抜き保存」がシステムを破壊するのか
多くの解説サイトで見かける `ActiveWorkbook.SaveAs “C:\Backup\” & Date & “.xlsm”` という記述は、実務では即刻禁止だ。理由は明確である。
- 日付の書式問題: `Date`関数をそのまま文字列結合すると、OSの地域設定に依存し、パス区切り文字（`/`）が含まれてエラーになる。
- 同名ファイルの衝突: 同じ日に2回実行すると、警告ダイアログが表示され、処理が停止（あるいは上書き）される。
- パスの欠落: フォルダが存在しない場合、実行時エラーが発生し、リカバリ不能に陥る。
これらを排除し、プロフェッショナルな設計を実装する。
—
2. 堅牢なバックアップ生成コード
以下は、保守性と安全性を極限まで高めた実装例だ。これをそのままモジュールに組み込んでほしい。
Option Explicit
‘ ———————————————————
‘ 目的: 現在のブックを日付・時刻付きで指定フォルダに保存する
‘ ———————————————————
Public Sub CreateBackup()
Dim folderPath As String
Dim fileName As String
Dim timestamp As String
‘ 1. 保存先の定義（末尾に必ずパス区切りを入れる）
folderPath = ThisWorkbook.Path & “\Backup\”
‘ 2. フォルダの存在確認（なければ作成する：堅牢性の要）
If Dir(folderPath, vbDirectory) = “” Then
MkDir folderPath
End If
‘ 3. ファイル名に時刻を含めて衝突を回避（Format関数で制御）
‘ 秒まで含めることで、短時間の連続実行でも一意性を保つ
timestamp = Format(Now, “yyyymmdd_hhnnss”)
fileName = folderPath & “Backup_” & Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, “.”) – 1) & “_” & timestamp & “.xlsm”
‘ 4. エラーハンドリングを伴う保存処理
On Error GoTo ErrorHandler
Application.DisplayAlerts = False ‘ 警告を一時停止
ThisWorkbook.SaveCopyAs fileName ‘ 元ファイルを閉じずにコピーを作成
Application.DisplayAlerts = True
MsgBox “バックアップ成功: ” & vbCrLf & fileName, vbInformation
Exit Sub
ErrorHandler:
Application.DisplayAlerts = True
MsgBox “バックアップ失敗: ” & Err.Description, vbCritical
End Sub
—
3. 実務で勝つための「3つのアーキテクチャ・ポイント」
① `SaveAs` ではなく `SaveCopyAs` を選ぶ理由
初心者ほど「保存してから元のファイル名に戻す」という回りくどいことをする。`SaveCopyAs` を使え。これは「現在の状態をスナップショットとして切り出す」命令だ。元ファイルのパスや状態を変更することなく、安全にバックアップだけを生成できる。
② パスの動的解決
`C:\Users\Name\Desktop\…` と直書きするのは素人だ。`ThisWorkbook.Path` や `Environ(“USERPROFILE”)` を使い、環境に依存しない動的なパス解決を行うこと。これにより、配布先で「パスが見つかりません」という初歩的なエラーを根絶できる。
③ 警告（DisplayAlerts）の制御
システム自動化において、最も敵対すべきは「予期せぬダイアログ」だ。保存処理の前後では必ず `Application.DisplayAlerts = False / True` で囲み、バックグラウンド処理を遮断させないように制御せよ。ただし、エラーハンドリング（`On Error`）をセットにしなければ、エラー発生時に警告がオフのままになり、後のトラブルに繋がるので注意が必要だ。
—
最後に：コードは「資産」である
自動保存ツールを作っただけで満足してはいけない。次に考えるべきは、「古いバックアップをどう整理するか」というライフサイクル管理だ。ファイルが増えすぎてストレージを圧迫するようでは、エンジニアとしては失格である。
今回のコードをベースに、「7日以上前のファイルを自動削除する」ロジックを追加してみると良い。それこそが、ただのコードを「真の業務自動化ツール」へと昇華させる第一歩だ。
健闘を祈る。君の書くコードが、誰かの業務の重荷を下ろすことを期待している。
