CorelDRAWを「設計のハブ」に変える：SQL Server連携によるアセット管理の極意
こんにちは。CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して終わる日々は、今日で卒業しましょう。あなたが今扱っているのは単なるドローソフトではなく、「ビジネスの資産を生み出すエンジン」です。
今回は、CorelDRAWで作成したデザインを、ただの「CDRファイル」として埋もれさせるのではなく、SQL Serverと連携させて「検索可能な組織の資産」へと昇華させる、エンタープライズ級の自動化手法を伝授します。
—
1. なぜ「外部DB連携」が必要なのか？
デザイン現場のボトルネックはいつも同じです。「あの過去の案件、どのファイルだっけ？」「このロゴ、最新バージョンはどれ？」という検索コスト。
これを解消するために、CorelDRAWの保存イベントをトリガーにして以下の処理を走らせます。
1. メタデータ抽出: 文書情報やカスタムプロパティを読み取る。
2. サムネイル生成: `ExportBitmap` を活用し、プレビュー画像を生成。
3. 非同期登録: SQL Serverへ接続し、アセット情報をインサート。
—
2. 【核心】CDRから情報を抽出し、DBへ飛ばす技術
CorelDRAW VBA単体ではSQL Serverとの直接通信は推奨しません（DLL依存の問題やセキュリティリスクがあるため）。「VBAで抽出、中間ファイルを生成、外部のVB.NETコンソールアプリでDB登録」というパイプラインを組むのが、最も堅牢でプロフェッショナルなアーキテクチャです。
手順①：VBAで情報を書き出す（JSONやXML形式）
まず、保存時に必要なデータをJSON形式で書き出します。
‘ コアロジック：ドキュメント情報を抽出
Sub ExportMetadataForDB()
Dim doc As Document
Set doc = ActiveDocument
‘ ファイルパスとメタデータの取得
Dim fileName As String: fileName = doc.FullName
Dim author As String: author = doc.Properties(“Author”)
‘ サムネイルを一時フォルダへ書き出し
Dim exportPath As String: exportPath = “C:\Temp\Assets\” & doc.Name & “.png”
doc.ExportBitmap exportPath, cdrPNG, cdrCurrentPage, cdrRGBColorImage, 200, 200
‘ 中間ファイル(CSV/JSON)に書き出し、VB.NETアプリへ渡す準備
Dim fso As Object: Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim stream As Object: Set stream = fso.CreateTextFile(“C:\Temp\trigger.txt”, True)
stream.WriteLine fileName & “|” & author & “|” & exportPath
stream.Close
‘ ここでVB.NETで作った登録用EXEをシェル実行する
Shell “C:\Tools\AssetRegister.exe”, vbNormalFocus
End Sub
—
3. 【VB.NET側】非同期でSQL Serverに登録する
VBAから呼び出される「登録用EXE」の中身は、こんなにシンプルで強力です。
‘ VB.NET (Console App)
Imports System.Data.SqlClient
Module Module1
Sub Main()
‘ 1. VBAが吐き出したtxtを読み込む
Dim data() As String = IO.File.ReadAllText(“C:\Temp\trigger.txt”).Split(“|”)
‘ 2. SQL Serverへ接続して登録
Using conn As New SqlConnection(“Server=YourServer;Database=AssetDB;…”)
Dim sql As String = “INSERT INTO Designs (FilePath, Author, ThumbnailPath) VALUES (@path, @auth, @thumb)”
Dim cmd As New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue(“@path”, data(0))
cmd.Parameters.AddWithValue(“@auth”, data(1))
cmd.Parameters.AddWithValue(“@thumb”, data(2))
conn.Open()
cmd.ExecuteNonQuery()
End Using
End Sub
End Module
—
4. プロが陥る「落とし穴」と回避策
① ファイルロック問題
CorelDRAWが保存中の瞬間に外部からアクセスしようとすると、OSがファイルをロックしてエラーになります。
- 解決策: VBA側で保存完了を待機するループを入れるか、保存直後に数ミリ秒の `Sleep` を挟むのが鉄則です。
② 非同期処理の重要性
VBAでDB登録まで行おうとすると、ネットワーク遅延でCorelDRAWがフリーズします。
- 解決策: 上記のように「VBAはデータの受け渡しだけを行う」という疎結合の設計を守ってください。これがシステムの寿命を長くします。
③ セキュリティ
SQL Serverの接続文字列をVBAに直書きしてはいけません。
- 解決策: 接続情報は暗号化した設定ファイルとして保存し、VB.NET側で復号して使うのがエンタープライズの常識です。
—
最後に：自動化は「設計」が9割
CorelDRAW VBAは、強力な武器です。しかし、その力を正しく引き出せるかどうかは、コードの書き方ではなく、「システム全体をどう俯瞰するか」にかかっています。
「マクロが動いた！」という喜びを超えて、あなたのコードが会社の業務フローの一部として組み込まれたとき、あなたは単なるオペレーターではなく、真の「業務自動化エンジニア」になります。
まずは、自分のPCで小さなファイル情報をSQL Serverに投げる実験から始めてみてください。それが、最強のアセット管理システムへの第一歩です。
何か詰まったら、いつでも戻ってきてください。また次の高みへ一緒に登りましょう。
