EXCELのワークシートに対してSQL文で問い合わせを行いデータを取得する方法(VBA) | 技術屋さんの小さな日記帳

EXCELでSQLサンプル EXCELのワークシートに対してSQL文を発行し、結果を取得する方法です。 以下のサンプルコードでは自ワークブック(*.xls,*.xlsm等)に対しADOでEXCELファイルをオープンし、SELECT文を発行しています。 実際に動くEXCEL VBAのサンプルプログラムは一番下にあります。 ここで書いているSQLはANSI-92 SQL相当なので、以下のことが可能です。 サブクエリを含める ORDER BY GROUP BY 複数の表をJOINで結合 １つのシート上の特定範囲を複数のテーブルとして結合 VBAコード例 Public Sub MyADOExcel() Const adOpenKeyset = 1 Const adLockReadOnly = 1 Dim cn As Object Dim rs As Object Dim strSQL As Str