Hi i am facing problem while extracting utility ratio from staad to excel, it was working well with VBA but in VB.net its giving error
please check the below code and suggest me suitable solution.Thank you
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
''CREATING EXCEL FILE
Dim xlApp As Excel.Application = New Microsoft.Office.Interop.Excel.Application()
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim objOpenSTAAD As Object
Dim lBeamCnt As Long
Dim BeamNumberArray(-1) As Long
Dim mem As Long
Dim pdRatio As Double
Dim sBeamMaterialName As String
Dim lBeamSectionName As String
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("sheet1")
'' EXTRACTING ASPECT RATIO
xlWorkSheet.Range("A4:e10010").ClearContents()
xlWorkSheet.Sheets("Sheet1").Select
objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
lBeamCnt = objOpenSTAAD.Geometry.GetMemberCount
objOpenSTAAD.Output.GetMemberSteelDesignRatio(mem, pdRatio)
ReDim BeamNumberArray(0 To (lBeamCnt - 1)) As Long
objOpenSTAAD.Geometry.GetBeamList(BeamNumberArray)
For I = 1 To lBeamCnt
xlWorkSheet.Sheets("Sheet1").Cells(I + 3, 1) = BeamNumberArray(I - 1)
mem = xlWorkSheet.Sheets("Sheet1").Cells(I + 3, 1).Value
objOpenSTAAD.Output.GetMemberSteelDesignRatio(mem, pdRatio)
xlWorkSheet.Sheets("Sheet1").Cells(I + 3, 4) = pdRatio
sBeamMaterialName = objOpenSTAAD.Property.GetBeamMaterialName(mem)
lBeamSectionName = objOpenSTAAD.Property.GetBeamSectionName(mem)
xlWorkSheet.Sheets("Sheet1").Cells(I + 3, 2) = sBeamMaterialName
xlWorkSheet.Sheets("Sheet1").Cells(I + 3, 3) = lBeamSectionName
Next I
End Sub