VBA - Excel SAP2000 API - Ошибка автоматизации

Question

Я пытаюсь запустить SAP2000 с помощью VBA Excel, но я получаю сообщение об ошибке: «Ошибка автоматизации». Код очень прост:

Sub api() 

Dim SapObject As Sap2000.SapObject 
Set SapObject = New Sap2000.SapObject 
SapObject.ApplicationStart 

End Sub 

Этот код должен начинаться с SAP2000, но это не так.

SAP2000v14 устанавливается вместе с Office 2013. Я установил флажок рядом с SAP2000 в меню «Сервис-ссылки».

Кстати, я могу запустить SAP2000 с помощью MATLAB.

Спасибо!

Answer 1

Спасибо, ребята. Но я разобрался. В параметрах компиляции SAP2000.exe был выбран «run as admin». Поэтому я отменил его, и теперь он работает.

Answer 2

Вот код для SAP 2000:

Option Explicit 

    Dim SapObject As SAP2000.SapObject 
    Dim ret As Long 
    Dim Coordinates As Range 
    Sub Sap2000_open() 


    ' Create the Sap2000 object 

     Set SapObject = CreateObject("SAP2000.SapObject") 

     SapObject.ApplicationStart 
     SapObject.SapModel.InitializeNewModel (kgf_m_C) 
     ret = SapObject.SapModel.File.NewBlank 

End Sub