Excelをデータベースのように扱う

SELECT

With データベース
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .Properties("Extended Properties") = "Excel 12.0;HDR=YES"
    .Open ブック.FullName
End With

レコードセット.Open Source:="SQL文", ActiveConnection:=データベース

※集計行を表示してるとSELECTに含まれてしまう

SQLのテーブル名

　テーブル

[シート名$テーブルのセル範囲の相対参照アドレス]

"[" & シート.Name & "$" & シート.ListObjects("テーブル名").Range.Address(False, False) & "]"

　Excel以外のデータベース接続の場合

"[Excel 12.0;HDR=YES;Database=" & ブック.FullName & "].[" & シート.Name & "$" & テーブル.Range.Address(False, False) & "]"

　テーブルがシートのA1から始まってる場合

[テーブルのシート名$]

　テーブルのセル範囲を指定

[テーブルのシート名$セル範囲の相対参照アドレス]

SELECT　時に集計行を除外する

SELECT前に集計行を非表示にしておく

テーブル.ShowTotals = False
SQL実行
テーブル.ShowTotals = True