'Sestaveni kusovniku
Dim table As New List(Of String())
table.Add({"1", "Part1", "MainAssembly" })
table.Add({"2", "Part2", "MainAssembly" })
 
'Zapis kusovniku do Excelu
For r = 0 To table.Count-1
 Dim row = table(r)
 GoExcel.CellValues("C:\Temp\TestFile.xlsx", "List1", "A"&r+1, "C"&r+1) = row
Next
 
'Ulozit, zavrit
GoExcel.Save
GoExcel.Close