Visio VBAを掌握する極限の知見：ファイル不存在エラーを駆逐するパスバリデーションの極意
Visio VBAを用いた図面自動生成や、PDF一括変換バッチの開発現場において、最も不毛かつ致命的な例外は何か。それは `Run-time error ’53’: File not found` である。
想像してほしい。深夜のバッチ処理で数千枚のVSDXファイルを処理中、中間層のパス解決ミスによってプロセスが突如として異常終了する悲劇を。エラーハンドラー（`On Error GoTo`）による後追い処理は、対症療法に過ぎない。シニアエンジニアが実装すべきは、「エラーが発生する余地を物理的に排除した、堅牢な事前バリデーション（Path Validation）」である。
今回は、FileSystemObject（FSO）とWindows API、そしてVisioのオブジェクトライフサイクルを極限まで最適化した、実務で即座に使える決定版コードとアーキテクチャを提示する。
—
1. なぜ「Dir関数」では不十分なのか？
レガシーなVBAコードでは、ファイルの存在確認に標準の `Dir` 関数が使われがちだ。しかし、大規模システムやマルチスレッド的なファイル群を扱うVisioマクロにおいて、`Dir` には致命的な欠陥がある。
- 状態の保持（Stateful）： `Dir` は内部で検索状態を保持するため、入れ子のループや外部関数との組み合わせで意図せざる挙動を引き起こす。
- UNCパスや長経路（Long Path）への脆弱性： Windowsの制限を超えるパスやネットワーク上の不安定なUNCパスに対して、正確な例外を返さない。
- スレッドセーフティの欠如： 複数プロセスやアドイン環境において、他のファイル操作の影響を受ける。
したがって、我々は常に `Scripting.FileSystemObject` (FSO) をベースとしたステートレスな検証アプローチを採用しなければならない。
—
2. 【極限実装】FSOと完全パス正規化による堅牢なバリデーション関数
以下のコードは、単に `FileExists` を叩くだけの甘いものではない。絶対パスの解決、不正文字の排除、そしてネットワーク遅延や権限エラーをも見据えた、チーフアーキテクト水準のバリデーション・エンジンである。
Option Explicit
‘ ==============================================================================
列挙型: バリデーション結果ステータス
‘ ==============================================================================
Public Enum VisPathStatus
vpsValid = 0
vpsNotFound = 1
vpsInvalidPathChars = 2
vpsAccessDenied = 3
vpsPathTooLong = 4
End Enum
‘ ==============================================================================
‘ 処理名: AssertAndResolveVsdxPath
‘ 概要 : 指定されたVSDXファイルのパスを厳密に検証し、安全に開ける状態か保証する
‘ ==============================================================================
Public Function AssertAndResolveVsdxPath(ByVal targetPath As String, ByRef resolvedPath As String) As VisPathStatus
Dim fso As Object
Dim parentDir As String
Dim fileName As String
‘ 1. 基本的なNull/Emptyチェック
If Trim(targetPath) = “” Then
AssertAndResolveVsdxPath = vpsNotFound
Exit Function
End If
On Error GoTo ErrorHandler
‘ 2. FSOの遅延バインディング生成（COM参照の競合回避とメモリ最適化）
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 3. 相対パスを絶対パスへ正規化（カレントディレクトリの揺れを完全に排除）
resolvedPath = fso.GetAbsolutePathName(targetPath)
‘ 4. パス長の検証 (WindowsのMAX_PATH制約: 260文字を超える場合の対策)
If Len(resolvedPath) >= 260 Then
‘ 必要に応じて \\?\ プレフィックスの付与を検討するが、Visioの仕様上安全側に倒す
If Not fso.FileExists(resolvedPath) Then
AssertAndResolveVsdxPath = vpsPathTooLong
GoTo Cleanup
End If
End If
‘ 5. 拡張子の厳密なチェック (VSDX / VSDM のみ許可)
Dim ext As String
ext = LCase(fso.GetExtensionName(resolvedPath))
If ext <> “vsdx” And ext <> “vsdm” Then
‘ 必要に応じたカスタムエラー（ここではファイルなし扱い、または拡張子エラー）
AssertAndResolveVsdxPath = vpsNotFound
GoTo Cleanup
End If
‘ 6. 物理ファイルの存在確認
If Not fso.FileExists(resolvedPath) Then
AssertAndResolveVsdxPath = vpsNotFound
GoTo Cleanup
End If
‘ 7. 読み取り権限および排他ロックの確認（実際にストリームを開けるかテスト）
If Not TestFileAccess(resolvedPath) Then
AssertAndResolveVsdxPath = vpsAccessDenied
GoTo Cleanup
End If
‘ すべての関門を突破
AssertAndResolveVsdxPath = vpsValid
GoTo Cleanup
ErrorHandler:
‘ システムエラー（不正な文字、アクセス違反など）のトラップ
Select Case Err.Number
Case 52, 76: ‘ Bad file name or number / Path not found
AssertAndResolveVsdxPath = vpsNotFound
Case 70: ‘ Permission denied
AssertAndResolveVsdxPath = vpsAccessDenied
Case Else
AssertAndResolveVsdxPath = vpsInvalidPathChars
End Select
Cleanup:
‘ オブジェクトの明示的解放（メモリリークの完全防止）
If Not fso Is Nothing Then Set fso = Nothing
Exit Function
End Function
‘ ==============================================================================
‘ 内部関数: 実際にファイルを共有モードで開けるかをテストし、ロック状態を検知する
‘ ==============================================================================
Private Function TestFileAccess(ByVal filePath As String) As Boolean
Dim fileNum As Integer
On Error GoTo AccessFailed
fileNum = FreeFile
‘ 読み取り専用でバイナリオープンを試みる（他プロセスが排他ロックしていれば失敗する）
Open filePath For Binary Access Read Lock Read Write As #fileNum
Close #fileNum
TestFileAccess = True
Exit Function
AccessFailed:
TestFileAccess = False
On Error Resume Next
Close #fileNum
On Error GoTo 0
End Function
—
3. Visioオブジェクトモデルとの統合：安全なファイルオープンとPDF出力
バリデーションを通過したパスを用いて、Visio図面を操作する際のベストプラクティスを提示する。ここでも、メモリリークを引き起こしやすい `Documents.Open` の罠を回避する作法が求められる。
Public Sub SafeOpenAndExportPDF(ByVal rawInputPath As String, ByVal rawOutputPath As String)
Dim targetPath As String
Dim outputPath As String
Dim validationResult As VisPathStatus
‘ 入力パスのバリデーション
validationResult = AssertAndResolveVsdxPath(rawInputPath, targetPath)
If validationResult <> vpsValid Then
Select Case validationResult
Case vpsNotFound: MsgBox “対象のVSDXファイルが存在しません：” & vbCrLf & rawInputPath, vbCritical
Case vpsAccessDenied: MsgBox “ファイルへのアクセス権がないか、他のプロセスによってロックされています。”, vbCritical
Case Else: MsgBox “無効なファイルパスです。”, vbCritical
End Select
Exit Sub
End If
‘ 出力先ディレクトリのバリデーション（存在しなければ自動生成）
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim parentOutDir As String
parentOutDir = fso.GetParentFolderName(rawOutputPath)
If Not fso.FolderExists(parentOutDir) Then
On Error GoTo DirCreateError
fso.CreateFolder parentOutDir
On Error GoTo 0
End If
outputPath = fso.GetAbsolutePathName(rawOutputPath)
Set fso = Nothing
‘ Visioドキュメントの安全なオープンとライフサイクル管理
Dim vsoDoc As Visio.Document
Dim vsoApp As Visio.Application
Set vsoApp = Application ‘ 実行中のVisioインスタンス
‘ 画面描画とアラートを抑制し、パフォーマンスを極限まで高める
vsoApp.ScreenUpdating = False
vsoApp.AlertsEnabled = False
On Error GoTo VisioError
‘ 読み取り専用(&H2)かつ、ドキュメントのプレビュー/自動回復を避けるフラグ設定で開く
‘ visOpenRO = 2, visOpenNoWorkspace = 32
Set vsoDoc = vsoApp.Documents.OpenEx(targetPath, 2 + 32)
‘ PDFエクスポート実行 (VisioのネイティブExportメソッド)
vsoDoc.ExportAsFixedFormat visFixedFormatPDF, outputPath, visIntentPrint, visPrintAll
‘ 正常終了時のクローズ (保存せずに閉じる: visSaveChangesNo = 1)
vsoDoc.Close
Set vsoDoc = Nothing
vsoApp.ScreenUpdating = True
vsoApp.AlertsEnabled = True
Exit Sub
DirCreateError:
MsgBox “出力先ディレクトリの作成に失敗しました: ” & parentOutDir, vbCritical
GoTo Finalize
VisioError:
MsgBox “Visioの処理中に致命的なエラーが発生しました (Error ” & Err.Number & “): ” & Err.Description, vbCritical
If Not vsoDoc Is Nothing Then
vsoDoc.Close
Set vsoDoc = Nothing
End If
Finalize:
‘ 確実な環境復元
If Not vsoApp Is Nothing Then
vsoApp.ScreenUpdating = True
vsoApp.AlertsEnabled = True
Set vsoApp = Nothing
End If
End Sub
—
4. シニアエンジニアが知るべきアーキテクチャ上の警鐘
1. COMオブジェクトの解放漏れによるメモリ肥大化:
`CreateObject(“Scripting.FileSystemObject”)` をループ内で何千回も呼び出し、かつ `Set fso = Nothing` を怠ると、VBAランタイムのCOMラッパーがメモリ上に残留し、やがてOut of Memoryを引き起こす。上記のコードのように、スコープを厳密に区切り、確実に解放する設計が絶対条件である。
2. ネットワークドライブ（UNC）におけるタイムアウト問題:
社内共有サーバー（`\\server\share\drawing.vsdx`）へのアクセスにおいて、ファイルが存在しない場合やサーバーがスリープしている場合、`FileExists` 自体が数秒間ブロックすることがある。大規模バッチを組む場合は、マルチスレッド化や非同期キューイング、あるいはローカルキャッシュへの事前同期レイヤーを挟むアーキテクチャ設計が不可欠となる。
総括
「ファイルが見つかりません」というエラーは、単なるコーディングミスではなく、「境界防御の欠如」を物語るシグナルである。FSOを用いた厳密なパスバリデーションと、適切な排他制御、そしてVisioオブジェクトのライフサイクル管理を習得した者だけが、止まらない・壊れないエンタープライズ級のVisio自動化システムを構築できる。
妥協なきコードで、レガシーなVBAの世界をエンジニアリングの要塞へと昇華させよ。
