使用GetObject打开Excel工作簿时DisplayAlerts无法禁用更新链接告警怎么办

问题根因 #

• GetObject 没有内置的链接更新控制参数，其打开文件时的链接提示逻辑由Excel全局配置控制，不受Application.DisplayAlerts = False影响
• 你之前设置的Application.EnableEvents仅能控制宏事件触发，和链接更新提示属于独立的控制逻辑

可行方案 #

临时修改Excel全局的链接更新相关配置，打开文件完成后立即还原原始配置即可，全程不会破坏GetObject隐藏打开、无界面闪烁的优势。

代码示例 #

Dim originalAskToUpdate As Boolean
Dim originalUpdateLinks As XlUpdateLinks
Dim Wb As Workbook

' 保存原始配置
originalAskToUpdate = Application.AskToUpdateLinks
originalUpdateLinks = Application.UpdateLinks

' 临时关闭链接更新提示、禁止自动更新链接
Application.AskToUpdateLinks = False
Application.UpdateLinks = xlUpdateLinksNever

' 错误捕获：确保即使打开失败也能还原配置
On Error GoTo RestoreSetting
Set Wb = GetObject("C:\MyFile.xlsx")
On Error GoTo 0

' ----------------------
' 此处写你的业务逻辑
' ----------------------

RestoreSetting:
' 还原原始配置
Application.AskToUpdateLinks = originalAskToUpdate
Application.UpdateLinks = originalUpdateLinks

' 抛出可能的错误
If Err.Number <> 0 Then Err.Raise Err.Number

补充说明 #

• 如果你是在独立的后台隐藏Excel实例中执行代码，修改该实例的配置不会影响用户前台正在使用的Excel的默认设置，安全性更高
• 该方案不会改变GetObject的加载逻辑，依然保持无闪烁、隐藏打开的特性

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