VBA – Excel SAP2000 API – 自动化错误

我正在尝试使用VBA Excel启动SAP2000，但收到错误消息：“自动化错误”。 代码非常简单：

Sub api() Dim SapObject As Sap2000.SapObject Set SapObject = New Sap2000.SapObject SapObject.ApplicationStart End Sub 

这段代码应该启动SAP2000，但不是。

SAP2000v14随Office 2013一起安装。我已经在Tools-References菜单中检查了SAP2000旁边的checkbox。

顺便说一下，我可以使用MATLAB运行SAP2000。

谢谢！

Answer 1

感谢你们。 但是我已经整理出来了 在SAP2000.exe的compability选项中，select“以pipe理员身份运行”。 所以我取消了这个select，现在就起作用了。

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