Visio自動化の陥穽：共有ファイルにおける「排他制御」の極意
業務自動化を進める際、避けて通れないのが「共有フォルダ上の図面ファイル」との付き合い方です。VisioのVSDXファイルをネットワーク越しに扱う際、安易な `Documents.Open` は、エンジニアとして最も避けたい「競合エラーによる業務停止」を招く引き金となります。
今回は、複数人が参照する図面を「安全に」「確実に」開き、かつ予期せぬ書き込みを排する。この現場レベルの要件を、Visio APIの深淵から解き明かします。
—
なぜ `Documents.Open` だけで済ませてはいけないのか
多くの初学者は、単純にパスを渡してファイルを開きます。しかし、共有環境においてこれは「無防備なプログラミング」です。
1. 競合リスク: 誰かが開いているファイルに書き込もうとすれば、Visioは無情にも「使用中」エラーを吐きます。
2. 意図せぬ変更: 読み取り専用で開いたつもりが、保存ダイアログが立ち上がり、ユーザーが誤って上書き保存を試みるヒューマンエラーが発生します。
真の自動化エンジニアは、「OSの排他状態を先読みし、APIレベルで強制的な読み取り専用モードを確立する」という設計思想を持たねばなりません。
—
堅牢な実装：OpenExメソッドの真価
Visio VBAにおける `Documents.OpenEx` は、ファイルの開き方を細かく制御するための強力な武器です。特に `visOpenRO`（読み取り専用）と `visOpenNoWorkspace`（ワークスペース情報を無視）を組み合わせるのが、プロダクションコードの定石です。
プロダクション環境向け実装サンプル
このコードは、ファイルが既に開かれている場合や、他者が使用中の場合の例外処理を考慮したテンプレートです。
Option Explicit
”’
”’
”’ 対象ファイルのフルパス
Public Sub OpenSharedVisioReadOnly(ByVal filePath As String)
Dim doc As Visio.Document
Dim openFlags As Long
‘ 1. 開き方のフラグ設定
‘ visOpenRO: 読み取り専用で開く
‘ visOpenNoWorkspace: 既存のワークスペース設定を読み込まず、クリーンに開く
openFlags = Visio.VisOpenSaveArgs.visOpenRO Or Visio.VisOpenSaveArgs.visOpenNoWorkspace
On Error GoTo ErrorHandler
‘ 2. OpenExメソッドで排他制御を強制
Set doc = Application.Documents.OpenEx(filePath, openFlags)
Debug.Print “正常に読み取り専用で開きました: ” & doc.Name
‘ ここに図面処理を記述
‘ …
Exit Sub
ErrorHandler:
‘ 3. エラーハンドリングの徹底
‘ ネットワーク切断や権限不足をここで検知
MsgBox “ファイルを開けませんでした。” & vbCrLf & _
“原因: ” & Err.Description, vbCritical, “排他エラー”
‘ ログ出力処理などをここに記載
End Sub
—
開発現場で意識すべき「極限の知見」
1. ネットワーク遅延への耐性
共有フォルダ上のファイルは、ローカルとは比較にならないほどアクセスが不安定です。`OpenEx` を呼ぶ前に、必ず `Dir(filePath)` 等で存在確認を行うのではなく、「開こうとして失敗したことを検知する」という楽観的アプローチ（例外ベース）の方が堅牢です。存在確認の瞬間にファイルが消える「Time-of-check to time-of-use (TOCTOU)」という脆弱性を回避できます。
2. インスタンスの寿命管理
VBAでファイルを操作する際、開いた `Document` オブジェクトを適切に閉じる（`doc.Close`）ことは大前提ですが、特に共有環境では「開いたまま放置」がデッドロックの原因になります。必ず `Finally` ブロックに近い構造（エラー発生時も必ず閉じる）を構築してください。
3. PDF出力との連携
もし、この読み取り専用で開いたファイルをPDF出力したい場合、`doc.ExportAsFixedFormat` を使用します。この際、「保存ダイアログを抑制する」設定を徹底してください。読み取り専用で開いているにもかかわらず、何らかの拍子に「名前を付けて保存」が出ると、自動化ツールとしては失格です。
‘ PDFエクスポートの例（読み取り専用ドキュメントに対して）
doc.ExportAsFixedFormat visFixedFormatPDF, “C:\Temp\output.pdf”, , , , , , False
—
結論：自動化は「防衛」から始まる
優れた自動化ツールとは、華やかな処理ができるものではなく、「エラーが起きない」ものです。特に共有フォルダという「戦場」で動くコードにおいては、今回紹介した `OpenEx` による排他制御が、あなたのシステムを支える防波堤となります。
次はぜひ、この仕組みをクラスモジュールにカプセル化し、呼び出し元のメイン処理からファイル操作の複雑さを隠蔽する設計に挑戦してみてください。それが、エンジニアとしての次のステップです。
