Hi I am try to save ArrayList to Excel but I only save the last record in the ArrayList to all sheet
anyone who can help me fix this, thanks
RegardsCode:Dim objExcel As New Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Try
objWorkbook = objExcel.Workbooks.Open("PATH TO FILE\" + "FILE.xlsm")
objWorksheet = objWorkbook.Worksheets.Item("Sheet1")
For Each Subject In Subjectlisti
objWorksheet.Range("B2", "B120").Value = Subject.type
objWorksheet.Range("C2", "C120").Value = Subject.count
objWorksheet.Range("D2", "D120").Value = Subject.meters
Next
objWorkbook.Save()
Catch Ex As Autodesk.AutoCAD.Runtime.Exception
'Handle exception
Finally
'Do cleanup
objExcel.Workbooks.Close()
objExcel.Application.Quit()
objExcel.Visible = False
End Try
ssalomon
