はじめに：なぜ「ブックを開く」と遅いのか？
Excel VBAで業務効率化を図る際、避けて通れないのが「他ブックからのデータ集計」です。多くの初学者は、まず`Workbooks.Open`メソッドを使って対象ブックを開き、データをコピーして閉じるという処理を書きがちです。
しかし、対象ブックが数十個、あるいは数百個に及ぶ場合、この手法ではPCのメモリを激しく消費し、画面のチラつきや動作の重さに悩まされることになります。また、パスワード保護されたブックや、読み取り専用でしか開けないブックを扱う際、エラーハンドリングに苦労した経験はありませんか？
本記事では、ブックを開かずにデータだけをスマートに抽出する「ADO（ActiveX Data Objects）」を活用したプロフェッショナルな手法を解説します。この技術を習得すれば、あなたのVBAスキルは一段上のレベルに到達します。
ADOとは何か？：Excelをデータベースとして扱う
ADO（ActiveX Data Objects）は、Microsoftが提供するデータアクセス技術です。本来はSQL Serverなどのデータベースに接続するためのものですが、実は「Excelファイル（.xlsx / .xlsm）」もデータベースの一種として扱うことができます。
Excelファイルを「テーブル」と見なし、SQL文（SELECT文）を投げることで、必要なデータだけをピンポイントで抽出するのです。ブックを開くというプロセスそのものをスキップするため、処理速度は劇的に向上します。
準備：参照設定の確認
ADOを利用するために、VBE（Visual Basic Editor）のメニューから「ツール」→「参照設定」を開き、以下のライブラリにチェックを入れてください。
・Microsoft ActiveX Data Objects x.x Library
（x.xは最新のバージョンを選択してください。通常は6.1が推奨されます）
実装コード：ADOを用いたデータ取得のサンプル
以下のコードは、指定したブックの「Sheet1」から、条件に合致するデータをイミディエイトウィンドウに出力する例です。
Sub GetDataFromClosedWorkbook()
Dim cn As Object
Dim rs As Object
Dim strFilePath As String
Dim strSQL As String
‘ 対象ブックのパス
strFilePath = “C:\Data\SourceData.xlsx”
‘ 接続オブジェクトの作成
Set cn = CreateObject(“ADODB.Connection”)
Set rs = CreateObject(“ADODB.Recordset”)
‘ 接続文字列（Excel 2007以降）
cn.Open “Provider=Microsoft.ACE.OLEDB.12.0;” & _
“Data Source=” & strFilePath & “;” & _
“Extended Properties=’Excel 12.0 Xml;HDR=YES;IMEX=1’;”
‘ SQL文の作成（Sheet1のA列からC列までを取得）
strSQL = “SELECT * FROM [Sheet1$]”
‘ データ取得
rs.Open strSQL, cn, 3, 3 ‘ adOpenStatic, adLockOptimistic
‘ 取得したデータをシートに転記
Sheets(1).Range(“A1”).CopyFromRecordset rs
‘ 後処理
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
コードの重要ポイントを解説
1. **接続文字列の秘密**
`Extended Properties=’Excel 12.0 Xml;HDR=YES;IMEX=1’` が非常に重要です。
– `HDR=YES`: 1行目をヘッダー（見出し）として扱う指定です。
– `IMEX=1`: インポートモードの指定。数値と文字列が混在する列でエラーが出ないようにするための「魔法の呪文」です。
2. **SQL文の書き方**
シート名を指定する際は、必ず末尾に「$」を付け、ブラケット「[]」で囲みます。例：`[売上データ$]`。
3. **CopyFromRecordsetメソッド**
ADOで取得したレコードセットを、Excelシート上に一括で貼り付ける強力なメソッドです。ループ処理でセルに一つずつ値を代入するよりも、数十倍高速です。
ADOのメリットと注意点
**メリット：**
・処理が圧倒的に速い。
・画面を更新する必要がないため、ユーザーにストレスを与えない。
・ブックを開く権限がない場合や、バックグラウンドでの処理に適している。
**注意点：**
・SQLの構文（WHERE句など）には制限がある。
・複雑な書式設定（セル色やフォント）は取得できない（純粋な「データ」のみの取得）。
・対象ブックが「開いている状態」だと、接続エラーになる場合がある。
もう一つの手法：Excel 4.0マクロ関数（EXECUTE関数）
ADOが環境的に難しい場合や、さらに簡易的な抽出を行いたい場合は、レガシーな手法ですが「ExecuteExcel4Macro」を使う方法もあります。これは特定のセル範囲を直接参照する関数です。
‘ 特定のセルの値だけを直接読み取る
val = ExecuteExcel4Macro(“‘C:\Data\[Source.xlsx]Sheet1’!R1C1”)
この手法は、大量のデータ抽出には向きませんが、設定値や特定の集計結果だけをサクッと取りたい場合に非常に便利です。
どの手法を選ぶべきか？
実務では、以下のように使い分けるのがプロの判断です。
1. **数千行〜数万行のデータセットを丸ごと取得したい**
→ **ADO**一択です。パフォーマンスが段違いです。
2. **特定のセル数箇所にある値だけを取得したい**
→ **ExecuteExcel4Macro**が軽量でコードも短く済みます。
3. **データの書式やグラフ、オブジェクトも一緒に取得したい**
→ この場合は諦めて`Workbooks.Open`で開くしかありません。ただし、`Application.ScreenUpdating = False`を忘れずに設定しましょう。
さいごに：自動化の先にあるもの
VBAで「ブックを開かずにデータを取得する」技術は、単なる時短テクニックではありません。それは、Excelを「操作する対象」から「データソース」へと見方を変える、エンジニアリング的な視点の転換です。
この技術をマスターすることで、あなたの作成するツールは、まるで専門的なデータベースアプリケーションのような安定感と速度を持つようになります。
まずは、手元の小さなExcelファイルで、上記のADOコードを試してみてください。最初はエラーが出るかもしれませんが、そのエラーこそが成長の糧です。「なぜ接続できないのか？」「なぜデータが取れないのか？」を調べる過程で、あなたは間違いなくVBAの達人へと近づいています。
次回は、「ADOで抽出したデータに対して、さらに複雑な集計（GROUP BY句など）を行う方法」について解説する予定です。ぜひ、日々の業務に活用してください！
