こんにちは！いつもデザイン業務の自動化や効率化に励んでいる皆さん、調子はいかがですか？
「毎日、何十個ものデザインパーツを書き出しては、手動でフォルダに分けて保存している……」
「どれが最新バージョンのファイルか分からなくなって、先祖返りが発生してしまった！」
そんな悩みを抱えていませんか？
「マクロの記録」から一歩踏み出して、自分だけの強力なツールを作ってみたいけれど、どこから手をつければいいか迷っている――そんなあなたに、今回は「CorelDRAW VBA」を使って、外部データベース（SQL Server）と連携した本格的な「アセット管理・自動保存システム」を構築する方法を優しく解説します。
「SQL Server（データベース）なんて、難しそう……」と思うかもしれませんが、大丈夫。一歩ずつ紐解いていけば、CorelDRAW VBAの基本である「オブジェクトの操作」「ファイルの保存」、そして「外部とのデータ連携」の仕組みが驚くほどスッキリ理解できます。
ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ。それでは、私と一緒にプロの自動化への扉を開けてみましょう！
—
1. システムの全体像をイメージしよう
まずは、今回作成するシステムがどのように動くのか、全体像をイメージしてみましょう。
難しく考える必要はありません。やっていることは、「デザインの保存」と「台帳へのメモ書き」を同時に、自動で行うだけです。
+————————————————————-+
| CorelDRAW (VBA) |
| 1. アクティブなドキュメントから「アセット名」や「バージョン」を取得 |
+——————————+——————————+
|
+——————+——————+
| (A) ファイル保存 | (B) メタデータ登録 (ADO)
v v
+————————–+ +————————–+
| ファイルサーバー | | SQL Server (データベース) |
| (NAS / 共有フォルダ) | | 「今、誰が、どのバージョン |
| ベクターファイル (.cdr) | | を保存したか」を記録する台帳 |
+————————–+ +————————–+
なぜデータベース（SQL Server）を使うの？
共有フォルダにファイルを保存するだけでも便利ですが、ファイル名を手作業で変えていると、いつか必ず「どれが最新版だっけ？」という問題が起きます。
データベースという「デジタル台帳」に、ファイル名、保存日時、作成者、バージョン番号をセットで記録しておくことで、CorelDRAW側からいつでも「最新のテンプレート」を瞬時に検索・呼び出しできるようになるのです。
—
2. 下準備：参照設定をチェックしよう！
VBAからSQL Server（データベース）とおしゃべりするためには、「ADO（ActiveX Data Objects）」という便利な道具（ライブラリ）を呼び出す必要があります。
1. CorelDRAWで [Alt] + [F11] を押して、VBAエディタ（VBE）を開きます。
2. メニューの [ツール] ＞ [参照設定] をクリックします。
3. リストの中から `Microsoft ActiveX Data Objects 6.1 Library`（なければ 2.8 等でもOK）を探し、チェックを入れて [OK] を押します。
これで下準備は完了です！この設定を行うだけで、VBAからデータベースを自由自在に操れるようになります。
—
3. 実践コード：アセット保存とデータベース同期のプログラム
では、実際に動くコードを見てみましょう。
このコードは、CorelDRAWで開いているデザインを、指定のフォルダに「自動でバージョン番号付き（_v1, _v2…）」で保存し、同時にSQL Serverの台帳を更新するプログラムです。
初心者の方でも迷わないよう、すべての行に丁寧な解説コメントを入れています。
‘ =========================================================================
‘ CorelDRAW VBA – SQL Server連携型アセット保存システム
‘ =========================================================================
Public Sub SyncAndSaveAsset()
‘ — 1. 変数の宣言 —
‘ CorelDRAWのドキュメントを扱うための変数
Dim doc As Document
Set doc = ActiveDocument
‘ ドキュメントが開かれていない場合は処理を中断します
If doc Is Nothing Then
MsgBox “アクティブなドキュメントが見つかりません。ファイルを開いてから実行してください。”, vbExclamation, “エラー”
Exit Sub
End If
‘ — 2. 管理情報の定義（今回は分かりやすく直接指定します） —
Dim assetID As String
Dim assetName As String
Dim author As String
Dim baseFolder As String
‘ ここを皆さんの環境に合わせて書き換えてみてくださいね！
assetID = “AST-001” ‘ アセットの一意のID
assetName = “Corporate_Logo_Template” ‘ アセット名
author = Environ(“USERNAME”) ‘ 現在のWindowsログインユーザー名
baseFolder = “C:\CorelDrawAssets\” ‘ 保存先のフォルダ (最後に \ を忘れずに)
‘ 保存先フォルダが存在しない場合は自動で作成します（親切設計！）
If Dir(baseFolder, vbDirectory) = “” Then
MkDir baseFolder
End If
‘ — 3. データベース（SQL Server）への接続準備 —
‘ ADOオブジェクトを生成します
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
‘ SQL Serverへの接続文字列（ConnectionString）
‘ ※「ServerName」をご自身のSQL Server名に書き換えてください。
‘ ※「Trusted_Connection=yes」はWindows認証を使う設定です。簡単で安全ですよ！
Dim connStr As String
connStr = “Provider=MSOLEDBSQL;” & _
“Data Source=ServerName;” & _
“Initial Catalog=AssetManagementDB;” & _
“Integrated Security=SSPI;”
‘ エラーが起きたとき、プログラムが強制終了しないように見守り役を配置します
On Error GoTo ErrorHandler
‘ データベースに接続します
conn.Open connStr
‘ — 4. 最新バージョンの確認 —
‘ データベースの台帳から、このアセットの「現在の最新バージョン」を問い合わせます
Dim sql As String
sql = “SELECT ISNULL(MAX(Version), 0) AS MaxVer FROM AssetTable WHERE AssetID = ‘” & assetID & “‘”
rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly
Dim nextVersion As Integer
nextVersion = rs.Fields(“MaxVer”).Value + 1 ‘ 次のバージョン番号を決定します
rs.Close
‘ — 5. ファイル名の決定とCorelDRAWでの保存 —
Dim finalFileName As String
Dim fullPath As String
‘ 例: “AST-001_Corporate_Logo_Template_v2.cdr” のようなファイル名を作ります
finalFileName = assetID & “_” & assetName & “_v” & nextVersion & “.cdr”
fullPath = baseFolder & finalFileName
‘ CorelDRAWのAPIを使ってファイルを保存します
‘ ※SaveAsメソッドを使うだけで、一瞬でベクターデータが保存されます！
doc.SaveAs fullPath
‘ — 6. データベース台帳の更新（メタデータの登録） —
‘ SQLのINSERT文を組み立てて、新しいバージョン情報を台帳に書き込みます
‘ ※日付はSQL Server側の「GETDATE()」関数を使って自動で現在時刻を記録します
Dim insertSql As String
insertSql = “INSERT INTO AssetTable (AssetID, AssetName, Version, FilePath, Author, SaveDate) ” & _
“VALUES (‘” & assetID & “‘, ‘” & assetName & “‘, ” & nextVersion & “, ” & _
“‘” & Replace(fullPath, “‘”, “””) & “‘, ‘” & author & “‘, GETDATE())”
‘ SQLを実行します
conn.Execute insertSql
‘ — 7. ユーザーへの完了報告 —
MsgBox “データベースと同期して保存が完了しました！” & vbCrLf & _
“ファイル名: ” & finalFileName & vbCrLf & _
“バージョン: v” & nextVersion, vbInformation, “成功”
‘ — 後処理（お片付け） —
ExitProcedure:
‘ データベースとの接続が開いていたら、優しく閉じます（リソースの解放）
If Not rs Is Nothing Then
If rs.State = adStateOpen Then rs.Close
End If
If Not conn Is Nothing Then
If conn.State = adStateOpen Then conn.Close
End If
Set rs = Nothing
Set conn = Nothing
Exit Sub
‘ — エラーが起きたときの逃げ道 —
ErrorHandler:
MsgBox “エラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “エラーハンドラー”
Resume ExitProcedure
End Sub
—
4. コードのポイント解説：マクロ記録から脱却するための知識
このコードには、ただの「マクロ記録」では絶対に生成されない、プロ仕様の設計手法がちりばめられています。ポイントを絞って分かりやすく解説しますね。
① `doc.SaveAs` のスマートな使い方
マクロ記録を行うと、保存時の細かい設定（解像度や互換性バージョンなど）が何十行にもわたって書き出されてしまいます。しかし、VBAでシンプルに保存するだけであれば、`doc.SaveAs ファイルのフルパス` と書くだけで十分です。
余計なコードを削ぎ落とすことで、バグが少なく読みやすいコードになります。
② ADOによる「SQLインジェクション」と「シングルクォーテーション」対策
データベースに文字を送るとき、ファイルパスに `’`（シングルクォーテーション）が含まれていると、SQLの命令が壊れてエラーになってしまいます。
コード内の `Replace(fullPath, “‘”, “””)` という部分は、「もしファイル名にシングルクォーテーションが含まれていたら、２つ重ねて安全な文字に変換する」という、プロのエンジニアが必ず行う防衛策です。
③ 丁寧な後処理（メモリの解放）
VBAでデータベース接続などの外部オブジェクト（`conn` や `rs`）を扱った後は、必ず `Set conn = Nothing` でメモリを解放してあげましょう。これを行わないと、CorelDRAWやパソコンの動作が徐々に重くなってしまう原因（メモリリーク）になります。
「使ったおもちゃは元の場所に片付ける」のと同じ、とても大切なマナーです。
—
5. SQL Server側の準備（参考テーブル設計）
このシステムを完全に動作させるためには、SQL Server側に以下のようなシンプルなテーブルを作っておくだけでOKです。
SQL Server Management Studio (SSMS) 等で、以下のSQLを実行してテーブルを作成しておきましょう。
— アセット管理用のテーブルを作成するSQL
CREATE TABLE AssetTable (
ID INT IDENTITY(1,1) PRIMARY KEY, — 自動で増える通し番号
AssetID VARCHAR(50) NOT NULL, — アセット固有のID (例: AST-001)
AssetName VARCHAR(100) NOT NULL, — アセット名
Version INT NOT NULL, — バージョン番号 (1, 2, 3…)
FilePath VARCHAR(500) NOT NULL, — 保存されたファイルのフルパス
Author VARCHAR(100) NOT NULL, — 作成者（Windowsユーザー名）
SaveDate DATETIME NOT NULL — 保存日時
);
—
6. よくあるエラーと対処法（デバッグのコツ）
プログラムを作っていると、最初はエラーが出るものです。でも、怖がらなくて大丈夫！
よく遭遇する2大エラーとその対策を知っておけば、冷静に対処できます。
エラー1:「ユーザー定義型は定義されていません」（コンパイルエラー）
- 原因: 2章で説明した「参照設定（ADO）」が行われていません。
- 対策: VBAエディタの [ツール] ＞ [参照設定] から `Microsoft ActiveX Data Objects` にチェックが入っているか再確認してください。
エラー2:「[Microsoft][ODBC SQL Server Driver] ログインに失敗しました」
- 原因: データベースへの接続情報（サーバー名やアクセス権限）が間違っています。
- 対策: `Data Source=ServerName` の `ServerName` が、実際のSQL Serverの名前と一致しているか確認してください。また、社内のデータベース管理者に「Windows認証でアクセスできるか」を確認してみましょう。
—
まとめ：あなたのデザイン業務が劇的に変わる第一歩
お疲れ様でした！
一見すると難しそうな「データベースと連携したベクター保存システム」も、基本となる「CorelDRAWでの保存処理」と「データベースへの簡単なSQLの送信」という2つのパーツを組み合わせるだけで、こんなにエレガントに実装できるのです。
このシステムが稼働すれば：
- 「どれが最新版だっけ？」という迷いがゼロになります。
- 手作業での「名前を付けて保存」のタイポ（書き間違い）が防げます。
- 過去のバージョンが必要になっても、データベースを検索すればすぐにファイルパスが特定できます。
「マクロの記録」を卒業し、こうした外部システムとの連携ができるようになると、VBAプログラマーとしての価値は一気に高まります。
ぜひ、あなたの職場に合わせたカスタマイズに挑戦してみてくださいね。
もし分からないステップがあれば、コードのコメントを一つずつ読み返してみましょう。焦らず一歩ずつ進めば、必ず思い通りのシステムが作れるようになりますよ。
あなたの自動化ライフが、より輝かしいものになりますように！応援しています！
