需启用“打开文件时刷新”选项:一、通过【数据】→【连接属性】→【用法】选项卡勾选;二、在【查询和连接】窗格右键连接→【属性】→勾选刷新并启用后台刷新;三、用VBA在Workbook_Open事件中设置RefreshOnOpen=True。

如果您在Excel中设置了外部数据连接,但每次打开工作簿时数据未自动更新,则可能是因为连接属性中未启用“打开文件时刷新”选项。以下是实现该功能的具体步骤:
一、通过数据连接对话框启用自动刷新
此方法适用于已建立的数据连接,通过“编辑链接”或“连接属性”界面直接配置刷新行为,确保工作簿打开时自动获取最新数据。
1、在Excel工作表中,点击任意已导入外部数据的单元格区域。
2、切换到【数据】选项卡,找到并点击【连接】组中的【连接属性】按钮。
3、在弹出的“连接属性”对话框中,切换至【用法】选项卡。
4、勾选打开文件时刷新此连接复选框。
5、点击【确定】保存设置。
二、通过查询和连接窗格配置刷新选项
当工作簿包含多个连接或使用Power Query导入数据时,可通过“查询和连接”窗格统一管理并启用自动刷新,避免遗漏单个连接设置。
1、在【数据】选项卡中,点击【查询和连接】按钮,打开右侧窗格。
2、在窗格中右键单击目标连接名称(如“Query - Sheet1”或对应连接名)。
3、选择【属性】,打开连接属性窗口。
4、在【刷新控制】区域,勾选打开文件时刷新数据。
5、确认勾选【启用后台刷新】以避免打开时界面卡顿。
6、点击【确定】完成配置。
三、通过VBA代码强制启用自动刷新
若需批量处理多个连接,或标准界面中选项不可用(如部分ODBC连接),可使用VBA脚本遍历所有连接并统一设置自动刷新属性。
1、按Alt + F11打开Visual Basic编辑器。
2、在左侧工程资源管理器中,双击当前工作簿对应的ThisWorkbook对象。
3、在代码窗口中输入以下语句:
Private Sub Workbook_Open()
Dim conn As WorkbookConnection
For Each conn In ThisWorkbook.Connections
conn.ODBCConnection.BackgroundQuery = True
conn.ODBCConnection.RefreshOnOpen = True
Next conn
End Sub
4、关闭编辑器,保存工作簿为启用宏的格式(.xlsm)。
5、重新打开文件时,所有ODBC连接将按代码设定自动启用打开时刷新。










