Visio VBAの「メモリ地獄」から脱出せよ：VSDX破棄によるプロセス最適化の極意
業務自動化エンジニアであれば、一度は経験があるはずだ。大量の図面ファイルを処理する際、ループが進むにつれてVisioの動作が重くなり、最終的には「メモリ不足」や「応答なし」でプロセスが墜落する現象を。
多くの初学者は `Document.Close` を呼べば事足りると考えている。だが、現実は甘くない。Visioのオブジェクトモデルを正しく制御しなければ、非表示のメモリリークが積もり積もり、あなたの自動化ツールは「時限爆弾」と化す。
今日は、大規模バッチ処理において「変更を保存せずに破棄し、プロセスを軽量化する」ための鉄則を伝授する。
—
1. なぜ「Close」だけでは不十分なのか
Visioの `Document.Close` メソッドを引数なしで実行すると、Visioは「ユーザーに保存を確認するダイアログ」を表示しようと試みる。自動化プロセスにおいて、これが最大のボトルネックだ。
さらに、適切に参照を解放しないオブジェクトは、COMのラッパーとしてメモリ空間に残り続ける。これが連続処理でのメモリ肥大化の正体だ。
破棄の基本戦略
1. 保存確認の抑制: `Application.AlertResponse` を活用し、ダイアログを強制的に「いいえ（保存しない）」で閉じる。
2. オブジェクトの明示的解放: `Set doc = Nothing` は必須。ただし、それ以前にVisioの内部メモリから当該オブジェクトを確実に切り離す必要がある。
—
2. 実践：高信頼性・破棄モジュール
以下は、プロダクション環境でそのまま使える、堅牢なファイルクローズのテンプレートだ。
‘ @description: Visioドキュメントを保存せず、安全かつ確実に閉じるためのユーティリティ
‘ @author: Chief Architect
Public Sub SafeCloseDocument(ByRef doc As Visio.Document)
If doc Is Nothing Then Exit Sub
Dim app As Visio.Application
Set app = doc.Application
‘ 1. 保存確認ダイアログの抑制（自動化の基本中の基本）
‘ 0: ダイアログを表示しない、7: 「いいえ（No）」を選択したとみなす
Dim originalAlertResponse As Long
originalAlertResponse = app.AlertResponse
app.AlertResponse = 7
On Error Resume Next
‘ 2. 保存フラグを強制的にFalseにする（念のための二重保険）
If doc.Saved = False Then
doc.Saved = True
End If
‘ 3. ドキュメントを閉じる
doc.Close
‘ 4. 参照の破棄
Set doc = Nothing
‘ 5. 設定を元に戻す
app.AlertResponse = originalAlertResponse
If Err.Number <> 0 Then
Debug.Print “Error in SafeCloseDocument: ” & Err.Description
End If
On Error GoTo 0
End Sub
—
3. なぜこの設計が「最強」なのか
プロセスを汚染させないガード設計
このコードの鍵は、`doc.Saved = True` をあえて自分で行う点にある。Visioの仕様上、ドキュメントが「変更あり」の状態だと、たとえ `AlertResponse` を設定しても、予期せぬタイミングで保存確認が割り込むケースが稀にある。強制的に「保存済み」状態へ遷移させてから `Close` を呼ぶことで、APIの挙動を完全に制御下に置くのだ。
連続処理におけるメモリ解放の鉄則
もし数百ファイルのPDF変換やデータ抽出を行うのであれば、以下のループ構造を徹底してほしい。
‘ メイン処理のループイメージ
For Each filePath In fileList
Set doc = Application.Documents.Open(filePath)
‘ … ここで高負荷な処理を実行 …
‘ 処理直後に即座に閉じる（スコープを最小化する）
SafeCloseDocument doc
‘ GC（ガベージコレクション）的な意図で、適宜DoEventsを挟むと安定する
DoEvents
Next
—
4. チーフアーキテクトからの助言：データベース連携の落とし穴
VSDX内のデータをデータベース（SQL Server等）に書き出す際、「Visioのプロセスが生きている間にDB接続を握り続ける」のは避けろ。
VisioのCOMオブジェクトは非常に繊細だ。DB接続エラーが発生し、例外処理が不完全な状態で `doc.Close` をスキップしてしまうと、Visioプロセスがゾンビ化し、次に起動するインスタンスのメモリを圧迫する。
- 接続は必要最小限に: データを抽出した直後にDB接続を閉じ、Visioのクローズ後に改めて接続を開くか、トランザクションの粒度を細かく管理すること。
- 例外処理の徹底: `Try-Catch`（VBAなら `On Error GoTo`）の中で必ず `SafeCloseDocument` を呼び出すこと。これを怠れば、いかなる高度なロジックも、長時間の運用には耐えられない。
最後に：エンジニアとしての矜持
コードは「動けばいい」のではない。「止まらずに動き続ける」ことこそが、真の自動化エンジニアに求められる資質だ。メモリを解放し、プロセスをクリーンに保つことは、単なる最適化ではなく、あなたのプログラムに対する「敬意」の表れである。
さあ、このコードを武器に、重厚長大で不安定なVisioの自動化を、軽量でエレガントなシステムへと昇華させてくれ。質問があればいつでも歓迎する。
