VBAによるSQLiteの実行サンプルです．

目次

  1. 環境
  2. マクロ

環境

  • Windows 10．
  • Excel 2016
  • SQLite ODBC Driverをインストールしておく．

マクロ

Sub SQLite実行サンプル()

'Windowsのみで使用可能です．

Set conn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
Set rec = CreateObject("ADODB.Recordset")

Dim sqlite_drv As String
Dim sqlite_db As String
sqlite_drv = "SQLite3 ODBC Driver"  'インストール済みとする
sqlite_db = "データベースへのフルパス"

conn.Open ConnectionString:="DRIVER=" & sqlite_drv & ";Database=" & sqlite_db
cmd.ActiveConnection = conn

Dim sql As String
sql = "SQL文" '例えば，"SELECT * FROM mytable;"

cmd.CommandText = sql
Set rec = cmd.Execute '挿入やテーブルの作成であれば，単にcmd.Execute．

Do Until rec.EOF
	'書き出しなどの処理
	rec.MoveNext
Loop
Set rec = Nothing

conn.Close

End Sub