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

Visio VBA

2026.11.10

脆弱なパスへの依存を断て：Visio VBAにおけるステンシル読み込みの堅牢な設計論

脆弱なパスへの依存を断て：Visio VBAにおけるステンシル読み込みの堅牢な設計論

エンジニアが「動くコード」を書くとき、彼らは常に「環境が理想的である」という幻想に基づいている。
しかし、我々が戦う現場は、ネットワークの瞬断が日常茶飯事であり、管理者が勝手にドライブレターを変更し、共有フォルダの権限が予告なく剥奪される、混沌としたレガシーなインフラストラクチャだ。

Visioの自動化において、最も頻繁に、かつ致命的なエラーを引き起こすトリガーの一つが「ステンシル（.vssx / .vss）の読み込み失敗」である。
`Application.Documents.OpenEx` を呼び出した瞬間に発生する「実行時エラー ‘424’: オブジェクトが必要です」や、あるいは沈黙したまま失敗する挙動。これらは、プログラマがファイルシステムの「真実」を検証せずに、APIの善意に依存した結果である。

本稿では、単なるエラー回避ではない。システムとしての「生存性」を担保するための、ステンシル管理の極限の実装手法を伝授する。

1. なぜ `Dir` 関数だけでは不十分なのか

多くの開発者は、ファイルの存在確認に VBA 標準の `Dir` 関数を使用する。

If Dir(path) <> "" Then ' これが「素人」の書き方だ

確かに、ローカルディスク上のファイルであればこれで十分だ。しかし、エンタープライズ環境、特にネットワークドライブ（UNCパス）を介したステンシル管理においては、以下のリスクが牙をむく。

1. ネットワーク・レイテンシと権限の不一致: `Dir` はファイルが存在するかを判定するが、そのファイルに対する「読み取り権限」や「共有セッションの有効性」までは保証しない。
2. Unicode パスの脆弱性: 現代のファイルシステムにおいて、多言語環境や特殊記号を含むパスは珍しくない。`Dir` はこれらに対して極めて脆弱だ。
3. ステートレスな判定: `Dir` は「今、見えた」ことしか答えない。その直後に `OpenEx` を実行した際、ネットワークの瞬断が起きれば、コードは無残に崩壊する。

我々が採用すべきは、`FileSystemObject` (FSO) によるオブジェクト指向的なアプローチ、あるいはより低レイヤーな検証である。

2. 堅牢なステンシル・ローダーの設計アーキテクチャ

堅牢な実装には、3つのレイヤーが必要である。
1. Pre-flight Check (事前検証レイヤー): FSOを用いた、パスの妥当性とアクセス権の確認。
2. Execution Layer (実行レイヤー): 厳格なエラーハンドリングを伴う `OpenEx` の呼び出し。
3. Lifecycle Management (ライフサイクル管理レイヤー): オブジェクトの明示的な解放とメモリのクリーンアップ。

以下に、私が設計するプロフェッショナルな実装例を示す。

実装例：RobustStencilLoader

Option Explicit

' Microsoft Scripting Runtime の参照設定を推奨
' もしくは Late Binding を使用する
Implements IStencilLoader ' インターフェースを定義して依存性を注入する設計思想

Private Sub Main()
    Dim stencilPath As String
    stencilPath = "\\Server01\Engineering\Stencils\Network_Standard.vssx"
    
    Dim stencilDoc As Visio.Document
    
    ' 堅牢な読み込みプロセスの実行
    Set stencilDoc = LoadStencilRobustly(stencilPath)
    
    If Not stencilDoc Is Nothing Then
        Debug.Print "Successfully loaded: " & stencilDoc.Name
        ' --- ここに業務ロジックを記述 ---
        
        ' 使用後は必ず明示的に解放する
        Call CleanupDocument(stencilDoc)
    Else
        ' ログ出力、または管理システムへの通知
        Err.Raise vbObjectError + 513, "StencilLoader", "Failed to load stencil: " & stencilPath
    End If
End Sub

''' <summary>
''' ステンシルを安全に読み込む。ネットワーク遅延や権限エラーを考慮した設計。
''' </summary>
''' <param name="fullPath">ステンシルのフルパス (UNC推奨)</param>
''' <returns>読み込まれたDocumentオブジェクト。失敗時はNothingを返す。</returns>
Public Function LoadStencilRobustly(ByVal fullPath As String) As Visio.Document
    Dim fso As Object
    Dim doc As Visio.Document
    
    ' 1. FileSystemObjectによる事前検証
    On Error GoTo ErrorHandler
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' パスの形式チェック
    If Not fso.FileExists(fullPath) Then
        Debug.Print "CRITICAL: File not found at " & fullPath
        Set LoadStencilRobustly = Nothing
        Exit Function
    End If
    
    ' 2. 読み取り権限の確認 (Attempt to open for reading)
    ' FileExistsがTrueでも、権限不足でOpenExが失敗する場合がある
    Dim ts As Object
    Set ts = fso.OpenTextFile(fullPath, 1) ' 1 = ForReading
    ts.Close
    Set ts = Nothing

    ' 3. Visioによるドキュメントオープン
    ' OpenExを使用し、読み取り専用(ReadOnly)で開くことで、他ユーザーとの競合を避ける
    ' 引数: Path, OpenFlags (visOpenDocked = 2, visOpenReadOnly = 4)
    Set doc = Visio.Application.Documents.OpenEx(fullPath, 6) 
    
    Set LoadStencilRobustly = doc
    
CleanExit:
    Set fso = Nothing
    Exit Function

ErrorHandler:
    ' エラーコードに応じた高度なハンドリング
    Select Case Err.Number
        Case 70 ' Permission denied
            Debug.Print "ERROR: Permission denied for " & fullPath
        Case 53 ' Path not found
            Debug.Print "ERROR: Network path unreachable: " & fullPath
        Case Else
            Debug.Print "ERROR: Unexpected error " & Err.Number & " - " & Err.Description
    End Select
    
    Set doc = Nothing
    Set LoadStencilRobustly = Nothing
    Resume CleanExit
End Function

''' <summary>
''' オブジェクトのライフサイクルを管理し、メモリリークを防止する
''' </summary>
Private Sub CleanupDocument(ByRef doc As Visio.Document)
    On Error Resume Next
    If Not doc Is Nothing Then
        ' ステンシルがドッキングされている場合は、クローズする
        ' ただし、マスターシェイプの利用のために保持したい場合は慎重に判断せよ
        doc.Close
        Set doc = Nothing
    End If
    On Error GoTo 0
End Sub

3. 極限の知見：オブジェクトのライフサイクルとメモリ管理

シニアエンジニアが最も警戒すべきは、「ゾンビ・オブジェクト」の発生である。

Visio VBAにおいて、`Document` オブジェクトや `Stencil` オブジェクトをループ内で大量に生成・破棄する場合、単純な `Set obj = Nothing` だけでは不十分なことがある。特に、エラーが発生して途中で処理が中断された際、エラーハンドラ内で適切に `Nothing` を代入し、参照カウントをゼロに落とさない限り、Visioのプロセス（`visio.exe`）はメモリ内にステンシルのハンドルを保持し続ける。

これが蓄積されると、以下の現象が発生する。

メモリリーク: Visioのメモリ使用量が際限なく増大する。
ファイルロックの残留: プログラムを終了させたはずなのに、ネットワーク上の `.vssx` ファイルが「他のプロセスが使用中」となり、再実行時にエラーになる。

アーキテクトの教訓

1. 明示的なクローズ: `Document.Close` を呼び出すことは、単に画面から消すことではない。OSレベルのファイルハンドルを解放するプロセスである。
2. Scopeの最小化: 変数のスコープは可能な限り小さく保て。グローバル変数に `Document` オブジェクトを保持することは、設計上の敗北である。
3. Error Handlingの徹底: `On Error Resume Next` は、エラーを無視するためではなく、「クリーンアップ（後始末）を確実に実行するため」にのみ使用せよ。

結論

「ファイルが見つかりません」というエラーは、実装の不備を知らせる神からの啓示である。
UNCパスを使い、`FileSystemObject` で権限まで確認し、`OpenEx` で読み取り専用として安全にロードする。そして、使い終わったオブジェクトは確実に葬る。

この一連の作法を遵守することこそが、プロフェッショナルな自動化エンジニアと、単なるスクリプト・キディを分かつ境界線である。