Word VBAの「Excel起動」は卒業せよ。ADOでデータ連携を極めるアーキテクチャ設計
Word VBAで「Excelからデータを取得して文書を作成する」というタスクに直面したとき、多くの開発者は迷わず `CreateObject(“Excel.Application”)` を書く。それは、エンジニアとしての怠慢である。
バックグラウンドでExcelプロセスを立ち上げるのは、メモリを食い、不安定で、何より遅い。本稿では、ADO（ActiveX Data Objects）を使い、Excelファイルを単なる「データベース」として直接叩く。このアプローチこそ、数百枚の報告書を一瞬で吐き出す、実務レベルの極限設計だ。
—
なぜADOなのか：プロセス分離という思想
Excelを起動するということは、GUIレンダリングエンジンまで含めた巨大なCOMオブジェクトをメモリにロードすることを意味する。これに対し、ADOはデータアクセスに特化した軽量な層だ。
- メモリ効率: Excelプロセス不要。Wordだけで完結する。
- 堅牢性: Excelがクラッシュしても、Word側のプロセスには干渉しない。
- 速度: インタフェースの描画を一切行わないため、データスキャンが圧倒的に速い。
—
実践：ADOによるExcelデータ抽出・流し込み
以下のコードは、`Employees.xlsx` というデータベースから特定のIDを検索し、Wordのブックマークへ値を流し込む構成だ。
事前準備
1. WordのVBAエディタを開く（Alt + F11）。
2. `ツール` > `参照設定` から [Microsoft ActiveX Data Objects x.x Library] を選択する。
実装コード
Option Explicit
‘ データの抽出と流し込みを行うメインプロシージャ
Public Sub GenerateReportFromExcel(ByVal strFilePath As String, ByVal strTargetID As String)
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strQuery As String
‘ 1. 接続文字列（ACE.OLEDB 12.0を使用）
‘ HDR=YESは1行目がヘッダーであることを示す
Dim strConn As String
strConn = “Provider=Microsoft.ACE.OLEDB.12.0;” & _
“Data Source=” & strFilePath & “;” & _
“Extended Properties=””Excel 12.0 Xml;HDR=YES;IMEX=1″””
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo ErrHandler
‘ 2. 接続とクエリ実行
conn.Open strConn
‘ SQLで直接データを絞り込む（全件読み込みより遥かに高速）
strQuery = “SELECT FROM [Sheet1$] WHERE [ID] = ‘” & strTargetID & “‘”
rs.Open strQuery, conn, adOpenStatic, adLockReadOnly
If Not rs.EOF Then
‘ 3. Wordテンプレートへの流し込み
Call PopulateTemplate(rs)
Else
MsgBox “対象データが見つかりません。”, vbExclamation
End If
‘ 4. クリーンアップ
rs.Close
conn.Close
Exit Sub
ErrHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
If Not conn Is Nothing Then conn.Close
End Sub
Private Sub PopulateTemplate(ByRef rs As ADODB.Recordset)
‘ ブックマークへの代入はRangeオブジェクトを介して行うのが作法
Dim rng As Range
‘ 例: “Name”というブックマークにExcelの”Name”列を反映
If ActiveDocument.Bookmarks.Exists(“Name”) Then
Set rng = ActiveDocument.Bookmarks(“Name”).Range
rng.Text = rs.Fields(“Name”).Value
ActiveDocument.Bookmarks.Add “Name”, rng ‘ テキスト置換で消えたブックマークを再定義
End If
‘ 以下、同様に必要なフィールドを流し込む
End Sub
—
アーキテクトからの注意点：ハマりどころを回避する
1. 「IMEX=1」の魔法
Excelをデータベースとして扱う際、最も多いトラブルが「途中の行からデータがNullになる」現象だ。これはADOが先頭数行を見てデータ型を推測するため。接続文字列に `IMEX=1` を加えることで、「混合データはすべて文字列として扱う」という指示になり、予期せぬ欠損を防ぐことができる。
2. ブックマークの消失問題
Word VBAでブックマークの `.Text` プロパティを直接書き換えると、そのブックマーク自体が消滅することがある。コード例のように、一度 `Range` オブジェクトに退避させ、書き換え後に `Bookmarks.Add` で再定義する。これが中級者と熟練者を分かつ、保守性の境界線だ。
3. SQLインジェクションへの配慮
今回はシンプルさを優先したが、実務で外部入力からIDを受け取る場合は必ず `Replace` 関数等でシングルクォートをエスケープすること。さもなくば、データソースの破壊や意図せぬクエリ実行を許すことになる。
—
まとめ：効率化の先にあるもの
このADOアプローチを導入すれば、Excelを開く時間はゼロになり、Wordの描画性能だけを気にすればよくなる。数千件の帳票作成であっても、この手法なら数秒で完了する。
「動けばいい」コードを書くのは学生だ。「どのプロセスがどうメモリを占有し、どのインターフェースがボトルネックになるか」を計算し、極限まで無駄を削ぎ落とすこと。それが、真の業務自動化エンジニアの矜持である。
次に開発するツールでは、ぜひ「Excel起動」という選択肢をゴミ箱へ捨ててから書き始めてほしい。その先には、まったく別のレベルのパフォーマンスが待っている。
