【実務・中級編】【上級プロ向け】外部Excelのページ構成マスタとADO経由で連携しCorelDRAWの全レイヤーを自動生成 – CorelDRAW VBA解析バイブル

データの支配者となれ：ADOとCorelDRAWを同期させ、設計書から描画環境を完全自動構築する極限の設計論

「Excelのセルを一つずつループして、CorelDRAWのページを作っていく」

もし君が、現場の自動化担当者としてそんなコードを書こうとしているなら、今すぐその手を止めてほしい。それは「自動化」ではない。ただの「遅くて壊れやすいマクロ」だ。

エンタープライズレベルの業務、例えば数千枚の図面構成や複雑なレイヤー階層を持つプロダクトデザインの自動化において、求められるのは「操作の再現」ではなく「データの同期」である。設計書（Excel）が「真実のソース（Single Source of Truth）」となり、CorelDRAWはその投影に過ぎない。この設計思想を持たなければ、仕様変更のたびにコードを書き換える地獄に陥ることになる。

本稿では、Excelをデータベースとして扱い、ADO（ActiveX Data Objects）経由で高速にデータを抽出し、CorelDRAWのページ・レイヤー・ガイドラインを原子レベルで一気に構築する、プロフェッショナル向けのアーキテクチャを伝授する。

1. なぜ「Excelオブジェクト操作」は非効率なのか

多くの開発者が犯す最大の過ちは、`Excel.Application` オブジェクトを介してセルに直接アクセスすることだ。

' --- これが「素人」の書き方だ ---
Set xlApp = CreateObject("Excel.Application")
Set wb = xlApp.Workbooks.Open("C:\Master.xlsx")
For i = 2 To lastRow
    pageName = wb.Sheets(1).Cells(i, 1).Value
    ' CorelDRAWの操作...
Next i

この手法には、致命的な欠陥が3つある。

1. I/Oオーバーヘッドの増大: セルにアクセスするたびに、メモリとプロセス間通信（IPC）が発生する。数千行のデータがあれば、それだけで実行時間が指数関数的に増大する。
2. 不安定な実行環境: Excelプロセスがバックグラウンドで残存したり、セルの編集モード中にエラーを吐いたりといった、制御不能な挙動を招きやすい。
3. 結合度の高さ: Excelの「見た目（書式）」にロジックが依存してしまう。

我々が採用すべきは、ADOによるSQLクエリだ。Excelを一つの「リレーショナルデータベース」として扱い、必要なデータを一括でメモリ上のRecordsetにロードする。これにより、処理速度は劇的に向上し、コードは極めてクリーンになる。

2. アーキテクチャ設計：データ構造の定義

自動構築を成功させる鍵は、Excel側の「契約（スキーマ）」を固めることにある。以下のカラムを持つマスタを用意せよ。

この構造により、「どのページに、どのレイヤーがあり、そこにどのガイドがあるか」という階層構造を、平坦なデータから再構築できる。

3. 実装：プロダクション・グレードのコード

以下に、実務でそのまま投入可能な、堅牢なVBAコードを示す。このコードは、単に動くだけではなく、「Undo（やり直し）の管理」「描画更新の抑制」「エラーハンドリング」を完璧に制御している。

Option Explicit

' ===============================================================================
' Module: Module_MasterAutomation
' Description: ADOを用いてExcelマスタからCorelDRAWの構成を自動生成する
' Author: Legendary Chief Architect
' ===============================================================================

Public Sub BuildCorelStructureFromExcel()
    Dim conn As Object             ' ADODB.Connection
    Dim rs As Object               ' ADODB.Recordset
    Dim strConn As String          ' Connection String
    Dim strSQL As String           ' SQL Query
    Dim excelPath As String
    
    ' --- 設定領域 ---
    excelPath = "C:\Path\To\Your\MasterFile.xlsx" ' 実際のマスタパスに変更
    
    ' 1. CorelDRAWのパフォーマンス最適化（重要！）
    ' 描画更新とイベントを停止し、コマンドグループ化することで高速化とUndoを可能にする
    Optimization = True
    EventsEnabled = False
    On Error GoTo ErrorHandler
    
    ' 全操作を一つの「Undo」にまとめるためのグループ化開始
    ActiveDocument.BeginCommandGroup "Auto Build Structure"

    ' 2. ADOによるデータ接続（ExcelをDBとして扱う）
    ' HDR=YES は1行目をフィールド名として扱う指定
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & excelPath & _
              ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1"";"
    
    Set conn = CreateObject("ADODB.Connection")
    conn.Open strConn
    
    ' シート名を指定（例: [Sheet1$]）
    strSQL = "SELECT PageName, LayerName, GuideType, GuidePos FROM [Sheet1$]"
    
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open strSQL, conn, 1, 1 ' adOpenKeyset, adLockReadOnly

    ' 3. データ構築ロジック
    ' ページ、レイヤー、ガイドの階層を、Recordsetの走査によって構築する
    Dim currentPage As Page
    Dim currentLayer As Layer
    Dim lastPageName As String
    Dim lastLayerName As String

    Do While Not rs.EOF
        Dim pName As String: pName = rs.Fields("PageName").Value
        Dim lName As String: lName = rs.Fields("LayerName").Value
        Dim gType As String: gType = rs.Fields("GuideType").Value
        Dim gPos As Double:  gPos = rs.Fields("GuidePos").Value

        ' --- ページ制御 ---
        If pName <> lastPageName Then
            ' 新しいページを作成（既存のページと区別するため、名前を明示的に管理）
            Set currentPage = ActiveDocument.AddPage(Name:=pName)
            lastPageName = pName
            lastLayerName = "" ' ページが変わったらレイヤー管理もリセット
        End If

        ' --- レイヤー制御 ---
        If lName <> lastLayerName Then
            ' ページ内にレイヤーが存在するか確認し、なければ作成
            ' ※既存のレイヤーを再利用する場合は、ここで検索ロジックを入れる
            Set currentLayer = currentPage.CreateLayer(lName)
            lastLayerName = lName
        Else
            ' 既存のレイヤーを特定（ページ内のレイヤーを走査）
            Dim ly As Layer
            For Each ly In currentPage.Layers
                If ly.Name = lName Then
                    Set currentLayer = ly
                    Exit For
                End If
            Next ly
        End If

        ' --- ガイドライン配置 ---
        ' レイヤーをアクティブにしてからガイドを引く
        currentLayer.Activate
        If gType = "Vertical" Then
            currentPage.AddGuide cdrGuideVertical, gPos
        ElseIf gType = "Horizontal" Then
            currentPage.AddGuide cdrGuideHorizontal, gPos
        End If

        rs.MoveNext
    Loop

    ' 4. 後処理
    ActiveDocument.EndCommandGroup ' Undoグループ終了
    MsgBox "構造構築が完了しました。", vbInformation

CleanUp:
    ' リソースの解放と設定の復元
    If Not rs Is Nothing Then If rs.State = 1 Then rs.Close
    Set rs = Nothing
    If Not conn Is Nothing Then If conn.State = 1 Then conn.Close
    Set conn = Nothing
    
    Optimization = False
    EventsEnabled = True
    Application.Refresh
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました:" & vbCrLf & Err.Description, vbCritical
    Resume CleanUp
End Sub

4. アーキテクトの視点：堅牢性を担保する3つの鉄則

このコードを実戦投入するにあたり、以下の「設計の勘所」を忘れないことだ。

① `Optimization` と `CommandGroup` の相関

`Optimization = True` は、CorelDRAWの再描画プロセスをスキップさせる。これは高速化に不可欠だが、一方で「画面が全く動かない」ため、バグに気づきにくい。だからこそ、`BeginCommandGroup` を使うのだ。これにより、万が一構築に失敗しても、`Ctrl+Z` 一回で「構築前の状態」へ完全にロールバックできる。これは、業務自動化において「安全装置」として必須のテクニックである。

② エラーハンドリングの「責任範囲」

`On Error GoTo ErrorHandler` は単なるエラー回避ではない。接続したADOの接続を確実に閉じ、`Optimization = False` に戻して、CorelDRAWの動作を正常な状態へ復帰させる「クリーンアップの責任」を果たすためのものである。これを行わないと、マクロ終了後にCorelDRAWがフリーズしたような挙動を示すことになる。

③ データの「型」への厳格さ

ADO経由で取得するデータは、Excel上では数値に見えても、内部的に `Variant/String` として扱われるケースがある。`gPos = rs.Fields(“GuidePos”).Value` の箇所で型エラーが起きるのを防ぐため、実務では `CDbl()` や `CStr()` を用いて明示的に型変換を行うのが、プロの作法だ。

結びに

自動化の真髄は、コードの行数を増やすことではない。「データとアプリケーションの境界線をいかに明確にし、いかに少ない摩擦で流動させるか」にある。

Excelを単なるメモ帳として使うのをやめ、厳格なデータソースとして扱い、ADOという高速なパイプを通じてCorelDRAWへ流し込む。このアーキテクチャをマスターしたとき、君の作るツールは、単なる便利ツールから「企業の生産基盤」へと進化するだろう。

健闘を祈る。