无需安装驱动，如何从Windows系统的Excel访问SQLite数据库？

针对你提到的用户无管理员权限、没法安装ODBC驱动的场景，确实有几个实用的办法，不用折腾驱动安装：

1. 用Excel内置的Power Query（推荐） #

现在Excel 2016及以后版本（包括365）自带的Power Query Editor已经原生支持SQLite连接，完全不需要额外驱动，步骤也很简单：

• 打开Excel，切换到「数据」选项卡
• 点击「获取数据」→「从数据库」→「从SQLite数据库」
• 在弹出的窗口里选择你生成的.db文件，点击确定
• 接下来就能在Power Query编辑器里预览数据，还可以直接写SQL语句筛选/转换数据，最后加载到工作表里就行

这个方法最省心，用户只要会点基础的Excel操作就能搞定，而且是动态连接，数据更新后重新刷新就行。

2. 用VBA调用SQLite的动态链接库（适合需要自定义操作的场景） #

如果用户需要更灵活的操作（比如自动执行SQL、批量更新），可以用VBA直接调用sqlite3.dll——这个dll不需要安装，你可以把它和.db文件一起打包发给用户，放到用户有权限的目录（比如「我的文档」）就行。

给你个简单的示例代码（注意要匹配Excel的位数，32位Excel用32位dll，64位同理）：

' 声明SQLite的API函数
#If VBA7 Then
    Private Declare PtrSafe Function sqlite3_open Lib "sqlite3.dll" (ByVal zFilename As String, ByRef ppDb As LongPtr) As Long
    Private Declare PtrSafe Function sqlite3_exec Lib "sqlite3.dll" (ByVal db As LongPtr, ByVal zSql As String, ByVal callback As LongPtr, ByVal arg As LongPtr, ByRef zErrMsg As String) As Long
    Private Declare PtrSafe Function sqlite3_close Lib "sqlite3.dll" (ByVal db As LongPtr) As Long
#Else
    Private Declare Function sqlite3_open Lib "sqlite3.dll" (ByVal zFilename As String, ByRef ppDb As Long) As Long
    Private Declare Function sqlite3_exec Lib "sqlite3.dll" (ByVal db As Long, ByVal zSql As String, ByVal callback As Long, ByVal arg As Long, ByRef zErrMsg As String) As Long
    Private Declare Function sqlite3_close Lib "sqlite3.dll" (ByVal db As Long) As Long
#End If

' 回调函数，用于处理查询结果
Private Function SQLiteCallback(ByVal arg As LongPtr, ByVal argc As Long, ByVal argv As LongPtr, ByVal azColName As LongPtr) As Long
    Dim i As Integer
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 写入列名（第一行）
    If arg = 0 Then
        For i = 0 To argc - 1
            ws.Cells(1, i + 1).Value = PeekString(CLng(VarPtrArray(azColName) + i * 4))
        Next i
        arg = 1
    End If
    
    ' 写入数据行
    For i = 0 To argc - 1
        ws.Cells(arg + 1, i + 1).Value = PeekString(CLng(VarPtrArray(argv) + i * 4))
    Next i
    arg = arg + 1
    SQLiteCallback = 0
End Function

' 辅助函数，读取字符串
Private Function PeekString(ByVal ptr As Long) As String
    Dim s As String
    s = Space$(255)
    Call lstrcpy(s, ptr)
    PeekString = Left$(s, InStr(s, Chr$(0)) - 1)
End Function

' 主函数：连接SQLite并查询
Sub QuerySQLite()
    Dim db As LongPtr
    Dim result As Long
    Dim errMsg As String
    Dim dbPath As String
    
    ' 这里替换成你的.db文件路径，比如用户的文档目录
    dbPath = Environ("USERPROFILE") & "\Documents\your_database.db"
    
    ' 打开数据库
    result = sqlite3_open(dbPath, db)
    If result <> 0 Then
        MsgBox "无法打开数据库"
        Exit Sub
    End If
    
    ' 执行SQL查询
    result = sqlite3_exec(db, "SELECT * FROM your_table", AddressOf SQLiteCallback, 0, errMsg)
    If result <> 0 Then
        MsgBox "查询出错: " & errMsg
    End If
    
    ' 关闭数据库
    sqlite3_close db
End Sub

需要注意：用户打开Excel文件时要启用宏，而且你要确保sqlite3.dll的路径正确（可以把dll和Excel文件放同目录，然后在代码里用ThisWorkbook.Path & "\sqlite3.dll"）。

3. 导出为CSV（静态方案） #

如果用户只需要查看静态数据，不需要实时查询，你可以提前把SQLite的数据导出为CSV文件，用户直接用Excel打开就行。这个方法最简单，但缺点是数据更新后需要重新导出，没法动态查询。

额外注意事项 #

• Power Query的兼容性：如果用户用的是Excel 2013及更早版本，可能需要单独安装Power Query插件，但这个插件安装不需要管理员权限（可以装到用户个人目录）。
• 位数匹配：不管是Power Query还是VBA调用dll，都要确保Excel的位数（32/64位）和对应的组件匹配，否则会报错。

内容的提问来源于stack exchange，提问作者LittleFish