Ошибка выполнения 8000fff на VBA CreateObject

Question

Как продолжение предыдущего поста о моем VBA/Rhinoscript, я столкнулся с действительно странной "катастрофической" ошибкой при выполнении следующего кода VBA из электронной таблицы Excel, изначально созданной в Excel 2007, которую я сейчас пытаюсь запустить в 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

CreateObject терпеть неудачу с Run-time error 8000fff Automation error, Catastrophic failure. Проверяя, люди делали смутные упоминания о проблемах с миграцией между версиями Excel и обращали внимание на Tools->References, но я не уверен, что именно я должен искать. Кто-нибудь знает?

Спасибо,

Matt

Answer 1

Я могу заставить ваш код работать здесь с Excel 2010 и Rhino 4.0 SR9.

Если вы не используете Rhino 4.0 SR9, я предлагаю вам загрузить и установить этот сервисный выпуск:

http://www.rhino3d.com/download/rhino/4.0/sr

Я предполагаю, что COM-компоненты Rhino не являются собственностью, зарегистрированной (в реестре Windows). Установка последней версии сервиса должна исправить это.

Позвольте мне сейчас, если это поможет.

- Дейл