Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet
As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For c As
Integer = 0
To nms.length -1
Sheet(0,
c).Value =
caps(c)
'指定列标题
Sheet.Cols(c).Width = szs(c)
'指定列宽
Next
For r As
Integer = 0
To dt.Rows.Count - 1
'填入数据
For c As
Integer =
0
To nms.length -1
Sheet(r +1, c).Value = dt.rows(r)(nms(c))
Next
Next
................(此处需要对Sheet表第一列按升序排序,如何实现)