Thursday, May 2, 2019

ETABS 2016 OAPI Excel VBA LOAD COMBINATION



      ' add combo
      
       nCombCount = Sheets("RespCombo_Add").Cells(1, 2).Value
       
       For i = 1 To nCombCount
       
       Name1 = Sheets("RespCombo_Add").Cells(i + 4, 1).Value
       CombTyp = Sheets("RespCombo_Add").Cells(i + 4, 2).Value
       ret = mySapModel.RespCombo.add(Name1, CombTyp)
       
       Next i
         
       ' CaseList
        
       NSetCaseCount = Sheets("RespCombo_SetCaseList").Cells(1, 2).Value
         
       For j = 1 To NSetCaseCount
         
       Name2 = Sheets("RespCombo_SetCaseList").Cells(j + 4, 1).Value
       CNam = Sheets("RespCombo_SetCaseList").Cells(j + 4, 2).Value
       SF = Sheets("RespCombo_SetCaseList").Cells(j + 4, 3).Value
       CNamTyp = Sheets("RespCombo_SetCaseList").Cells(j + 4, 4).Value
       ret = mySapModel.RespCombo.SetCaseList(Name2, CNamTyp, CNam, SF)
          
       Next j
    
     
   End Sub












No comments:

Post a Comment

Subscribe to: Post Comments (Atom)