VBAでSQLを操るメリット：なぜ今、改めてSQLなのか
Excel VBAを日常的に利用しているエンジニアや業務改善担当者の多くは、大量のデータ処理において「Forループによるセル参照」の限界に直面したことがあるはずです。数万行のデータに対して行単位でIF文や検索処理を繰り返せば、処理時間は数分から数十分へと膨れ上がり、ユーザーは「応答なし」の画面を眺めることになります。
ここで登場するのが「SQL（Structured Query Language）」です。Excel VBAからADO（ActiveX Data Objects）を介してSQLを投げかけることで、Excel自体を「リレーショナルデータベース」として扱い、膨大なデータから一瞬で必要な情報を抽出、集計、加工することが可能になります。本稿では、VBAでSQLを使いこなすための基礎から、実務で即座に応用できるテクニックまでを解説します。
VBAでSQLを利用するための準備：ADOの参照設定
VBAでSQLを実行するには、外部データベースやExcelファイルそのものをデータベースとして操作するためのライブラリ「Microsoft ActiveX Data Objects x.x Library」を有効にする必要があります。
1. VBE（Visual Basic Editor）を開く。
2. メニューの「ツール」から「参照設定」を選択。
3. リストから「Microsoft ActiveX Data Objects 6.1 Library」（バージョンは環境により異なる場合がありますが、6.1が推奨）にチェックを入れてOKを押す。
これだけで、SQLを実行するための準備は完了です。
SQL実行の基本プロセス：接続、クエリ、結果の取得
VBAでSQLを実行する際の基本ステップは、以下の4つに集約されます。
1. 接続先（Connection）の定義：どのデータを対象にするか。
2. SQL文の作成：何をしたいかを文字列で記述。
3. レコードセット（Recordset）への格納：SQLの結果をメモリ上に保持。
4. データの出力：Rangeオブジェクト等への転送。
これをコードに落とし込むと非常にシンプルですが、強力なパワーを発揮します。
実務で使えるサンプルコード：Excelシートをテーブルとして扱う
以下のコードは、アクティブなExcelファイルの「Sheet1」にあるデータをSQLで検索し、「Sheet2」に結果を書き出す例です。
Sub ExecuteSQLInVBA()
Dim cn As Object
Dim rs As Object
Dim strSQL As String
Dim strFilePath As String
Dim strConn As String
' 1. 接続情報の定義
strFilePath = ThisWorkbook.FullName
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & strFilePath & ";" & _
"Extended Properties=""Excel 12.0 Xml;HDR=YES;"""
' 2. ADOオブジェクトの生成
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
' 3. 接続を開く
cn.Open strConn
' 4. SQL文の作成（Sheet1のA列からC列を対象に、条件を指定）
strSQL = "SELECT * FROM [Sheet1$] WHERE [売上金額] > 10000"
' 5. クエリの実行
rs.Open strSQL, cn, 3, 3
' 6. 結果をSheet2のA1セルに貼り付け
If Not rs.EOF Then
Sheets("Sheet2").Range("A1").CopyFromRecordset rs
Else
MsgBox "対象データが見つかりませんでした。"
End If
' 7. 後処理
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
詳細解説：SQL文の柔軟な組み立て
上記のサンプルコードにある「strSQL」の文字列こそが、SQLの心臓部です。実務では静的なクエリだけでなく、変数を用いた動的なクエリが必要になります。
例えば、ユーザーが指定した期間の売上だけを抽出する場合、VBA側で文字列を連結させます。
strSQL = “SELECT * FROM [Sheet1$] WHERE [日付] >= #” & Format(StartDate, “yyyy/mm/dd”) & “#”
このように、VBAの変数とSQLの構文を組み合わせることで、フィルタリング処理を自由自在に操ることができます。
また、SQLの強力な機能である「GROUP BY（グループ化）」を活用すれば、ピボットテーブルを使わずとも、特定のカテゴリごとの合計値や平均値を瞬時に算出可能です。
例：SELECT [担当者], SUM([売上金額]) FROM [Sheet1$] GROUP BY [担当者]
実務アドバイス：パフォーマンスとエラーハンドリングの極意
VBAでSQLを扱う際、初心者が陥りやすい罠が「データ型の不一致」と「接続の解放漏れ」です。
まず、データベースとしてExcelを扱う場合、各列のデータ型は「最も頻出する型」に自動判定されます。例えば、数値列の中に一つでも文字列が含まれていると、SQLの演算時にエラーが発生することがあります。これを回避するため、事前にソースデータのクリーニング（不要な文字列の削除や型統一）を行っておくことが鉄則です。
次に、接続オブジェクトの解放は必ず`Finally`的な処理（エラーハンドラ内でのClose処理）を含めて記述してください。接続が残ったままだと、Excelファイルがロックされ、二度と開けなくなるトラブルに繋がります。
また、SELECT文だけでなく、UPDATE文やDELETE文もSQLなら実行可能です。しかし、SQLによる変更は「元に戻す（Undo）」ができません。必ず対象のバックアップを取るか、慎重にテスト環境で実行することを強く推奨します。
まとめ：VBA×SQLでExcel業務を「データベース化」せよ
VBA単体でのループ処理に頼る時代は終わりました。SQLを習得することは、単なるプログラミングスキルの向上ではありません。「データの本質を見極め、最短距離で結果を導き出す」という業務改善の思考法そのものを手に入れることです。
最初はADOの記述や接続文字列に戸惑うかもしれません。しかし、一度SQLの便利さを体感すれば、二度と数万行のループ処理には戻れないはずです。本稿で紹介したサンプルをベースに、まずは自身の業務で頻繁に行っている「検索」「集計」からSQL化を試みてください。
VBAとSQL、この二つの武器を組み合わせた時、あなたのExcel業務は単なる作業から、高度なデータ分析へと進化を遂げるでしょう。プロフェッショナルなVBAエンジニアへの道は、このSQLの理解から始まります。ぜひ、日々の業務で圧倒的な処理速度を体感してください。
