CorelDRAW VBA × SQL Server：エンタープライズ級アセット管理システムの極意
CorelDRAWを単なる「ドローソフト」と捉えているようでは、プロの自動化エンジニアとは呼べない。CorelDRAWは、VBAという強力なインターフェースを備えた「グラフィカルなデータベースクライアント」である。
今回は、社内アセットをSQL Serverで統制し、CorelDRAW側からオンデマンドで完全同期・自動保存を行うシステムの要諦を伝授する。中途半端なマクロで業務を汚染するのは今日で終わりだ。
—
1. なぜ「ファイル共有」ではいけないのか
多くの現場が陥る罠は、NASや共有フォルダにCDRファイルを乱雑に放り込む運用だ。これでは「どれが最新か」というバージョン管理の地獄が待っている。
- 単一ソースの真実（SSOT）: アセットのメタデータ（属性、タグ、使用期限）はDBで管理し、バイナリデータは「必要に応じてフェッチする」のが正解だ。
- 通信の堅牢性: ネットワーク越しに直接CDRを開くのはパフォーマンスと安定性の観点から最悪の選択肢である。必ずローカルキャッシュを介した同期機構を実装せよ。
2. システムアーキテクチャの設計思想
VBAからSQL Serverへは、`ADODB`（ActiveX Data Objects）を経由するのが標準的かつ最強のルートだ。
推奨する処理フロー
1. VBA側: UIからアセットを検索。
2. SQL側: 該当アセットのパスとハッシュ値（バージョン確認用）をリターン。
3. 同期エンジン: ローカルのキャッシュフォルダと比較し、更新があればバイナリを同期。
4. CorelDRAW: `OpenDocument`でローカルファイルをロード。
—
3. 実装：SQL Server接続とデータ取得の堅牢なコード
以下のコードは、接続文字列をハードコードせず、エラーハンドリングを徹底したプロダクション仕様のテンプレートだ。
‘ 必要な参照設定: Microsoft ActiveX Data Objects x.x Library
Option Explicit
Private Const CONN_STRING As String = “Provider=SQLOLEDB;Data Source=YOUR_SERVER;Initial Catalog=AssetsDB;Integrated Security=SSPI;”
Public Sub FetchAssetFromDB(ByVal AssetID As Long)
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strQuery As String
Set conn = New ADODB.Connection
On Error GoTo ErrHandler
conn.Open CONN_STRING
strQuery = “SELECT FilePath, VersionHash FROM AssetMaster WHERE AssetID = ” & AssetID
Set rs = conn.Execute(strQuery)
If Not rs.EOF Then
Dim localPath As String
localPath = “C:\LocalCache\” & rs!AssetID & “.cdr”
‘ 実際のファイル同期処理（別途関数化を推奨）
SynchronizeFile rs!FilePath, localPath
‘ CorelDRAWで開く
Application.OpenDocument localPath
End If
rs.Close
conn.Close
Exit Sub
ErrHandler:
MsgBox “DB接続エラー: ” & Err.Description, vbCritical
If Not conn Is Nothing Then conn.Close
End Sub
—
4. プロの現場で不可欠な「同期」の注意点
ファイル操作において、単にコピーするだけでは「書き込み中の読み取り」が発生し、システムがクラッシュする。
- 排他制御の考慮: SQL Server側で `IsLocked` フラグを立てるか、ファイルをコピーする前に `FileAttr` 等でアクセス権を確認せよ。
- 例外処理の厳格化: VBAの `On Error GoTo` は必ず関数の出口まで設計すること。中途半端なエラーハンドリングは、CorelDRAWのゾンビプロセスを生成する原因となる。
- クリーンアップの自動化: ローカルキャッシュは肥大化する。`FileSystemObject` を使い、一定期間アクセスがないファイルは自動削除するエージェント（またはVBA起動時処理）を必ず組み込むこと。
—
5. 次のステップへ
今回のコードはあくまで「接続と取得」の骨子である。本当に洗練されたシステムにするためには、以下の要素を検討せよ。
1. 非同期処理: SQLクエリ中にCorelDRAWがフリーズしないよう、ステータスバーにプログレスを表示させる。
2. 暗号化: SQLへの接続文字列はレジストリや暗号化された外部コンフィグファイルから読み込むこと。
3. ユーザーIDの紐付け: 誰がどのロゴを使用したか、DB側にログを残すことで、ライセンスコンプライアンスを自動化できる。
VBAは枯れた技術ではない。適切な設計を行えば、あなたの会社においてCorelDRAWは、単なるソフトから「データベースと直結した最強の生産プラットフォーム」へと進化する。
実装で詰まったら、オブジェクトモデルの `Application.Events` を見直せ。CorelDRAWの内部で起きるすべての挙動は、インターセプト可能だ。それが、伝説の自動化エンジニアの視点である。
