如何用VB.NET将Access数据库表导入Excel？遇Refresh报错

一、QueryTables.Add的连接机制说明 #

QueryTables.Add 方法的第一个参数需要完整的数据源连接字符串或合法的数据源路径（比如文本文件、网页）。对于OLEDB类型的数据源（如Access），必须传入标准的OLEDB连接字符串，而非简单的OLEDB;+文件路径。

它的核心逻辑是：通过连接字符串建立与目标数据源的会话，执行第三个参数指定的SQL查询，将查询结果批量填充到第二个参数指定的Excel单元格起始位置，并维护查询表的刷新、格式等配置。

二、你的代码错误原因及修正 #

你代码的核心问题是连接字符串不合法，导致无法建立与Access数据库的有效连接。针对.accdb格式的Access文件，正确的OLEDB连接字符串需要包含Provider信息、数据库路径等关键参数。

修正后的代码 #

Dim ws As Worksheet
Dim connString As String
Dim sqlQuery As String

ws = Globals.ThisAddIn.Application.ActiveSheet
' 构建正确的OLEDB连接字符串
connString = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:/Downloads/db.accdb;"
sqlQuery = "SELECT * FROM [TableName]"

With ws.QueryTables.Add(connString, ws.Range("A1"), sqlQuery)
    .Name = "Source Data Table"
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = XlCellInsertionMode.xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    Try
        .Refresh(False)
    Catch ex As Exception
        ' 捕获并输出错误信息，方便排查
        MsgBox("导入失败：" & ex.Message)
    End Try
End With

额外注意事项 #

• 确保已安装Microsoft Access Database Engine 2016 Redistributable（或对应版本的ACE驱动），32/64位版本需与你的VB.NET项目编译平台一致，否则会出现驱动找不到的错误。
• 如果数据库有密码，需要在连接字符串中添加;Jet OLEDB:Database Password=你的密码;。

三、更推荐的替代方案：使用ListObject #

在Excel 2007及以后的版本中，ListObject（Excel表格）的查询功能更稳定且功能更丰富，推荐使用该方式替代传统的QueryTables：

Dim ws As Worksheet
Dim connString As String
Dim sqlQuery As String
Dim listObj As ListObject

ws = Globals.ThisAddIn.Application.ActiveSheet
connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:/Downloads/db.accdb;"
sqlQuery = "SELECT * FROM [TableName]"

' 创建ListObject并绑定数据源
listObj = ws.ListObjects.Add( _
    SourceType:=XlListObjectSourceType.xlSrcExternal, _
    Source:=New OleDb.OleDbConnection(connString), _
    Destination:=ws.Range("A1") _
)
listObj.QueryTable.CommandText = sqlQuery
listObj.QueryTable.RefreshStyle = XlCellInsertionMode.xlInsertDeleteCells
listObj.QueryTable.AdjustColumnWidth = True
listObj.Name = "Source Data Table"

Try
    listObj.QueryTable.Refresh(False)
Catch ex As Exception
    MsgBox("导入失败：" & ex.Message)
End Try

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