【上級者／チーフアーキテクトが明かす】Visio図面PDF出力における「ファイルロック地獄」を制する排他制御アーキテクチャ
エンタープライズ環境において、Visio VBAを用いた自動ドキュメント生成およびPDF化パイプラインは、多くのシステム間連携の基盤を支えている。しかし、夜間バッチやRPA、あるいは並行稼働する監視プロセスとの間で、最も頻発し、かつ開発者を絶望の淵に追いやるエラーがある。
それが 「実行時エラー ‘-2147417848 (80010108)’: オートメーション エラーです。オブジェクトがクライアントから切断されました。」 ならびに出力先PDFの 「ファイルが別のプロセスで使用されています」 というファイルロック競合（排他制御の欠如）だ。
今回は、数千枚規模の図面を連夜自動出力するミッションクリティカルな現場において、私が実装・導入し続けている「極限まで堅牢なリトライ＆待機メカニズム」を、余すところなく公開する。
—
1. なぜVisioのPDF出力は「ファイルロック」で崩壊するのか？
Visioの `Document.ExportAsFixedFormat` メソッドは、内部的にグラフィックエンジンとプリンタドライバ（またはMicrosoft Print to PDFなどの仮想ドライバ）を同期呼び出しする。
ここで発生する構造的欠陥は以下の通りだ：
1. 非同期的なファイルハンドル解放の遅延：VBA側で処理が完了したように見えても、OSのファイルシステム（NTFS）やWindowsの印刷スプーラーがファイルの書き込みハンドルを完全に解放するまでに、数十から数百ミリ秒のタイムラグが存在する。
2. 外部プロセス（プレビュー・監視ソフト）による横取り：出力先のディレクトリをウイルス対策ソフト、DLPソリューション、あるいはインデックス作成サービス（Windows Search）がリアルタイムスキャンした瞬間、ファイルは排他ロックされる。
この状態で次の処理が走ると、VBAは無慈悲にクラッシュするか、ゾンビプロセスを生成する。この問題に対する唯一の解法が、「例外を予測し、厳密なバックオフ戦略（指数バックオフ）を伴うリトライループ」の構築である。
—
2. 実装コード：堅牢なPDFエクスポート・アーキテクチャ
以下に示すのは、単に `On Error Resume Next` でエラーを握りつぶすような幼稚なコードではない。Win32 APIの `Sleep` を駆使し、OSのI/Oスレッドに配慮しながら、指定回数・指定間隔で粘り強くリトライを行うプロダクション品質のVBAモジュールだ。
Option Explicit
‘ —————————————————————–
‘ Win32 API Declaration (非同期待機のための高精度スリープ)
‘ —————————————————————–
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
‘ —————————————————————–
‘ 定数定義
‘ —————————————————————–
Private Const MAX_RETRY_ATTEMPTS As Long = 5 ‘ 最大リトライ回数
Private Const BASE_RETRY_DELAY_MS As Long = 2000 ‘ 初期待機時間 (2秒)
/
- @brief 指定されたVisio図面を堅牢にPDF出力する（排他制御付き）
- @param targetDoc 対象のVisio Documentオブジェクト
- @param outputPath 出力先PDFファイルのフルパス
- @return Boolean 成功時はTrue、全リトライ失敗時はFalse
/
Public Function ExportVisioToPdfSafely(ByVal targetDoc As Visio.Document, ByVal outputPath As String) As Boolean
Dim attempt As Long
Dim currentDelay As Long
Dim isSuccess As Boolean
isSuccess = False
currentDelay = BASE_RETRY_DELAY_MS
‘ 出力先ディレクトリの存在確認と事前チェック
If Not EnsureDirectoryExists(GetParentFolder(outputPath)) Then
Err.Raise 9999, “ExportVisioToPdfSafely”, “出力先ディレクトリの作成またはアクセスに失敗しました: ” & outputPath
End If
‘ リトライループの開始
For attempt = 1 To MAX_RETRY_ATTEMPTS
On Error GoTo ErrorHandler
‘ VisioネイティブのPDFエクスポート実行
‘ viFixedFormatPDF = 1, viDocPreviewDontShow = 2 (環境に合わせて調整)
targetDoc.ExportAsFixedFormat Visio.VisFixedFormatTypes.visFixedFormatPDF, _
outputPath, _
Visio.VisPrintIntent.visPrintIntentExport, _
Visio.VisCurrentSelectionModes.visSelModeAll
‘ エラーなくここまで到達すれば成功
isSuccess = True
Exit For
ErrorHandler:
‘ エラー番号のキャッチ (典型的なファイルロックやIO競合: 70=書き込み許可がありません, 1004等)
Dim errNum As Long
Dim errDesc As String
errNum = Err.Number
errDesc = Err.Description
On Error GoTo 0 ‘ エラーハンドラのリセット
If attempt < MAX_RETRY_ATTEMPTS Then ' ログ出力（本番環境ではDebug.Printをファイル出力やEventLogに置き換えること） Debug.Print "[WARN] PDF出力試行 " & attempt & " 回目が失敗しました。エラー: (" & errNum & ") " & errDesc Debug.Print "[INFO] " & (currentDelay / 1000) & " 秒後にリトライします..." ' スレッドをブロックして待機（OSへの負荷を軽減） Sleep currentDelay ' 指数バックオフ（リトライごとに待機時間を倍加させる） currentDelay = currentDelay 2 Else ' 最終試行も失敗した場合 Debug.Print "[ERROR] PDF出力が規定回数失敗しました。パス: " & outputPath Err.Raise errNum, "ExportVisioToPdfSafely", "PDF出力の排他制御リトライが上限に達しました。" & vbCrLf & errDesc End If Next attempt ExportVisioToPdfSafely = isSuccess End Function ' ----------------------------------------------------------------- ' ヘルパー関数群 ' ----------------------------------------------------------------- Private Function GetParentFolder(ByVal filePath As String) As String Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") GetParentFolder = fso.GetParentFolderName(filePath) Set fso = Nothing End Function Private Function EnsureDirectoryExists(ByVal folderPath As String) As Boolean Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") On Error GoTo DirError If Not fso.FolderExists(folderPath) Then fso.CreateFolder folderPath End If EnsureDirectoryExists = True Exit Function DirError: EnsureDirectoryExists = False Set fso = Nothing End Function ---
3. シニアエンジニアが実践すべき「メモリ最適化」と「ゾンビプロセス防止策」
大規模なバッチ処理でVisio VBAを使用する場合、ファイルロック問題の解決と並行して取り組まなければならないのが「COMコンポーネントのメモリリーク対策」である。
Visioの背後にあるアプリケーションインスタンスは非常に肥大化しやすく、不適切なオブジェクト参照の保持は、すぐにメモリ枯渇（OutOfMemory）を引き起こす。
オブジェクトの「完全な明示的解放」の鉄則
1. グローバルスコープの乱用を禁止する
`Visio.Application` や `Document` オブジェクトをモジュールレベル変数でダラダラと保持しない。スコープを局所化し、プロシージャの終了と同時に `Nothing` を代入して参照カウントを確実にゼロにする。
2. 変数の連鎖解放 (Cascade Release)
Dim appVisio As Visio.Application
Dim docs As Visio.Documents
Dim doc As Visio.Document
Set appVisio = New Visio.Application
Set docs = appVisio.Documents
Set doc = docs.Open(“C:\Path\To\Drawing.vsdx”)
‘ — 処理 —
‘ 解放は生成の逆順、かつ完全に行う
If Not doc Is Nothing Then doc.Close: Set doc = Nothing
If Not docs Is Nothing Then Set docs = Nothing
If Not appVisio Is Nothing Then appVisio.Quit: Set appVisio = Nothing
この厳密なクリーンアップを行わない限り、タスクマネージャーの裏で `visio.exe` がゾンビとして生き続け、次回のファイルオープン時に厳格な排他ロックを引き起こす原因となる。
—
4. チーフアーキテクトからの総括
システムの信頼性は、華やかな新機能の数ではなく、「異常系（エッジケース）のハンドリングの緻密さ」によってのみ担保される。
今回解説した「ファイルロックに対する指数バックオフリトライ」および「徹底的なオブジェクトライフサイクル管理」は、単なる小手先のテクニックではない。基幹システムと連携するドキュメント自動化レイヤーにおいて、人手による介入を完全に排除し、24時間365日無人稼働を実現するための「不可欠なアーキテクチャパターン」である。
あなたの書くVBAコードが、単なる「動くスクリプト」から、現場を支える「堅牢なエンジニアリング成果物」へと昇華することを期待する。
