VBA CreateObject上的运行时错误8000fff

作为上一篇关于我的VBA/Rhinoscript的文章的后续内容，当我从最初在Excel 2007中创建的Excel电子表格中执行以下VBA代码时，我遇到了一个非常奇怪的“灾难性”错误，我现在正试图在Excel 2016中运行该代码：

Set Rhino = CreateObject("Rhino4.Interface")
If (Err.Number <> 0) Then
    'MsgBox ("Failed to create Rhino4 object")
    Set Rhino = CreateObject("Rhino4.Application")
    If (Err.Number <> 0) Then
        MsgBox "Failed to create Rhino4 object: " & Err.Number
        Exit Sub
    End If
End If

Set Rhino=CreateObject（“Rhino4.Interface”）
如果（错误编号0），则
'MsgBox（“未能创建Rhino4对象”）
设置Rhino=CreateObject（“Rhino4.Application”）
如果（错误编号0），则
MsgBox“未能创建Rhino4对象：”&错误号
出口接头
如果结束
如果结束

CreateObject

失败，出现了

运行时错误8000fff自动化错误，灾难性失败。

在检查周围时，人们模糊地提到在Excel版本之间迁移是一个问题，并在“工具”->“引用”下查找，但我不确定到底应该查找什么。有人知道吗

谢谢

---

Matt

我可以使用Excel 2010和Rhino 4.0 SR9使您的代码在这里工作

如果您没有运行Rhino 4.0 SR9，我建议您下载并安装此服务版本：

我猜Rhino的COM组件没有进行属性注册（在Windows注册表中）。安装最新的服务版本应该可以解决此问题

现在让我看看这是否有帮助

---

--Dale

我不熟悉Rhinoscript，但人们基本上都说它是Excel默认无法解析的外部引用。在VBA编辑器中，选择“工具”>“引用”，并确保选中和/或包含Rhinoscript的任何依赖项。我猜这些是在以前的Excel版本中设置的，但不是新版本。我检查了一下，没有发现任何“缺失”。如果Rhino已经在运行，它不会崩溃（尽管Excel不会对它说话）。据我所知，关于Rhino的外部访问文档中没有任何内容说我必须专门使用外接程序。这很令人沮丧。