Private Sub btnConCheck_Click()
Dim objOpenSTAAD As Object
Dim lngMemCount As Long
Dim lngMem As Long
Dim lngMemNum() As Long
Dim i As Long
Dim j As Long
Dim k As Long
Dim strFileName As String
Dim Response, Response1
Dim bIncludePath As Boolean
Dim lngPrLCount As Long
Dim lngPrLCaseNum() As Long
bIncludePath = True
'Clears Previous data
shtSt.Range("A3:BA20000").ClearContents
' Run the Error handler "ErrHandler" when an error occurs.
' Error GoTo Errhandler
Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
objOpenSTAAD.GetSTAADFile strFileName, bIncludePath
shtMain.Range("B3").Value = Time
shtMain.Range("B4") = ""
shtMain.Range("A8") = strFileName
Application.ScreenUpdating = False
'Get Member Count
lngMemCount = objOpenSTAAD.Geometry.GetMemberCount()
ReDim lngMemNum(0 To (lngMemCount - 1)) As Long
'Get Member List
objOpenSTAAD.Geometry.GetBeamList lngMemNum
For i = 0 To lngMemCount - 1
shtSt.Range("A" & 3 + i) = lngMemNum(i)
Next
lngPrLCount = objOpenSTAAD.Load.GetPrimaryLoadCaseCount()
objOpenSTAAD.Load.GetPrimaryLoadCaseNumbers lngPrLCaseNum
ReDim lngPrLCaseNum(0 To (lngPrLCount - 1)) As Long
For i = 0 To lngPrLCount - 1
shtSt.Range("B" & 3 + i) = lngPrLCaseNum(i)
Next
exit sub
I want to extract primary load case numbers.
What is wrong in above code, I am getting ZERO values of primary load cases