【上級プロ向け】COMオブジェクトの参照リークとゾンビプロセスの完全撲滅！堅牢なVBAエラーハンドリング設計
CorelDRAWを用いた大量のCDRファイルの連続バッチ処理、あるいは外部システム連携による自動生成パイプライン。この領域に踏み込んだエンジニアであれば、一度は「タスクマネージャーの壁」に阻まれたことがあるはずだ。
処理を重ねるごとにじわじわと肥大化するメモリ消費量。そして、VBAのマクロ実行が完了しているにもかかわらず、OSのバックグラウンドに静かに、しかし確実に居座り続ける見えない`CorelDRW.exe`（ゾンビプロセス）。
これらは偶然のバグではない。VBAとCorelDRAWのCOM（Component Object Model）相互運用におけるオブジェクトのライフサイクルと参照カウンタの構造的必然を理解していない者に訪れる、必然のペナルティである。
今回は、CorelDRAW VBAの限界領域を突破し、数千・数万ファイルの連続処理をも無人かつ安定して完遂するための「極限のメモリ管理と堅牢なエラーハンドリング設計」を叩き込む。
—
1. なぜCorelDRAW VBAのバッチ処理は破綻するのか？
VBAのガーベージコレクション機構は、マネージド言語（C#やJava）のそれとは異なり、極めてプリミティブである。ローカル変数のスコープを抜けた際や、変数が破棄された際に自動的に`Release`が呼ばれる仕様にはなっているが、「入れ子になったオブジェクト階層」や「暗黙的な参照の生成」が絡むと、この自律的な解放メカニズムは完全に沈黙する。
ゾンビプロセスを生み出す3大悪魔
1. 暗黙の参照（Dot Chainingの罠）
`ActiveDocument.ActiveLayer.CreateRectangle(…)` のように、変数を介さずにドットでプロパティやメソッドを連続呼び出しすると、途中で生成された一時的なCOMオブジェクトへの参照をコードから追跡できなくなる。結果として、誰も解放できない参照がCOMのヒープ上に残り続け、CorelDRAWのプロセスが終了できなくなる。
2. エラー時のスコープ脱出
途中で実行時エラー（「ファイルが見つかりません」「メモリ不足」など）が発生し、エラートラップ（`On Error GoTo`）によって通常のクリーンアップ処理がバイパスされると、参照が保持されたままプロシージャが強制終了する。
3. CorelDRAW固有のアプリケーション状態の残留
`Application.Optimization = True` などの描画抑止フラグや、モーダルなダイアログ抑止状態が解除されないまま異常終了すると、プロセス内部のメッセージポンプがデッドロックを起こす。
これらを完全に断ち切るには、「すべてのオブジェクト変数を明示的にローカルスコープのトップで宣言し、逆順で `Nothing` を代入して解放する」、そして「いかなる例外が発生しようとも確実にクリーンアップを通すトランザクション構造」を構築するほかない。
—
2. 実装：メモリリークを完全封殺するバッチ処理アーキテクチャ
以下に、数千ファイルのCDRファイルを安全に開き、PDF等の別フォーマットへ変換して閉じる、極限まで堅牢化されたバッチ処理のマスターコードを示す。
Option Explicit
‘ メインバッチ処理エントリポイント
Sub ExecuteRobustBatchProcess()
Dim targetFolder As String
Dim outputFolder As String
Dim fileName As String
Dim fileCount As Long
targetFolder = “C:\Data\CDR_Input\”
outputFolder = “C:\Data_PDF_Output\”
‘ 処理開始前の事前確認
If Dir(targetFolder, vbDirectory) = “” Then
MsgBox “入力フォルダが存在しません。”, vbCritical
Exit Sub
End If
fileCount = 0
fileName = Dir(targetFolder & “.cdr”)
‘ 処理ループ開始
Do While fileName <> “”
‘ 1ファイルごとの処理を完全に独立したトランザクションとして実行
If ProcessSingleFile(targetFolder & fileName, outputFolder) Then
fileCount = fileCount + 1
End If
fileName = Dir() ‘ 次のファイル
Loop
MsgBox “バッチ処理が正常終了しました。処理ファイル数: ” & fileCount, vbInformation
End Sub
‘ —————————————————————–
‘ 1ファイル単位の処理（完全なエラーハンドリングと参照解放を実装）
‘ —————————————————————–
Private Function ProcessSingleFile(ByVal inputPath As String, ByVal outDir As String) As Boolean
‘ 【重要】すべてのCorelDRAW関連オブジェクト変数をここで宣言する
Dim cdrApp As CorelDRAW.Application
Dim cdrDoc As CorelDRAW.Document
Dim expFilter As CorelDRAW.ExportFilter
Dim outputPath As String
Dim isAppInitialized As New Boolean ‘ 簡易的な状態管理フラグ
On Error GoTo ErrorHandler
‘ 1. Applicationインスタンスの取得（新規起動ではなく既存、または安全なバインド）
‘ ※バッチ処理では毎回新規インスタンスを起動して破棄する方が、メモリリーク耐性が圧倒的に高い
Set cdrApp = New CorelDRAW.Application
‘ 2. 最適化フラグの有効化（画面描画やイベントを抑制し、パフォーマンスを極限まで引き上げる）
cdrApp.Optimization = True
cdrApp.EventsEnabled = False
cdrApp.Interactive = False
‘ 3. ドキュメントのオープン
‘ OpenDocumentEx を使用し、サイレントモードで開くことで予期せぬダイアログ停止を防ぐ
Set cdrDoc = cdrApp.OpenDocument(inputPath)
‘ 出力パスの構築（拡張子をPDFに変更）
outputPath = outDir & GetBaseName(inputPath) & “.pdf”
‘ 4. エクスポート処理（ドットチェーンを避け、明示的なオブジェクト経由で実行）
Set expFilter = cdrDoc.Export(outputPath, cdrPDF, cdrSelection, Nothing)
expFilter.Finish
‘ 5. 正常終了時のクリーンアップ（スコープ内）
If Not cdrDoc Is Nothing Then
cdrDoc.Close
Set cdrDoc = Nothing
End If
‘ アプリケーションの終了
cdrApp.Quit
Set cdrApp = Nothing
ProcessSingleFile = True
Exit Function
ErrorHandler:
‘ —————————————————————–
‘ 異常系クリーンアップ（ゾンビプロセス発生防止の防壁）
‘ —————————————————————–
ProcessSingleFile = False
‘ エラーログの出力（必要に応じてFileSystemObject等でファイル出力に拡張する）
Debug.Print “Error [” & Err.Number & “]: ” & Err.Description & ” (File: ” & inputPath & “)”
‘ 逆順かつ安全にオブジェクトを強制解放
On Error Resume Next ‘ 解放時の追加エラーによるクラッシュを防止
If Not expFilter Is Nothing Then
Set expFilter = Nothing
End If
If Not cdrDoc Is Nothing Then
cdrDoc.Close
Set cdrDoc = Nothing
End If
If Not cdrApp Is Nothing Then
‘ 異常時は最適化フラグを戻してから終了を試みる
cdrApp.Optimization = False
cdrApp.EventsEnabled = True
cdrApp.Interactive = True
cdrApp.Quit
Set cdrApp = Nothing
End If
On Error GoTo 0 ‘ エラーハンドラをリセット
End Function
‘ 補助関数: フルパスから拡張子を除いたファイル名を取得
Private Function GetBaseName(ByVal fullPath As String) As String
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
GetBaseName = fso.GetBaseName(fullPath)
Set fso = Nothing
End Function
—
3. チーフアーキテクトが解説するコードの急所
上記のコードには、シニアエンジニアが実務で血を流しながら得た知見が凝縮されている。特に注目すべきポイントを解説する。
A. 「使い捨て（Throwaway）プロセスモデル」の採用
バッチ処理において、1つの `CorelDRAW.Application` インスタンスをループ全体で使い回す設計は悪手である。CorelDRAWのCOMエンジンは、複雑なドキュメントの開閉やフィルタ処理を何千回も繰り返すと、わずかなメモリ断片化や内部キャッシュの肥大化を起こす。
上記のコードでは、1ファイルごとに `New CorelDRAW.Application` でプロセスを立ち上げ、処理が終わったら `Quit` するモデルを採用している。起動・終了のオーバヘッドはあるものの、メモリリークやゾンビプロセスのリスクを「1ファイル単位でリセット」できるため、長時間の無人稼働において圧倒的な安定性を誇る。
B. 二重の防御（Error Handlerでの厳密な解放）
VBAの `On Error GoTo` 内では、通常のコードフローが断たれているため、どのオブジェクトが生き残っているかを静的に追うことができない。
そのため、エラーハンドラ内では必ず `On Error Resume Next` を宣言した上で、生成されたすべてのオブジェクト変数（`expFilter`, `cdrDoc`, `cdrApp`）に対して逆順で `Set … = Nothing` を実行する。これにより、万が一処理中に例外が発生しても、COMの参照カウントが強制的にデクリメントされ、OS上にゾンビが残るのを防ぐ。
C. アプリケーションプロパティの完全な復元
`Optimization = True` などの設定は、CorelDRAWの内部状態をロックする。エラーが発生してこれらが未設定のままプロセスが残ると、最悪の場合、次回起動時にCorelDRAW自体が不安定になる。異常系ハンドラの中で確実に `Optimization = False` に戻すか、プロセスごと `Quit` で消滅させるのが鉄則である。
—
4. それでもプロセスが残る場合の最終防衛ライン（Windows API連携）
上記の実装を徹底してもなお、CorelDRAWのサードパーティ製アドイン（VBAマクロ以外の外部プラグイン等）がメモリリークを引き起こし、プロセスがゾンビ化してタスクマネージャーに居座るケースが存在する。
この最終的な脅威に対抗するため、VBAからWindows APIを呼び出し、処理の開始時や終了時に「迷子のCorelDRW.exe」を強制終了（プロセスkill）するサニタイズ処理を組み込むのが、真に堅牢なシステム管理者のアプローチである。
‘ 実行中のプロセスを強制終了するためのWindows WMI / Shell制御の活用
Public Sub KillZombieCorelProcesses()
Dim wmi As Object
Dim processes As Object
Dim proc As Object
On Error Resume Next
Set wmi = GetObject(“winmgmts:\\.\root\cimv2”)
Set processes = wmi.ExecQuery(“Select from Win32_Process where Name = ‘CorelDRW.exe'”)
For Each proc In processes
‘ 必要に応じてプロセスの詳細情報をチェックし、
‘ オーファン（親を失った）プロセスを特定してTerminateを呼ぶ
proc.Terminate
Next
Set proc = Nothing
Set processes = Nothing
Set wmi = Nothing
On Error GoTo 0
End Sub
※注意: このAPI制御をバッチ処理の開始前（`ExecuteRobustBatchProcess` の最初など）に挟むことで、前回のバッチが異常終了して放置された残骸を完全に掃除し、クリーンな状態から処理を開始させることが可能になる。
—
5. 結び：技術の真髄は「後始末」に宿る
動くコードを書くことは、プログラミングの入口に過ぎない。しかし、「何万回実行しても、リソースを1バイトたりとも漏らさず、例外が起きようともシステムを汚染しないコード」を書くことこそが、プロフェッショナルな業務自動化エンジニアと、単なるスクリプトキディを分ける境界線である。
CorelDRAW VBAの限界を嘆く前に、オブジェクトのライフサイクルをあなたの手で完全に制御せよ。徹底的な参照破棄とトランザクション設計の美しさが、あなたの自動化パイプラインを永遠の安定稼働へと導くだろう。
