Excel VBA中SQL查询Recordset无法刷新，修改数据后仍返回旧值

Hey Francisco, this is a super common pitfall when running SQL queries against Excel tables—let’s walk through the most likely causes and fixes step by step:

1. 禁用OLE DB驱动缓存（最核心解决方法） #

Excel的OLE DB驱动默认会启用数据缓存来提升性能，但这恰恰是修改表格后返回旧数据的元凶。你只需要在连接字符串中添加OLE DB Services=-2参数，强制驱动每次查询都重新读取最新的工作表数据：

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
' 关键：添加OLE DB Services=-2关闭驱动级缓存
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;OLE DB Services=-2"""
conn.Open

2. 彻底清理连接与Recordset资源 #

如果没有正确关闭并销毁Connection和Recordset对象，Excel会残留旧的连接实例，导致复用缓存数据。务必在每次查询结束后执行清理：

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")

' 这里放你的查询执行逻辑...

' 必须执行的清理步骤
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

不要跳过这一步——哪怕你觉得“下次会重新创建对象”，残留的实例大概率就是缓存的源头。

3. 强制刷新Excel内部缓存 #

有时候Excel本身会缓存外部数据结果，你可以在查询前手动触发全局刷新，或者直接刷新目标表格：

' 刷新工作簿所有外部连接，等待刷新完成再执行查询
ThisWorkbook.RefreshAll
DoEvents

' 或者直接刷新Table1的连接（如果是基于查询表的表格）
ThisWorkbook.Worksheets("你的工作表名").ListObjects("Table1").QueryTable.Refresh BackgroundQuery:=False

4. 验证SQL查询的指向准确性 #

偶尔会出现表格名称冲突（比如存在隐藏的旧表格），或者查询用了静态单元格范围（比如SELECT * FROM [Sheet1$A1:C100]）而非动态表格名Table1。确保你的SQL语句直接引用表格对象：

Dim sql As String
sql = "SELECT * FROM [Table1]" ' 用表格的正式名称，而非固定单元格范围

快速验证缓存问题的小技巧 #

为了快速确认是不是缓存导致的，可以在查询里加一个动态标记，强制查询重新执行：

' 添加一个永远为真的动态条件，让驱动认为这是新查询
sql = "SELECT * FROM [Table1] WHERE 1=1 AND '" & Now() & "' <> ''"

如果这样能返回新数据，那百分百是缓存问题，回到步骤1和2就能彻底解决。

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