Excel调用Intellicad遇Run-Time Error 429：同代码工作簿表现异常

核心修复代码 #

把原来的单一GetObject调用改成先尝试获取现有实例、失败则创建新实例的逻辑，无论IntelliCAD是否已启动都能正常工作：

Dim icadApp As Object

' 先尝试获取已运行的IntelliCAD实例
On Error Resume Next
Set icadApp = GetObject(, "icad.application")
' 如果获取失败（错误429），则创建新实例
If Err.Number = 429 Then
    Err.Clear
    Set icadApp = CreateObject("icad.application")
End If
On Error GoTo 0

' 检查是否成功连接/启动
If icadApp Is Nothing Then
    MsgBox "无法启动或连接到IntelliCAD，请检查软件安装状态"
    Exit Sub
End If

' 设置IntelliCAD可见（可选，根据需求调整）
icadApp.Visible = True

可能的差异原因及排查点 #

• 位数不匹配：检查两个工作簿打开时的Excel位数（32位/64位），确保和IntelliCAD的位数完全一致。若Excel是64位但IntelliCAD是32位，会导致ActiveX创建失败。
• 引用版本问题：虽然都勾选了IntelliCAD Object Library，但可能两个工作簿引用的库版本不同。建议取消所有工作簿的该引用，改用纯后期绑定（即Dim As Object+CreateObject/GetObject），避免版本依赖冲突。
• 权限差异：尝试用管理员权限打开有问题的Excel工作簿，再运行代码。如果能正常工作，说明是普通权限下无法启动IntelliCAD进程。
• 注册表异常：有问题的环境中IntelliCAD的ProgID注册表项可能损坏。可以尝试重新安装IntelliCAD，或右键以管理员身份运行IntelliCAD一次，修复注册表注册信息。
• Excel信任设置：检查有问题的工作簿是否被Excel信任中心阻止。将该工作簿移动到Excel的「受信任位置」，或在信任中心中启用对应的ActiveX控件权限。

内容的提问来源于stack exchange，提问作者Cathy Slack-Smith