Word VBAの限界を突破せよ：ADOでExcelを「直接」読み込み、爆速化を実現する技術
こんにちは。自動化の現場でWordと格闘し、「なぜWord VBAはこんなに重いのか……」と頭を抱えたことはありませんか？
多くの人がやりがちなのは、WordからExcelアプリケーションを起動し、ブックを開き、セルを一つずつ読み込む手法です。しかし、これは「重い」上に「不安定」です。Excelがバックグラウンドで起動し、メモリを食いつぶし、最悪の場合はプロセスが残ってWordがフリーズする……そんな経験、一度はありますよね。
今日は、Excelを一切開かずに、ADO（ActiveX Data Objects）を使ってデータだけを「吸い出す」という、プロフェッショナルな連携術を伝授します。これを知れば、あなたのマクロは別次元の速度に進化します。
—
なぜ「Excelを開く」のは悪手なのか？
Word VBAで `CreateObject(“Excel.Application”)` を実行するのは、いわば「計算をするためにわざわざ大きなオフィスビルを建てる」ようなものです。
- リソース消費: Excelアプリ自体が重い。
- ライフサイクル管理: エラーで止まった際にExcelプロセスがゾンビ化する。
- 速度: セル単位のアクセスは、通信オーバーヘッドが非常に大きい。
一方で、ADOを使えば、Excelファイルを「データベース」として扱います。必要なデータだけを SQL で抽出するため、Wordは最小限のメモリで済み、処理速度は劇的に向上します。
—
実装の極意：ADOを用いたデータ抽出
以下のコードは、指定したExcelファイルの特定のシートからデータを抽出し、Wordのドキュメントに書き出す最小構成です。
※ 事前に、VBE（Visual Basic Editor）の「ツール」→「参照設定」から 「Microsoft ActiveX Data Objects x.x Library」 にチェックを入れてください。
Sub ImportDataFromExcel_ADO()
Dim cn As Object
Dim rs As Object
Dim strPath As String, strSQL As String
Dim strConn As String
‘ Excelファイルのフルパス
strPath = “C:\Data\MasterData.xlsx”
‘ 接続文字列（HDR=YESは1行目をヘッダーとして扱う設定）
strConn = “Provider=Microsoft.ACE.OLEDB.12.0;” & _
“Data Source=” & strPath & “;” & _
“Extended Properties=””Excel 12.0 Xml;HDR=YES;”””
Set cn = CreateObject(“ADODB.Connection”)
Set rs = CreateObject(“ADODB.Recordset”)
‘ 接続を開く
cn.Open strConn
‘ SQLでデータを指定（シート名を[Sheet1$]のように記述）
strSQL = “SELECT FROM [Sheet1$] WHERE [状態] = ‘完了'”
‘ レコードセットを開く
rs.Open strSQL, cn, 3, 3 ‘ 3,3はAdOpenStatic, AdLockOptimisticの意味
‘ データの読み出し（Wordのカーソル位置に書き出し）
Do Until rs.EOF
Selection.TypeText Text:=rs.Fields(“顧客名”).Value & vbCrLf
rs.MoveNext
Loop
‘ 後始末（ここが一番重要！）
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
MsgBox “データの抽出が完了しました。”
End Sub
—
コードのポイント：ここを理解すればマスター！
1. 接続文字列（Connection String）:
Excelをデータベースに見立てるための「鍵」です。`Extended Properties=”Excel 12.0 Xml;HDR=YES;”` の部分が重要で、HDR=YESにすることで、1行目を列名として認識させることができます。
2. SQLの力:
`SELECT FROM [Sheet1$]`。これだけで、Excelのシート全体がテーブルになります。Excel上の複雑なフィルタ操作をVBAで書く必要はもうありません。SQL一発です。
3. オブジェクトの解放:
`Set rs = Nothing`。メモリ管理において、これを忘れるのはエンジニアとして「禁じ手」です。特にWordと連携する場合、オブジェクトが残るとWordの動作が不安定になります。
—
陥りやすいエラーと対策
- 「プロバイダーが見つかりません」:
お使いのOfficeが32bitか64bitかによって、`Microsoft.ACE.OLEDB.12.0` が正しくインストールされていない場合があります。このエラーが出たら、Access Database Engineのドライバを確認してください。
- 「ファイルが開かれています」:
ADOはファイルを直接開くため、Excelでそのファイルを開いていると接続できないことがあります。読み込み専用で開く工夫をするか、閉じてから実行しましょう。
- シート名には「$」が必要:
SQLでシート名を指定する際は、必ず末尾に `$` をつけ、括弧 `[]` で囲むのがルールです。これがないと「オブジェクトが見つかりません」と怒られます。
—
最後に：自動化の先にある世界
今回紹介したADOによるデータ抽出は、Word VBAにおける「脱・初心者」の第一歩です。ここをクリアすれば、次はWordのテーブル構造を操作する `Range` オブジェクトの深い理解や、XML形式によるWord文書の直接操作へとステップアップできます。
Word VBAは決して「遅くて使いにくい」ツールではありません。エンジニアがその作法を理解していないだけなのです。
さあ、Excelを背後に追いやり、スマートな自動化ライフを楽しみましょう。何か詰まったら、いつでも戻ってきてくださいね。応援しています！
