【入門編】【上級プロ向け】COMオブジェクトの参照リークとゾンビプロセスの完全撲滅！巨大なCDRファイルを安全に連続バッチ処理する堅牢なエラーハンドリング – CorelDRAW VBA解析バイブル

こんにちは！CorelDRAWの自動化の世界へようこそ。
マクロの記録ボタンを押して、出てきたコードをそのまま動かす――そんな初歩的な段階を卒業し、「百枚、千枚単位の巨大なCDRファイルを一括で自動処理したい！」と思ったそこのあなた。素晴らしい挑戦です。

しかし、大量のファイルをVBAで連続処理（バッチ処理）させ始めた途端、こんな恐怖の現象に出くわしたことはありませんか？

• 「最初は動いていたのに、30ファイル目を過ぎたあたりから急激に処理が重くなる…」
• 「VBAの処理が終わったはずなのに、タスクマネージャーを見ると見えない`CorelDRW.exe`が何重にもゾンビのように居座っている…」
• 「そして最終的に『メモリ不足（Out of Memory）』でCorelDRAWごと強制終了する…」

これ、プロの現場でも本当によくある「COMオブジェクトの参照リーク」という悪夢です。

今回は、CorelDRAW VBAの裏側で何が起きているのかという本質から、巨大ファイルを安全に、1ミリのメモリリークも残さずに完遂するための「要塞のようなエラーハンドリング・アーキテクチャ」を、優しく、そして徹底的に伝授します。
ここをクリアすれば、あなたのCorelDRAW VBAスキルは間違いなく「プロのエンジニア領域」に到達しますよ。準備はいいですか？

—

なぜ「ゾンビプロセス」と「メモリリーク」が起きるのか？

私たちが普段何気なく書いているVBAのコード。例えば、以下のようなコードを見たことがあるでしょう。

‘ 良くある初心者のコード（実は爆弾を抱えています）
Dim app As CDR.Application
Set app = New CDR.Application
Dim doc As CDR.Document
Set doc app.Open(“C:\Data\HugeFile.cdr”)

‘ 何かしらの処理…

doc.Close
Set doc = Nothing
Set app = Nothing

「ちゃんと最後に `Nothing` を入れているから大丈夫！」と思いました？
残念ながら、これだけでは不十分です。

WindowsのCOM（Component Object Model）の世界では、VBAからCorelDRAWのオブジェクト（ApplicationやDocumentなど）を呼び出すたびに、裏側で「参照カウンター」という数字がカウントアップされます。

VBA側で変数を `Nothing` にしても、CorelDRAWの内部で生成された親・子・孫の関係にあるオブジェクト（例：`Document` から辿る `Page` や `Layer`、果ては `ShapeRange` など）の参照が1つでも解放漏れを起こしていると、「まだこのアプリは使われているな」と判断され、プロセスがメモリ上に居残り続けます。

これが積み重なった結果が、あのゾンビプロセスとメモリリークの正体です。

—

鉄則：巨大バッチ処理を完遂するための3つの心得

1. すべてのオブジェクト変数は `Nothing` で巻き取る（但し、順序が命）
2. 例外（エラー）が発生しても、必ずクリーンアップ処理を通る構造にする (`On Error GoTo`)
3. ガベージコレクション頼みにせず、不要になった局所的オブジェクトはその場で即座に破棄する

これらをすべて盛り込んだ、実務でそのまま使える「要塞型バッチ処理テンプレート」を次の章で公開します。

—

【実践】メモリリークを完全封鎖する堅牢なバッチ処理コード

以下のコードは、指定したフォルダ内のすべてのCDRファイルを読み込み、何らかの処理をして別名で保存、そして完全にメモリを清掃しながら次のファイルへ進むプロシージャです。

Sub SafeBatchProcessCDR()
‘ ==========================================
‘ 巨大ファイル連続処理用 メモリリーク対策テンプレート
‘ ==========================================
Dim targetDir As String
Dim fileName As String
Dim cdrApp As Object ‘ バッファリングのため早期バインディング回避にObjectを使うことも有効ですが、今回は明示的に型定義
Dim cdrDoc As Object

‘ 処理対象のフォルダパス
targetDir = “C:\MyCDRWork\TargetFolder\”

‘ CorelDRAWのインスタンスを起動
‘ ※すでに起動中のものを掴むのではなく、バッチ専用に新規起動してクリーンに保つアプローチ
On Error GoTo ErrorHandler
Set cdrApp = CreateObject(“CorelDRAW.Application”)

‘ バッチ処理中は画面描画や警告をオフにして爆速化＆安定化
cdrApp.Optimization = True
cdrApp.EventsEnabled = False

‘ フォルダ内のCDRファイルを検索
fileName = Dir(targetDir & “.cdr”)

Do While fileName <> “”
‘ デバッグ用：現在処理中のファイルをイミディエイトウィンドウに出力
Debug.Print “処理中: ” & fileName

‘ 1. ドキュメントを開く
Set cdrDoc = cdrApp.OpenDocument(targetDir & fileName)

‘ ==========================================
‘ 【ここに実際の業務処理を記述します】
‘ 例：すべてのページに対して何かをする等
‘ ==========================================
‘ Dim sh As Shape
‘ For Each sh in cdrDoc.ActivePage.Shapes
‘ ‘ 何か処理
‘ Next sh
‘ ==========================================

‘ 2. 変更を保存して閉じる（上書き保存なら .Save、別名なら .SaveAs）
cdrDoc.Save

‘ 3. 【最重要】ドキュメントオブジェクトの厳格な解放
cdrDoc.Close
Set cdrDoc = Nothing ‘ 忘れずにメモリから切り離す

‘ 次のファイルへ
fileName = Dir
Loop

CleanUp:
‘ ==========================================
‘ 正常終了時のクリーンアップ
‘ ==========================================
On Error Resume Next
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.Quit
Set cdrApp = Nothing
End If

MsgBox “すべてのバッチ処理がメモリリークなしで完了しました！”, vbInformation
Exit Sub

ErrorHandler:
‘ ==========================================
‘ 異常終了時の緊急クリーンアップ（ゾンビ防止の砦）
‘ ==========================================
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp

End Sub

—

コードの深掘り：なぜこの書き方が「安全」なのか？

1. `On Error GoTo ErrorHandler` による二重の安全網

もし処理中に何らかのエラー（例えば、ファイルが破損していて開けない、メモリが足りなくなった等）が発生した場合、通常のコードだとそこでマクロが停止し、`cdrApp` や `cdrDoc` がメモリに残ったまま放置されます。
このコードでは、エラーが起きても必ず `CleanUp:` ラベルにジャンプし、アプリケーションの強制終了（`.Quit`）と変数破棄（`Set = Nothing`）が確実に行われるようになっています。

2. `cdrApp.Optimization = True` の魔力

大量のファイルを処理するとき、CorelDRAWがファイルを開くたびに画面プレビューを再描画したり、UIイベントを監視したりしていると、CPUとメモリに致命的な負荷がかかります。
処理の最初に `Optimization = True` を宣言することで、画面描画や不要なイベント処理をシャットアウトし、メモリの無駄な消費を防ぐと同時に処理速度を何倍にも跳ね上げることができます。（※処理が終わったら必ず `False` に戻すのを忘れないように！）

3. ループ内でのこまめな `Nothing`

巨大なファイルを扱うバッチ処理では、「ループの最後でまとめて解放する」のではなく、「1ファイルを処理し終えたら、その都度ドキュメントを完全に閉じ、変数に `Nothing` を代入してガベージコレクションの機会を与える」ことが鉄則です。これにより、メモリ使用量を常に一定の低い水準に抑え続けることができます。

—

まとめ：ここをクリアすれば、もう怖くない！

今回は、CorelDRAW VBAにおけるCOMオブジェクトの寿命管理と、巨大ファイルを安全に連続処理するための堅牢なエラーハンドリングについて解説しました。

最初は呪文のように見えた `CreateObject` や `Set … = Nothing` の裏側にある「Windowsのメモリ管理の仕組み」が理解できると、VBAを書く視座が一気にプロフェッショナルなものへと変わります。

「大量のファイル処理でパソコンが固まる、落ちる」という恐怖から解放され、安心して夜間にバッチを回して朝には仕事が終わっている――そんな快適な自動化ライフを、ぜひあなたの手で掴み取ってください。

それでは、次回の高度なCorelDRAW自動化の世界でお会いしましょう。お疲れ様でした！