WordからExcelを「開かずに」叩く：ADOによる爆速データ抽出の極意
Word VBAでExcelのデータを読み込む際、多くのエンジニアが犯す致命的なミスがある。それは、`Excel.Application`オブジェクトを生成し、`Workbooks.Open`でファイルを開こうとすることだ。
いいか、心に刻んでほしい。WordからExcelを「開く」行為は、極めて高コストなリソース消費だ。 UIの描画、アドインの読み込み、計算エンジンの初期化……これら無駄なオーバーヘッドを抱えて、軽快な自動化ツールなど作れるはずがない。
真のプロフェッショナルは、ADO (ActiveX Data Objects) を使う。Excelをデータベースとして扱い、SQLで必要なデータだけを抜き出す。これが、Word VBAにおける「正解」だ。
—
なぜADOによる接続が最強なのか？
1. メモリ消費の最小化: Excelのプロセスを起動しない。バックグラウンドでドライバがデータを直接ストリームとして読み込むため、数MBのファイルでも瞬時に処理が終わる。
2. 型と構造の厳格化: `Range`を一つずつループで回すような「素人実装」は卒業だ。SQL（`SELECT`文）を使えば、必要な行と列だけを射影できる。
3. 堅牢性: ファイルが開かれているか、表示されているかといったUIの状態に左右されない。
—
爆速実装コード：ADOによるデータ抽出
このコードは、指定したExcelファイルの特定のシートからデータを抽出し、Wordのドキュメントへ書き出すテンプレートだ。`Microsoft ActiveX Data Objects x.x Library`を参照設定に追加してから使用してほしい。
‘ 必要な参照設定: Microsoft ActiveX Data Objects 6.1 Library
Sub ExtractDataFromExcelWithADO()
Dim conn As Object
Dim rs As Object
Dim strConn As String
Dim strSQL As String
Dim filePath As String
‘ 抽出対象のExcelファイルパス
filePath = “C:\Data\MasterData.xlsx”
‘ 接続文字列（HDR=Yes は1行目をヘッダーとして扱う意）
strConn = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & filePath & _
“;Extended Properties=””Excel 12.0 Xml;HDR=YES;IMEX=1″”;”
‘ SQL文（Sheet1という名前のシートから、特定のカラムを抽出）
strSQL = “SELECT [名前], [部署], [ID] FROM [Sheet1$] WHERE [ステータス] = ‘有効'”
Set conn = CreateObject(“ADODB.Connection”)
Set rs = CreateObject(“ADODB.Recordset”)
On Error GoTo ErrorHandler
‘ 接続と実行
conn.Open strConn
rs.Open strSQL, conn
‘ データの処理（Wordへの展開）
If Not rs.EOF Then
Do While Not rs.EOF
‘ Wordの現在のカーソル位置に挿入
Selection.TypeText Text:=rs.Fields(“名前”).Value & vbTab & rs.Fields(“部署”).Value & vbCr
rs.MoveNext
Loop
End If
‘ 後処理
rs.Close
conn.Close
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
If Not rs Is Nothing Then rs.Close
If Not conn Is Nothing Then conn.Close
End Sub
—
現場で生き残るための「鉄則」
1. `IMEX=1` の魔力
Excelのドライバは、列内のデータの混在（数値と文字列など）を検知すると、型が不一致とみなして値を`NULL`で返してくることがある。接続文字列に `IMEX=1`（混合モード）を含めることで、ドライバに「すべて文字列として読み込め」と強制できる。これで「データが消える」という悲劇を防げる。
2. SQLの限界を知る
ADOは強力だが、Excelの複雑な結合セルや、数式で動的に変化するレイアウトには弱い。ADOで抽出するのは「DB的に整列されたデータ」に限るべきだ。もしファイルがぐちゃぐちゃなレイアウトなら、それは抽出ツールを作る前に、ファイル側の設計を直すべきだ。
3. リソースの確実な解放
`Set rs = Nothing` を忘れるな。VBAのガベージコレクションを信用してはいけない。特にWordのように長く起動し続けるアプリでは、メモリリークはアプリケーションのクラッシュに直結する。
—
最後に：エンジニアとしての矜持
VBAは「初心者向けの言語」と揶揄されることがあるが、それは使い手の習熟度が低いだけの話だ。メモリ配置、プロセスのライフサイクル、そしてデータ構造の抽象化。これらを意識して書かれたコードは、C#やPythonと何ら遜色ない価値を現場にもたらす。
「とりあえず動くコード」を書く段階は終わりだ。これからは「誰が読んでも保守でき、かつシステムに負担をかけないコード」を書くことに魂を込めてほしい。
君が書くその一行が、誰かの業務時間を1時間減らす。その責任と快感を知る者だけが、真の自動化エンジニアと名乗れるのだ。
