CorelDRAW VBA「メモリリークとの決別」：数千ファイル連続処理を完遂させるアーキテクチャ
CorelDRAW VBAで数千単位のファイルをバッチ処理しようとした際、多くのエンジニアが直面するのが「処理の途中でCorelDRAWが重くなる」「メモリ不足でクラッシュする」「プロセスがゾンビとして残る」という壁だ。
これは、VBAがラップしているCOMオブジェクトの参照カウントを、我々が適切に制御できていないからに他ならない。VBAは「よしなに解放してくれる」という甘い幻想を今すぐ捨てろ。CorelDRAWという巨大なCOMサーバーを操る以上、メモリ管理はエンジニアの聖域だ。
今日は、プロの現場で「絶対に落ちない」バッチ処理を組むための設計指針を授ける。
—
1. ゾンビ化を防ぐ「参照解放」の鉄則
VBAにおいて、`Set obj = Nothing` を書けば安心だと思っているなら、それは大きな間違いだ。COMオブジェクトは参照カウンタによって管理されている。特に`Document`や`Layer`といった階層深いオブジェクトをループ内で生成し続けると、VBA側でメモリが適切に開放されず、CorelDRAWのプロセス肥大化を招く。
必須の作法
- 変数は最小のスコープで: 巨大な処理関数の中に変数を詰め込むな。処理単位で関数を分割し、変数の寿命を閉じる。
- 明示的な Nothing 代入: 参照を保持している変数は、役割を終えた瞬間に `Nothing` を代入せよ。
- DoEventsの適切な配置: CorelDRAWのUIスレッドに呼吸をさせるために、ファイル処理の区切りで必ず `DoEvents` を呼べ。
—
2. 堅牢なバッチ処理のプロダクションコード設計
以下は、メモリリークを抑止し、数千個のファイルを安全に処理するためのテンプレートだ。この構造をベースに構築せよ。
Option Explicit
‘ 巨大なバッチ処理のためのメインルーチン
Public Sub BatchProcessCDRFiles()
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim doc As CorelDRAW.Document
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set folder = fso.GetFolder(“C:\SourceData”)
For Each file In folder.Files
‘ 必ずエラーハンドラを個別ファイル処理に挟む
On Error Resume Next
Set doc = CorelDRAW.OpenDocument(file.Path)
If Err.Number = 0 Then
‘ 個別の業務ロジックを実行
Call ProcessSingleDocument(doc)
‘ 保存とクローズの徹底
doc.Save
doc.Close
Else
Debug.Print “Error processing: ” & file.Name
End If
‘ 明示的に参照を破棄
Set doc = Nothing
On Error GoTo 0
‘ メモリのフラッシュを促すため、数ファイルごとにDoEventsを呼ぶ
DoEvents
Next file
End Sub
‘ 処理を別関数に切り出し、変数の寿命をスコープ内で閉じる
Private Sub ProcessSingleDocument(ByRef doc As CorelDRAW.Document)
Dim layer As CorelDRAW.Layer
Dim shape As CorelDRAW.Shape
‘ ここでオブジェクトを操作する
Set layer = doc.ActiveLayer
For Each shape In layer.Shapes
‘ 複雑な処理
Next shape
‘ 最後に子オブジェクトから順に解放
Set shape = Nothing
Set layer = Nothing
End Sub
—
3. なぜこの設計が必要なのか（アーキテクチャの急所）
オブジェクトの「連鎖」を断つ
`doc.ActiveLayer.Shapes(1)` のようにドットで繋いでアクセスするのは、極めて危険だ。これを行うと、VBAは無意識に中間オブジェクトの参照を保持し、GC（ガベージコレクション）が追いつかなくなる。
「可能な限り短い参照で、個別に変数へ格納し、使い終わったら即座に Nothing」。これが物理法則に近い、VBAメモリ管理の鉄則だ。
データベース連携時の注意点
もしバッチ処理の結果をデータベース（AccessやSQL Server等）に書き込む場合、CorelDRAWプロセスとDB接続を同一スコープで維持するな。
DBへの書き込みは「処理終了後」に行うか、あるいは処理中にコネクションを繋ぎっぱなしにせず、その都度オープン・クローズする設計にせよ。CorelDRAWのプロセスがDB接続を掴んだままフリーズすると、ロックが解除されず、手動でサービスを再起動する羽目になる。
—
4. プロからのアドバイス：限界を超えるために
数千ファイルを処理する際、VBAだけで限界を感じたら、「外部プロセスによるDRY（Don’t Repeat Yourself）実行」を検討すべきだ。
1. メイン制御プロセス（VB.NETなど）を作る
2. CorelDRAWをコマンドライン引数で呼び出し、単一ファイルを処理して終了するスクリプトを走らせる
3. メインプロセスがCorelDRAWの終了を待機し、次のファイルを投入する
この「使い捨てのプロセスを繰り返す」手法こそが、現代のWindows環境における最も堅牢なバッチ処理アーキテクチャだ。VBAだけで完結させようとせず、自身のコードが「どの程度の負荷に耐えうるか」を常に俯瞰せよ。
CorelDRAW VBAは強力な武器だが、制御できなければただの重い砂利だ。この設計指針を体に叩き込み、誰よりも速く、誰よりも正確なツールを構築することを期待している。
