Excel宏运行报错'-2147417848(80010108)'：求排查部分同事遇此问题原因

运行Excel宏时触发错误：Run-time error '-2147417848 (80010108)': Automation error, The object Invoked has disconnect from its clients

团队全员使用Excel 2307（Build 16626.20170）版本，但仅部分同事运行该宏时出错，其余人无异常；且其他宏均可正常运行，重装Excel后问题仍未解决。

错误触发在以下代码的标记行：

Application.ScreenUpdating = False
Rows("1:1").Select
Selection.Delete Shift:=xlUp
With Selection.Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -4.99893185216834E-02
    .PatternTintAndShade = 0
End With
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Style = "Comma"
Range("B1").Select
ActiveCell.FormulaR1C1 = "AN-Type"
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],"" ("",RC[2],"")"")"
Range("D2").Select
Selection.Copy
Columns("D:D").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
' 错误触发行
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

该宏功能为：添加多个工作表、筛选数据并移动至对应工作表，同时执行多项格式设置操作。疑问：是否是出错同事的Excel安装设置导致该错误？

1. 错误核心原因 #

这个错误本质是代码依赖的Selection对象在特定环境下失去了引用——频繁使用Select和Selection的写法，会让VBA代码高度依赖Excel的UI对象状态，一旦用户环境中UI线程与VBA线程出现异步（比如卡顿、加载项干扰），就会触发对象断开的报错。

2. 仅部分用户出错的可能原因 #

确实可能和这部分用户的Excel环境/设置有关：

• 硬件加速冲突：开启Excel硬件加速后，UI渲染线程可能与VBA执行线程不同步，导致Selection对象引用失效
• 第三方加载项干扰：他们的Excel安装了第三方加载项（如PDF转换、报表类插件），后台运行的加载项会干扰VBA对UI对象的调用
• 信任中心残留设置：重装Excel后，信任中心的宏权限、ActiveX控件限制可能未完全重置，导致对象操作权限异常

3. 彻底解决：重构代码，抛弃Select/Selection #

依赖Select和Selection是VBA代码的常见陋习，直接操作Range对象既能避免对象引用错误，还能提升代码运行效率。重构后的关键代码如下：

Application.ScreenUpdating = False

' 删除第1行并设置格式
Rows(1).Delete Shift:=xlUp
With Rows(1).Interior
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -4.99893185216834E-02
    .PatternTintAndShade = 0
End With

' 设置A列格式
Columns("A").Style = "Comma"

' 设置B1单元格内容
Range("B1").FormulaR1C1 = "AN-Type"

' 插入D列
Columns("D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

' 设置D2公式并填充整列
Range("D2").FormulaR1C1 = "=CONCATENATE(RC[1],"" ("",RC[2],"")"")"
Range("D2").AutoFill Destination:=Columns("D"), Type:=xlFillDefault

' 直接将D列公式转为值，无需复制粘贴
Columns("D").Value = Columns("D").Value

Application.ScreenUpdating = True

4. 环境排查辅助步骤 #

如果重构代码后仍有问题，可让出错用户执行以下操作：

• 关闭硬件加速：文件>选项>高级>显示>取消勾选“禁用硬件图形加速”
• 禁用第三方加载项：文件>选项>加载项>转到>取消所有非Microsoft加载项的勾选，重启Excel测试
• 重置信任中心：文件>选项>信任中心>信任中心设置>恢复默认设置

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