Sqlite3 Excel マクロODBC64

Excel VBAでSQLiteのデータを参照する – Qiita　より

Sub accessSQLite()
    Dim adoConnect As New ADODB.Connection '接続オブジェクト
    Dim adoRecord As New ADODB.recordSet 'レコードセット

    Dim connectionString As String '接続文字列
    connectionString = "DRIVER=SQLite3 ODBC Driver;Database=C:\Users\konitech\titanic.db"

    adoConnect.Open connectionString '接続オープン

    Dim sSQL As String 'SQL
    sSQL = "SELECT * FROM titanic WHERE Sex='male' AND Age>=40"

    adoRecord.CursorLocation = adUseClient 'クライアントカーソルを設定
    adoRecord.Open sSQL, adoConnect '読み取り専用でSQLを取得

    Debug.Print adoRecord.RecordCount 'レコード数を出力


    '取得したレコード(行)を順に取り出す
    Do While Not adoRecord.EOF ' 最終行までループ
        Debug.Print adoRecord("Name") 'Name列の値を出力
        adoRecord.MoveNext '次の行へ移動
    Loop

    'クリーンアップ処理
    adoRecord.Close
    adoConnect.Close

    Set adoRecord = Nothing
    Set adoConnect = Nothing

End Sub