Excel-DB/ODBC - パソコン忘備録

Sub test()
 
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
 
'Connection生成と接続文字列の設定
Set con = New ADODB.Connection
con.ConnectionString = "DRIVER=SQLite3 ODBC Driver;Database=C:\test.db"
 
'sqliteに接続
con.Open
 
'select文発行
Set rs = con.Execute("SELECT id,name FROM user;")
 
 
'結果をセルに書き込む
rs.MoveFirst
i = 1
Do Until rs.EOF = True
    Cells(i, 1).Value = rs.Fields(0).Value
    Cells(i, 2).Value = rs.Fields(1).Value
    rs.MoveNext
    i = i + 1
Loop
 
'接続を閉じる
con.Close
Set con = Nothing
 
 
End Sub 
 

[参考元]
Sqliteに接続＠Excelマクロ・VBAのお勉強
< http://www.cocoaliz.com/excelVBA/index/61/ >