【実務・中級編】【中級】ステンシル読み込み時の「ファイルが見つかりません」エラーを回避する堅牢な実装 – Visio VBA解析バイブル

Visio VBAを掌握する極限の知見：ステンシル読み込みにおける「脆弱な設計」を破壊せよ

業務自動化の現場において、ツールが「動く」ことと「止まらない」ことの間には、深淵なる技術的隔たりがある。

多くの開発者が、ローカル環境で動作確認を終えたコードをそのままクライアントや他部署へ展開し、ネットワークドライブの切断やマッピング済みのドライブレターの変更といった、「環境の揺らぎ」によって無残にもエラーを吐き出し、信頼を失墜させていく。

特にVisioを用いた図面生成自動化において、ステンシル（.vssx）の読み込みは心臓部だ。ここで「ファイルが見つかりません」という初歩的なエラーでプロセスを停止させるのは、プロフェッショナルの仕事ではない。

本稿では、ステンシル管理における堅牢な設計思想と、実務に耐えうるプロダクションレベルの実装手法を伝授する。

1. なぜ、あなたのコードは「現場」で死ぬのか

初心者が書くコードは、常に「理想的な環境」を前提としている。

' 典型的な「動くが、脆い」コードの例
Sub BadPractice_LoadStencil()
    Dim stn As Visio.Document
    ' ドライブレター（Z:）への依存、存在確認の欠如
    Set stn = Application.Documents.OpenStencil("Z:\Shared\Templates\NetworkStencil.vssx")
    ' ... 処理 ...
End Sub

このコードが抱える致命的な欠陥は以下の3点だ。

1. ドライブレター依存（Mapped Drive Trap）: ユーザーによって `Z:` がネットワークドライブとして割り当てられているとは限らない。
2. 存在確認の欠如: ファイルが移動、削除、あるいは権限不足でアクセス不能な場合、`OpenStencil` メソッドは即座に実行時エラーを発生させ、プログラムを強制終了させる。
3. ネットワーク遅延の無視: ネットワークドライブの初期化が間に合っていない、あるいはVPN接続が不安定な状態でのリトライ制御がない。

我々アーキテクトが目指すべきは、「ファイルが存在しない可能性」を前提とした防御的設計（Defensive Design）である。

2. 堅牢な実装のための設計指針

堅牢なステンシル管理エンジンを構築するには、以下の3つのレイヤーを実装する必要がある。

Layer 1: パスの正規化とUNCパスの採用

ドライブレター（`Z:\…`）ではなく、UNCパス（`\\ServerName\Shared\…`）をベースに運用せよ。これにより、マッピング状況に左右されない絶対的なパス指定が可能になる。

Layer 2: FileSystemObject (FSO) による多角的な検証

VBA標準の `Dir` 関数は軽量だが、ネットワーク上の特殊な権限設定やディレクトリ構造の検証においては、`Scripting.FileSystemObject` の方が圧倒的に高機能で信頼性が高い。

Layer 3: エラーハンドリングとユーザーフィードバック

エラーが発生した際、単に止めるのではなく、「なぜ失敗したのか（パスが違うのか、権限がないのか、サーバーが落ちているのか）」を特定し、適切に制御可能な形でユーザーに伝える。

3. プロダクション・グレードの実装例

以下に、実務でそのまま利用可能な、堅牢性を極限まで高めたステンシル読み込みモジュールの設計例を示す。これをベースに、プロジェクトの要件に合わせて拡張してほしい。

Option Explicit

' ==============================================================================
' Module: modStencilManager
' Description: 堅牢なステンシル読み込みを管理するアーキテクチャ
' ==============================================================================

' 戻り値の定義（エラーの種類を明確にする）
Public Enum StencilLoadResult
    srSuccess = 0
    srFileNotFound = 1
    srPathInaccessible = 2
    srAccessDenied = 3
    srUnknownError = 99
End Enum

' 読み込み結果を格納するための構造体
Public Type StencilLoadStatus
    Result As StencilLoadResult
    Document As Visio.Document
    Message As String
End Type

''' <summary>
''' 指定されたパスからステンシルを安全に読み込む
''' </summary>
''' <param name="targetPath">ステンシルのフルパス（UNCパス推奨）</param>
''' <returns>読み込み結果とDocumentオブジェクトを含む構造体</returns>
Public Function SafeOpenStencil(ByVal targetPath As String) As StencilLoadStatus
    Dim fso As Object
    Dim status As StencilLoadStatus
    Dim stnDoc As Visio.Document
    
    ' 初期化
    status.Result = srUnknownError
    status.Document = Nothing
    
    On Error GoTo ErrorHandler

    ' 1. FileSystemObjectのインスタンス化
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' 2. パスの妥当性検証
    If targetPath = "" Then
        status.Result = srFileNotFound
        status.Message = "パスが空です。"
        GoTo CleanUp
    End If

    ' 3. 親ディレクトリの存在確認（ネットワーク接続の確認を兼ねる）
    Dim parentDir As String
    parentDir = fso.GetParentFolderName(targetPath)
    
    If Not fso.FolderExists(parentDir) Then
        status.Result = srPathInaccessible
        status.Message = "ネットワークパスまたはディレクトリにアクセスできません: " & parentDir
        GoTo CleanUp
    End If

    ' 4. ファイル自体の存在確認
    If Not fso.FileExists(targetPath) Then
        status.Result = srFileNotFound
        status.Message = "指定されたステンシルファイルが見つかりません: " & targetPath
        GoTo CleanUp
    End If

    ' 5. ステンシルの読み込み実行
    ' ここで発生するエラー（権限不足など）をトラップする
    Set stnDoc = Application.Documents.OpenStencil(targetPath)
    
    ' 成功時
    Set status.Document = stnDoc
    status.Result = srSuccess
    status.Message = "Success"

CleanUp:
    Set fso = Nothing
    SafeOpenStencil = status
    Exit Function

ErrorHandler:
    ' エラー番号に基づいた詳細な判定
    Select Case Err.Number
        Case 70 ' Permission denied
            status.Result = srAccessDenied
            status.Message = "ファイルへのアクセス権限がありません。"
        Case Else
            status.Result = srUnknownError
            status.Message = "予期せぬエラーが発生しました: " & Err.Description & " (Err: " & Err.Number & ")"
    End Select
    Resume CleanUp
End Function

' ==============================================================================
' 使用例（メインプロセス）
' ==============================================================================
Sub ExecuteStencilLoading()
    Dim targetPath As String
    Dim loadStatus As StencilLoadStatus
    
    ' 【重要】ドライブレターではなくUNCパスを使用すること
    targetPath = "\\Server01\Engineering\Templates\NetworkStencil.vssx"
    
    Debug.Print "Attempting to load: " & targetPath
    
    ' 堅牢な関数を呼び出し
    loadStatus = SafeOpenStencil(targetPath)
    
    ' 結果の判定
    Select Case loadStatus.Result
        Case srSuccess
            MsgBox "ステンシルの読み込みに成功しました。", vbInformation
            ' ここでロードされた loadStatus.Document を使って業務ロジックを展開
            
        Case srFileNotFound
            MsgBox "【エラー】ファイルが見つかりません。" & vbCrLf & loadStatus.Message, vbCritical
            
        Case srPathInaccessible
            MsgBox "【エラー】ネットワーク接続を確認してください。" & vbCrLf & loadStatus.Message, vbExclamation
            
        Case srAccessDenied
            MsgBox "【エラー】アクセス権限が不足しています。管理者へ連絡してください。", vbCritical
            
        Case Else
            MsgBox "【致命的エラー】" & vbCrLf & loadStatus.Message, vbCritical
    End Select
End Sub

4. アーキテクトの視点：保守性を高めるための追加アドバイス

このコードをプロダクション環境へ投入する際、さらに一段上のレベルを目指すなら以下の要素を検討せよ。

ログ出力の実装

`MsgBox` による通知はユーザー向けには良いが、自動実行（バッチ処理）時には致命的な妨げとなる。`Err.Number` や `targetPath` をテキストファイルやデータベースにログとして記録する仕組みを組み込め。これにより、後日「なぜか動かなかった」という問い合わせが来た際、瞬時に原因を特定できる。

リトライ・メカニズムの導入

ネットワークの瞬断は日常茶飯事だ。`SafeOpenStencil` を呼び出す際に、`For i = 1 To 3` のようなループを回し、失敗しても数秒待機（`Sleep`）してからリトライするロジックを入れるだけで、ツールの稼働率は劇的に向上する。

依存関係の管理

ステンシルの中に、さらに別のステンシルを参照している「入れ子構造」がある場合、その参照先のパスも同様のロジックで検証する必要がある。マスターシェイプの管理は、単一ファイルの読み込みではなく、「リソース・グラフの整合性チェック」であると捉え直すべきだ。

結論

「動けばいい」という考え方は、開発者のエゴに過ぎない。
真のプロフェッショナルは、コードが動かない状況を想像し、その状況をコードで制御する。

UNCパスの利用、FSOによる厳格な検証、そして構造化されたエラーハンドリング。これらを標準装備することで、あなたの作成するVisio自動化ツールは、単なるスクリプトから、企業のインフラを支える「堅牢なシステム」へと昇華するのだ。