Dear All,
I will be glad if you help me with the code. I Already have a code where i need to enter load case number to get the reactions at the particular load case.
I have almost 1000 load cases and i want all the load cases to get in excel at once.
the code i have is
Private Sub CommandButton1_Click()
Dim objOpenSTAAD As ObjectDim supp_count As LongDim supp_nodes() As LongDim loadcase As LongDim dReactionArray(0 To 5) As DoubleDim count As IntegerDim count1 As Integer
Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
loadcase = Cells(1, 2).Value
supp_count = objOpenSTAAD.Support.GetSupportCount
ReDim supp_nodes(0 To (supp_count - 1)) As Long
objOpenSTAAD.Support.GetSupportNodes supp_nodes
For count = 1 To supp_count
objOpenSTAAD.Output.GetSupportReactions supp_nodes(count - 1), loadcase, dReactionArray
Cells(count + 2, 1).Value = supp_nodes(count - 1)
For count1 = 1 To 6
Cells(count + 2, count1 + 1).Value = dReactionArray(count1 - 1)
Next
Set objOpenSTAAD = Nothing
End Sub