プロジェクトの残滓を断ち切る：SaveAsによる「日付付きバックアップ」の真髄
システム開発の現場において、VBAは単なるスクリプト言語ではない。それは、Officeという巨大なコンテナの中で蠢く、制御不能になりがちな「記憶の集積体」だ。
プロジェクトのバージョン管理を「手動による名前変更」に委ねているようでは、プロとは呼べない。今回は、`SaveAs` メソッドを極限まで最適化し、堅牢なバックアップ・ルーチンを構築するための、シニアエンジニア向けの実践的知見を伝授する。
—
1. なぜ「単純なSaveAs」ではいけないのか
多くの初学者は、単に `ActiveWorkbook.SaveAs` を叩いて満足する。だが、それで発生するのは「メモリリークの温床」と「ゾンビプロセスの増殖」だ。
- ファイルロックの競合: ネットワークドライブ上での保存時、OSのファイルハンドル解放が間に合わないケース。
- イベントの暴走: `BeforeSave` イベントが再帰的に呼び出されるループ構造。
- パスの正規化不足: Windows APIを介さないパス操作による、ロングパスや特殊文字での例外発生。
これらを防ぐには、「オブジェクトのライフサイクルを完全に制御下におくこと」が絶対条件となる。
—
2. 堅牢なバックアップ・ルーチンの構築
以下は、単なる保存ではなく、システム統合を意識した堅牢な設計のコードだ。ここでは `FileSystemObject` を活用し、パス操作を安全に行う。
Option Explicit
‘ 伝説的なチーフアーキテクトによる、堅牢な保存ルーチン
Public Sub CreateTimestampedBackup()
Dim fso As Object
Dim targetPath As String
Dim fileName As String
Dim baseName As String
Dim extension As String
‘ 1. オブジェクトの生成とメモリ管理（Late Bindingだが、実務ではEarly Bindingを推奨）
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 2. ファイルパスの分解（拡張子を含まないベース名を取得）
baseName = fso.GetBaseName(ThisWorkbook.FullName)
extension = “.” & fso.GetExtensionName(ThisWorkbook.FullName)
‘ 3. タイムスタンプの生成（ISO 8601準拠：ソートが容易な形式）
‘ ファイル名に使用できない文字を排除し、システム日付を連結
fileName = baseName & “_” & Format(Now, “yyyyMMdd_HHmmss”) & extension
targetPath = ThisWorkbook.Path & “\Backup\” & fileName
‘ 4. ディレクトリ存在確認と作成
If Not fso.FolderExists(ThisWorkbook.Path & “\Backup”) Then
fso.CreateFolder ThisWorkbook.Path & “\Backup”
End If
‘ 5. 最適化：保存前のイベント抑制（無限ループ回避）
On Error GoTo Cleanup
Application.EnableEvents = False
Application.DisplayAlerts = False ‘ 上書き確認ダイアログの抑止
ThisWorkbook.SaveCopyAs targetPath
Debug.Print “Backup created at: ” & targetPath
Cleanup:
‘ 6. 徹底したリソース解放（これがメモリリークを防ぐ）
Application.DisplayAlerts = True
Application.EnableEvents = True
Set fso = Nothing
If Err.Number <> 0 Then
MsgBox “バックアップ失敗: ” & Err.Description, vbCritical
End If
End Sub
—
3. シニアが知るべき「極限の知見」
1. SaveAs vs SaveCopyAs の使い分け
`SaveAs` は現在の作業中のブックを新しいファイルへ切り替える（パスが変更される）。バックアップ用途で現在の編集を継続したいのであれば、必ず `SaveCopyAs` を使用すること。これは対象ファイルをバックグラウンドでコピーするメソッドであり、カレントの `Workbook` オブジェクトを汚染しない。
2. パフォーマンスへの配慮：メモリ解放の真実
VBAにおいて `Set = Nothing` は、VBAランタイム上での参照カウントを減らすために重要だ。特に大規模なExcelファイルを操作する場合、これを怠るとガベージコレクションが適切に機能せず、Excelプロセスのメモリ消費量が数ギガバイトに膨れ上がる。
3. レガシー環境との共存（Windows API）
もし、ネットワークパスが260文字を超えるような深層フォルダを扱う場合は、`SaveAs` ではなく `Kernel32.dll` の `CopyFileW` 関数を呼び出すべきだ。VBA標準のファイル操作は、古いWindows APIの制約を受けるため、大規模システム連携ではAPIによる直接操作が安定性を生む。
—
最後に：コードは「対話」である
自動保存のスクリプトは、単なる機能ではない。それは、あなたが去った後のプロジェクトの安全を守る「遺言」だ。
名前を付けて保存するたびに、どのような粒度でバックアップを取るべきか。その設計思想こそが、エンジニアの質を決める。このコードをベースに、自社の環境に合わせてカスタマイズせよ。エラーハンドリングを怠り、ログ出力すら実装しないようなコードを書くのは、今日で終わりにしよう。
健闘を祈る。
