【テクニカル・上級編】【中級者向け】複数のCDRファイルを監視フォルダに投入するだけで指定フォーマット（PDF/EPS）へ自動振り分け – CorelDRAW VBA解析バイブル

CorelDRAW VBAを掌握する極限の知見：ホットフォルダ型・全自動フォーマット変換エンジンの構築

デザイナーがファイルを保存し、指定のディレクトリへドラッグ＆ドロップする。それだけで、背後で静かに、かつミリ秒単位の最適化を施されてPDFやEPSへと昇華していく——。

本稿で解説するのは、単なる「VBAのマクロ」ではない。WindowsのファイルシステムとCorelDRAWのプロセスライフサイクルを極限まで調停し、実務の現場で一切の破綻を起こさない常駐型ホットフォルダ・バッチシステムの全貌である。

レガシーなVBAの限界を突破し、堅牢なエンタープライズ品質へと昇華させるためのチーフアーキテクトとしての知見をここに開示する。

—

1. アーキテクチャの設計思想：なぜ「VBA単体」では破綻するのか

CorelDRAW VBAは、強力なCOM（Component Object Model）インターフェースを提供しているが、その本質は「単一セッションのDCC（Desktop Color Commander）アプリケーションの従属物」に過ぎない。

ホットフォルダ（監視フォルダ）システムを構築する際、初心者は無限ループ（`DoEvents`によるポーリング）をVBA内で回しがちだが、これは悪手である。

• メモリリークの蓄積: CorelDRAWのドキュメントオブジェクトは、GC（ガベージコレクション）のタイミングが曖昧であり、連続処理を行うと確実にメモリ空間を肥大化させる。
• UIスレッドの凍結: 長時間稼働における予期せぬダイアログ（フォント欠損アラート、バージョン違いの警告など）のモーダル表示により、システムが完全にハングアップする。

これを解決するため、本システムでは「ファイルシステムの監視トリガー」と「CorelDRAWのクリーンなプロセス起動・破棄」を完全に分離する設計を採用する。VBAスクリプトは、単一ファイルの変換任務を受け取ると、速やかに処理を実行し、自身を即座にメモリから消滅させる。この「使い捨てのプロフェッショナル」の思想こそが、数千ファイルの連続処理を支える唯一の解である。

—

2. 実装：ホットフォルダ監視とCorelDRAW制御のコアロジック

以下のコードは、指定された監視フォルダ（`C:\HotFolder\Input`）を走査し、CDRファイルを検知次第、拡張子に応じてPDFまたはEPSへ自動エクスポート、完了後にファイルをアーカイブラジオへ移動する実用モジュールである。

Option Explicit

‘ Windows API: プロセス間の同期やファイル操作の正確性を担保するため宣言
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)

Const INPUT_DIR As String = “C:\HotFolder\Input\”
Const OUTPUT_PDF_DIR As String = “C:\HotFolder\Output\PDF\”
Const OUTPUT_EPS_DIR As String = “C:\HotFolder\Output\EPS\”
Const ARCHIVE_DIR As String = “C:\HotFolder\Archive\”

”’

Public Sub RunHotFolderProcessor()
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ ディレクトリの存在確認と自動生成
Call EnsureDirectories(fso)

Dim targetFolder As Object
Set targetFolder = fso.GetFolder(INPUT_DIR)

Dim file As Object
Dim processedCount As Long
processedCount = 0

‘ 監視フォルダ内のCDRファイルを全走査
For Each file In targetFolder.Files
If LCase(fso.GetExtensionName(file.Name)) = “cdr” Then
‘ ファイルの書き込みロックが解除されるまで待機（転送中のファイル読み込みを防ぐ）
If WaitUntilFileIsReady(file.Path) Then
If ProcessSingleFile(file.Path, fso) Then
processedCount = processedCount + 1
End If
End If
End If
End For

Set fso = Nothing
End Sub

”’

Private Function ProcessSingleFile(ByVal filePath As String, ByRef fso As Object) As Boolean
Dim cdrApp As Object
Dim cdrDoc As Object
Dim fileName As String
Dim baseName As String

On Error GoTo ErrorHandler

fileName = fso.GetFileName(filePath)
baseName = fso.GetBaseName(filePath)

‘ CorelDRAWのインスタンスを新規生成（既存プロセスへの依存を排除）
Set cdrApp = CreateObject(“CorelDRAW.Application”)
cdrApp.Optimization = True ‘ 画面描画やイベントを抑制し、処理速度を極限まで高める
cdrApp.EventsEnabled = False

‘ ドキュメントを開く（UI表示なし）
Set cdrDoc = cdrApp.OpenDocument(filePath)

‘ 振り分けロジック：ファイル名やメタデータ、あるいはページサイズで判定可能
‘ ここではシンプルなファイル名規則（例: “_eps”が含まれていればEPS、それ以外はPDF）を例示
If InStr(1, LCase(fileName), “_eps”) > 0 Then
Call ExportToEPS(cdrDoc, OUTPUT_EPS_DIR & baseName & “.eps”)
Else
Call ExportToPDF(cdrDoc, OUTPUT_PDF_DIR & baseName & “.pdf”)
End If

‘ オブジェクトの明示的クローズと解放
cdrDoc.Close
Set cdrDoc = Nothing

cdrApp.Quit
Set cdrApp = Nothing

‘ 処理済みファイルをアーカイブへ移動
fso.MoveFile filePath, ARCHIVE_DIR & fileName

ProcessSingleFile = True
Exit Function

ErrorHandler:
‘ 異常系ハンドリング：ゾンビプロセスの発生を防ぐ
On Error Resume Next
If Not cdrDoc Is Nothing Then cdrDoc.Close: Set cdrDoc = Nothing
If Not cdrApp Is Nothing Then cdrApp.Quit: Set cdrApp = Nothing
ProcessSingleFile = False
End Function

”’

Private Sub ExportToPDF(ByRef doc As Object, ByVal outputPath As String)
Dim pdfParams As Object
Set pdfParams = doc.PDFSettings

‘ プリセットの読み込み（CorelDRAWに予め保存されたPDF設定をロード可能）
‘ pdfParams.LoadPreset “PDF/X-1a”

pdfParams.PublishRange = 0 ‘ 0: 全ページ, 1: カレントページ
pdfParams.Version = 10 ‘ 10: PDF 1.4 / などの指定 (バージョン依存)

doc.PublishToPDF outputPath
Set pdfParams = Nothing
End Sub

”’

Private Sub ExportToEPS(ByRef doc As Object, ByVal outputPath As String)
Dim expParams As Object
Set expParams = doc.CreateStructExportOptions

expParams.ImageType = 1 ‘ 1: パスとビットマップの複合等
expParams.Resolution = 300

doc.Export outputPath, 4, 0, expParams ‘ 4 は cdrEPS (Encapsulated PostScript) の定数
Set expParams = Nothing
End Sub

”’

Private Function WaitUntilFileIsReady(ByVal filePath As String) As Boolean
Dim ff As Long
Dim i As Long

WaitUntilFileIsReady = False
For i = 1 to 10 ‘ 最大10秒間、排他ロックが外れるのを待つ
On Error Resume Next
ff = FreeFile
Open filePath For Binary Access Read Lock Read Write As #ff
Close #ff
If Err.Number = 0 Then
WaitUntilFileIsReady = True
Exit Function
End If
Err.Clear
Sleep 1000
Next i
End Function

Private Sub EnsureDirectories(ByRef fso As Object)
If Not fso.FolderExists(INPUT_DIR) Then fso.CreateFolder INPUT_DIR
If Not fso.FolderExists(OUTPUT_PDF_DIR) Then fso.CreateFolder OUTPUT_PDF_DIR
If Not fso.FolderExists(OUTPUT_EPS_DIR) Then fso.CreateFolder OUTPUT_EPS_DIR
If Not fso.FolderExists(ARCHIVE_DIR) Then fso.CreateFolder ARCHIVE_DIR
End Sub

—

3. チーフアーキテクトが教える「現場の地雷」と回避策

このシステムを社内サーバーやプロダクション環境に導入する際、必ず直面するいくつかの罠がある。ここをクリアしているかどうかが、プロとアマの決定的な境界線となる。

A. ゾンビプロセスの完全駆逐

VBAから `CreateObject(“CorelDRAW.Application”)` を呼び出した際、エラーハンドリングが不完全だと、タスクマネージャーに `CDRPROG.EXE` が幽霊のように居座り続け、やがてライセンス数上限やメモリ枯渇を引き起こす。

• 対策: 例外発生時（`On Error GoTo ErrorHandler`）に必ずインスタンス変数への `Nothing` 代入と `Quit` メソッドの呼び出しを保証すること。さらに、タスクスケジューラ等で定期的に `taskkill /f /im cdrprog.exe` を叩くフェイルセーフなバッチを外側にラップさせるのが、真のインフラ設計である。

B. フォント・リンク切れダイアログのサイレント化

サーバー環境やデザイナー個人のPCから切り離された自動化環境において、最大の敵は「フォントが見つかりません」や「リンクされた画像が見つかりません」というモーダルダイアログによるスクリプトの完全停止である。

• 対策: `cdrApp.Optimization = True` と `cdrApp.EventsEnabled = False` の組み合わせにより、多くの警告ダイアログのポップアップを抑制できる。さらに、CorelDRAWの環境設定（Options）側で、外部リンク切れ時のデフォルト動作を「自動的に無視（または埋め込み）」に設定したプロファイルをあらかじめマスターPC側で構成しておく必要がある。

C. ファイルシステムの競合（ファイルIOロック）

デザイナーがネットワーク経由でCDRファイルを監視フォルダにドラッグ＆ドロップする際、ファイル転送が完了する前にVBAがファイルをつかみに行ってしまい、`Permission Denied (Error 70)` を吐く現象が頻発する。

• 対策: 前述のコードに組み込んだ `WaitUntilFileIsReady` 関数のように、バイナリモードでの排他オープンを試行し、エラーがなくなるまで `Sleep` でウェイトを入れるリトライ機構が不可欠である。

—

4. さらなる高みへ：Windowsタスクスケジューラとの統合

このVBAマクロを内包したExcelブック（あるいはWord、または専用の `.vbs` ローダー）をWindowsのタスクスケジューラに登録し、「5分おきにサイレント実行」させることで、真のヘッドレス・ホットフォルダサーバーが完成する。

VBAの実行時にExcelやCorelDRAWのGUIを表示させないためには、VBScriptを仲介させ、シェル経由で完全にバックグラウンド実行させるのがスマートだ。

‘ run_hotfolder.vbs （タスクスケジューラから叩くエントリポイント）
Set xlApp = CreateObject(“Excel.Application”)
xlApp.Visible = False
xlApp.DisplayAlerts = False

‘ 監視・変換ロジクを含んだマクロブックを開いて実行
Set xlBook = xlApp.Workbooks.Open(“C:\HotFolder\AutomationMaster.xlsm”)
xlApp.Run “RunHotFolderProcessor”

xlBook.Close False
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing

総括

CorelDRAW VBAは、単なる「お絵かきソフトのオマケ機能」ではない。適切なアーキテクチャとWindowsのシステムリソース管理思想を掛け合わせることで、企業の制作ワークフローのボトルネックを完全に粉砕する強力なミドルウェアへと変貌する。

コードの行数ではない。信頼性だ。
今すぐあなたの環境にこの設計を導入し、手作業によるフォーマット変換の呪縛からデザインチームを解放せよ。