【実務・中級編】【上級】ステンシルファイルが破損した際の修復とバックアップ自動生成 – Visio VBA解析バイブル

「開けない」でシステムを止めない。Visio VBAにおける堅牢なステンシル管理と自己修復メカニズムの設計論

業務自動化の現場において、最もエンジニアの評価を分かつのは「正常系がいかに速く動くか」ではなく、「異常系においていかに優雅に、かつ自動的に復旧できるか」という設計思想だ。

Visioを用いた大規模な図面生成システムを構築している際、最も厄介なトラブルの一つが「ステンシルファイル（.vssx）の破損」である。共有サーバー上のファイルがネットワーク断絶や書き込み中の強制終了によって不整合を起こしたとき、君の書いたコードは `Run-time error ‘424’: Object required` や `Run-time error ‘1004’` を吐き出し、ユーザーの手を止めて立ち尽くすことになるだろう。

本稿では、単なる「ファイルを開く」コードを超え、整合性チェック、バックアップ自動生成、そして自己修復（Self-healing）を備えた、プロダクションクオリティのステンシル管理ロジックを伝授する。

1. なぜ、君のコードは「脆い」のか

多くの開発者が陥る罠は、以下のような実装だ。

' --- 典型的な「素人」の実装 ---
Sub BadExample()
    Dim stencil As Visio.Document
    ' ファイルが存在することを信じ込み、エラーハンドリングも不十分
    Set stencil = Application.Documents.Open("C:\Templates\MyStencil.vssx")
    ' ... 処理 ...
End Sub

このコードには、プロフェッショナルが絶対に許容しない3つの欠陥がある。

1. 前提条件の欠如: ファイルが物理的に存在するか、あるいは他のプロセスによってロックされていないかを検証していない。
2. エラーの隠蔽（On Error Resume Next の乱用）: エラーを無視して進もうとすると、`stencil` オブジェクトが `Nothing` のまま後続の処理が走り、致命的なクラッシュを招く。
3. 回復力の欠如: ファイルが破損していた場合、管理者に「ファイルを直してください」と泣きつくしかない。これは自動化ツールではない。

2. 堅牢なアーキテクチャ：設計の3原則

プロフェッショナルなステンシル管理エンジンは、以下のフローを実装すべきである。

1. Pre-flight Check（事前検証）: `FileSystemObject` を用い、ファイルの存在、属性、アクセス権限を物理レイヤーで確認する。
2. Integrity Validation（整合性検証）: 実際に `Documents.Open` を試行し、Visioエンジンがそのファイルを「有効なドキュメント」として認識できるかを判定する。
3. Self-Healing Loop（自己修復ループ）: 破損が検知された場合、直近の正常なバックアップを特定し、自動的にリストア（復元）を試みる。

3. プロダクションコード：ResilientStencilManager

以下に、そのまま実務の基幹モジュールとして組み込めるレベルのコードを提示する。このコードは、単なる関数の集合ではなく、「失敗を前提とした設計」に基づいている。

※ 実行には `Microsoft Scripting Runtime` への参照設定が必要である（FSOを使用するため）。

Option Explicit

' ==============================================================================
' Module: StencilRecoveryEngine
' Description: ステンシルの整合性チェック、バックアップ、自動復旧を行う堅牢なエンジン
' Author: Chief Architect
' ==============================================================================

Private Const BACKUP_EXTENSION As String = ".bak"

''' <summary>
''' 指定されたステンシルを安全に読み込む。破損時はバックアップから自動復旧を試みる。
''' </summary>
''' <param name="targetPath">ステンシルファイルのフルパス</param>
''' <returns>読み込まれたVisio.Documentオブジェクト。失敗時はNothingを返す。</returns>
Public Function LoadStencilRobustly(ByVal targetPath As String) As Visio.Document
    Dim fso As Scripting.FileSystemObject
    Set fso = New Scripting.FileSystemObject
    
    Dim doc As Visio.Document
    Dim isRecovered As Boolean: isRecovered = False
    
    ' 1. 物理的存在確認
    If Not fso.FileExists(targetPath) Then
        MsgBox "致命的エラー: ステンシルファイルが見つかりません。" & vbCrLf & targetPath, vbCritical
        Set LoadStencilRobustly = Nothing
        Exit Function
    End If

    ' 2. 読み込み試行
    On Error Resume Next
    Set doc = Application.Documents.Open(targetPath)
    On Error GoTo 0

    ' 3. 破損判定と自己修復ロジック
    If doc Is Nothing Then
        Debug.Print "警告: ステンシルが破損しているか、ロックされています。復旧を試みます..."
        isRecovered = AttemptRecovery(fso, targetPath)
        
        If isRecovered Then
            ' 復旧後の再試行
            On Error Resume Next
            Set doc = Application.Documents.Open(targetPath)
            On Error GoTo 0
        End If
    End If

    ' 最終結果の返却
    If Not doc Is Nothing Then
        Debug.Print "成功: ステンシルをロードしました。" & IIf(isRecovered, " (バックアップから復旧済み)", "")
        Set LoadStencilRobustly = doc
    Else
        MsgBox "致命的エラー: ステンシルの復旧に失敗しました。管理者に連絡してください。", vbCritical
        Set LoadStencilRobustly = Nothing
    End If
End Function

''' <summary>
''' バックアップファイルを使用してファイルをリストアする
''' </summary>
Private Function AttemptRecovery(ByRef fso As Scripting.FileSystemObject, ByVal targetPath As String) As Boolean
    Dim backupPath As String
    backupPath = targetPath & BACKUP_EXTENSION
    
    ' バックアップが存在するか確認
    If Not fso.FileExists(backupPath) Then
        Debug.Print "エラー: バックアップファイルが存在しません。"
        AttemptRecovery = False
        Exit Function
    End If
    
    On Error GoTo RecoveryError
    
    ' 既存の破損ファイルを退避（念のため）
    Dim archivePath As String
    archivePath = targetPath & "_" & Format(Now, "yyyymmdd_hhnnss") & ".corrupt"
    fso.MoveFile targetPath, archivePath
    
    ' バックアップを本番ファイルとしてコピー
    fso.CopyFile backupPath, targetPath
    
    Debug.Print "復旧完了: バックアップをリストアしました。"
    AttemptRecovery = True
    Exit Function

RecoveryError:
    Debug.Print "復旧プロセス中にエラーが発生しました: " & Err.Description
    AttemptRecovery = False
End Function

''' <summary>
''' 現在のステンシルを正常なバックアップとして保存する
''' </summary>
Public Sub CreateStencilBackup(ByVal targetPath As String)
    Dim fso As Scripting.FileSystemObject
    Set fso = New Scripting.FileSystemObject
    
    Dim backupPath As String
    backupPath = targetPath & BACKUP_EXTENSION
    
    On Error GoTo BackupError
    ' 既存のバックアップを上書きして最新の状態を維持
    ' ※運用ルールにより、タイムスタンプ付きの履歴管理にする設計変更も検討せよ
    fso.CopyFile targetPath, backupPath, True
    Debug.Print "バックアップ作成成功: " & backupPath
    Exit Sub

BackupError:
    Debug.Print "バックアップ作成失敗: " & Err.Description
End Sub

4. 実装における「極限の知見」：エンジニアへの助言

このコードを使いこなすために、以下の3点を肝に銘じておくことだ。

① オブジェクトのライフサイクルを制御せよ

VBAにおいて、`Document` オブジェクトはメモリ上に残り続ける性質がある。ステンシルを何度も開閉するループ処理を書く場合、必ず `Set doc = Nothing` を明示的に行い、オブジェクトの参照カウントを適切に管理せよ。これを怠ると、メモリリークが発生し、Visio全体のパフォーマンスが著しく低下する。

② ファイルロックの罠を回避せよ

`AttemptRecovery` 内で `fso.MoveFile` を使用しているが、もし別のユーザーやプロセスがそのステンシルを開いていた場合、ここでエラーが発生する。エンタープライズ環境では、ファイルを操作する前に「ファイルが書き込み可能か」をチェックするロジックを一段階挟むのがプロの仕事だ。

③ バックアップ戦略は「動的」であれ

上記のコードでは、単純な `.bak` ファイルへの上書きを行っている。しかし、より高度なシステムでは、`stencil_20231027_1000.vssx` のように、タイムスタンプを用いた世代管理を実装すべきだ。これにより、「いつ、どの状態に戻すべきか」という選択肢をユーザーに与えることができる。

結びに代えて

自動化エンジニアの価値は、コードの行数ではなく、「システムの堅牢性（Robustness）」によって決まる。
エラーが起きたときに「止まる」コードを書くのは容易だ。しかし、エラーを検知し、自ら傷を癒やし、業務を継続させるコードを書ける者こそが、真のアーキテクトと呼ばれるのだ。

このコードを、君のプロジェクトの「盾」として活用してほしい。