Function tired_of_name_test()
Dim oExcel As Excel.Application
Set oExcel = New Excel.Application
oExcel.Workbooks.Open "YOUR_EXCEL_FILE.XLSX"
on error goto kill_task
Col = ListBox1.ColumnCount
Row = ListBox1.ListCount
For C = 1 to Ubound(Col)
For L = 1 to Ubound(Row)
oExcel.Cells(j,i) = Listbox1.List(j - 1, i - 1)
next L
next C
oExcel.ActiveWorkbook.Save
oExcel.Workbooks(1).Close
oExcel.Application.Quit
exit function
kill_task:
oExcel.ActiveWorkbook.Save
oExcel.Workbooks(1).Close
oExcel.Application.Quit
end function
for more details visit on.....
http://community.osisoft.com/index.php?/topic/1407-export-data-from-listbox-to-excel/[
^]