让 ExcelVBA 连接 sqlite3 数据库

今天给大家分享的是怎么用 ExcelVBA 连接 sqlite3 数据库。

一、环境

win10 操作系统

microsoft office 2010 (32位)

二、官网下载 sqlite3 ODBC 驱动

注意：位数要与Excel一致。

三、配置ODBC

打开ODBC数据源管理程序（32位），选择系统DSN，点击添加，选择 sqlite3 ODBC Driver，

点击完成

点击OK

点击确定。

四、打开Excel工作簿，编写VBA代码

1、连接sqlite3 数据库

Sub ConnectSqlite3_Click()

Dim cn As New ADODB.Connection '引用ADO

Dim cnStr As String

Dim path As String

path = "E:/mydb/expenses.db"

' 设置连接字符串

' cnStr = "DSN=SQLite3 Datasource;DATABASE=" & path & ""

cnStr = "Driver={SQLite3 ODBC Driver};Database=" & path & ""

' 打开连接

cn.Open cnStr

MsgBox ("OK")

'关闭连接

cn.Close

'释放资源

Set cn = Nothing

End Sub

2、运行代码

至此，数据库连接成功，下一步就可以在 Excel 中愉快地进行增删改查了。