Visio自動化の深淵：堅牢なファイル開閉処理と例外ハンドリングの極意
業務自動化の現場において、Visioのドキュメント操作は「地雷原」だ。特に共有サーバー上のファイル、パスワード保護、そして他者による編集ロック。これらを見くびった自動化コードは、数千回の実行の果てに、必ずシステムを停止させる。
今日は、小手先のメソッド呼び出しではない。Visioオブジェクトモデルのライフサイクルを制御し、いかなる異常系も飲み込んでシステムを止めない、エンジニアリングの真髄を説く。
—
1. 握りつぶしてはならない「例外」の正体
Visioの `Documents.Open` は、単なるファイル読み込みではない。COMサーバーを介した複雑なインスタンス化プロセスだ。パスワードダイアログの出現や、ReadOnlyモードでの強制読み取りは、`Err.Number` をトリガーにVBAのランタイムを不安定にする。
我々が目指すべきは、「エラーを回避する」のではなく「エラーを予測可能な状態としてハンドリングする」ことだ。
不安定な実装の排除
`On Error Resume Next` を漫然と使うのは素人の所業だ。特定のエラーコードを捕捉し、それ以外を即座にRaiseする「ホワイトリスト的例外ハンドリング」が、大規模自動化における唯一の正解である。
—
2. 堅牢なファイルオープン・ロジックの実装
以下に、実業務で耐えうる「防御的オープンルーチン」を示す。ここでは `visOpenRO`（読み取り専用）と `visOpenRW`（読み書き）を動的に切り替え、かつパスワード保護によるフリーズを `Windows API` を使わずとも `Application.AlertResponse` で制御する手法をとる。
‘ @description パスワード保護やロックを検知し、安全に処理をスキップするプロシージャ
Public Function OpenVisioDocument(ByVal filePath As String) As Visio.Document
Dim doc As Visio.Document
Dim originalAlertResponse As Long
‘ 重要: Visioの警告ダイアログを抑制し、デフォルトの挙動（キャンセル等）を強制する
originalAlertResponse = Application.AlertResponse
Application.AlertResponse = 0 ‘ 0はダイアログに対し「キャンセル」相当の反応を強制する
On Error GoTo ErrorHandler
‘ ReadOnlyでオープンを試行。失敗すれば即座に例外へ
Set doc = Application.Documents.OpenEx(filePath, visOpenRO + visOpenNoWorkspace)
‘ 成功した場合はAlertResponseを復元
Application.AlertResponse = originalAlertResponse
Set OpenVisioDocument = doc
Exit Function
ErrorHandler:
Application.AlertResponse = originalAlertResponse
Select Case Err.Number
Case -2032465902 ‘ パスワード保護されている場合のエラーコード
LogToFile “Access Denied: File is password protected – ” & filePath
Case -2032465912 ‘ 既に開かれている、またはアクセス権なし
LogToFile “Access Locked: File is currently in use – ” & filePath
Case Else
LogToFile “Unknown Error (” & Err.Number & “): ” & Err.Description
End Select
Set OpenVisioDocument = Nothing ‘ 失敗時はNothingを返却し、呼び出し元で制御
End Function
—
3. メモリの最適化：COMの「死」を看取る
VBAにおけるメモリリークの9割は、`Set = Nothing` の怠慢ではない。「参照の循環」と「Applicationインスタンスの取り残し」だ。
特にVisioをバックグラウンドで操作する場合、ドキュメントを閉じた後の `Application.Quit` が正しく行われないと、タスクマネージャーに `VISIO.EXE` のゾンビプロセスが蓄積する。
確実な解放のためのテクニック
Public Sub SafeClose(ByRef doc As Visio.Document)
If Not doc Is Nothing Then
‘ 変更を保存せずに閉じる（自動化では読み込み専用を原則とするため）
doc.Close
Set doc = Nothing
End If
‘ DoEventsを挟むことで、OS側のメッセージキューを処理し、
‘ COMのガーベジコレクションを促す
DoEvents
End Sub
—
4. チーフアーキテクトからの提言：レガシーとの対峙
あなたが保守しているそのVisioシステムは、おそらく数年前の誰かが「動けばいい」という哲学で書いたものだろう。しかし、業務自動化の真の価値は「書いた時」ではなく「修正が必要になった時」に発揮される。
1. パスワードをコードに書くな: パスワードが必要な場合は、Windows資格情報マネージャーや暗号化された外部DBから取得し、実行時にメモリ上に展開せよ。
2. APIの利用: `GetOpenFileName` などのWindows APIを組み合わせることで、Visio標準のダイアログを完全に隠蔽し、独自のGUIからファイルを制御するUXを構築せよ。
3. ログの構造化: エラーハンドリング内で出力するログは、必ず「タイムスタンプ」「ファイルパス」「エラーコード」「呼び出し元プロシージャ名」をセットにせよ。
Visio VBAは、古くて退屈な技術に見えるかもしれない。しかし、その内部で動いているのは、WindowsのCOMという「計算機科学の歴史」そのものだ。このモデルを掌握したエンジニアには、どんな複雑なドキュメント運用も、単なるデータフローの一部に過ぎなくなる。
次は、`Visio.Shape` のインデックス参照を排除し、`NameID` を用いた高精度なトラバース手法について語るとしよう。
現場からは以上だ。コードを書き続けろ。それが唯一の解決策だ。
