Ingeniero buenas tardes, he tratado de conectarme con ETABS por medio de la api con los siguientes códigos.

PRIMER CODIGO

Option Explicit
Dim myHelper As ETABSv1.cHelper
Dim myETABSObject As ETABSv1.cOAPI
Dim mySapModel As ETABSv1.cSapModel
Dim ret As Long

Sub ConectarETABS()
Set myHelper = New ETABSv1.Helper
Set myETABSObject = myHelper.GetObject(“CSI.ETABS.API.ETABSObject”)
Set mySapModel = myETABSObject.SapModel
ret = mySapModel.Analyze.RunAnalysis
End Sub

SEGUNDO CODIGO

Option Explicit
Dim myHelper As ETABSv1.cHelper
Dim myETABSObject As ETABSv1.cOAPI
Dim mySapModel As ETABSv1.cSapModel
Dim ret As Long

Sub ConectarETABS()
Set myHelper = New ETABSv1.Helper
Set myETABSObject = GetObject(, “CSI.ETABS.API.ETABSObject”)
Set mySapModel = myETABSObject.SapModel
ret = mySapModel.Analyze.RunAnalysis
ret = mySapModel.SetPresentUnits(12)
End Sub

ANTES EL CODIGO NO TENIA PROBLEMAS, AHORA SIN EMBARGO TENGO EL SIGUIENTE ERROR , HE TENIDO EN CUENTA COLOCAR CORRECTAMENTE LA REFERENCIA EN EXCEL ETABSv1.tlb