导出到excel后要求有字段名如何操作
偶用在这里找的代码实现了导出到excel，但出来的数据没有字段，如何实现导出数据有字段名，谢谢。下面是代码
'导出excel
Dim xlsApp As Excel.Application
xlsApp = Nothing
Dim xlsBook As Excel.Workbook
xlsBook = Nothing
Dim xlsSheet As Excel.Worksheet
xlsSheet = Nothing
Try
xlsApp = New Excel.ApplicationClass

xlsBook = xlsApp.Workbooks.Add(True)

xlsSheet = xlsBook.Worksheets(1)

xlsSheet.Activate()
Catch ex As Exception

Throw New NullReferenceException(ex.Message)
End Try
Dim i, k As Integer
Dim table As DataTable
table = New DataTable( "pizi ")
table = ds.Tables(0)
For i = 0 To table.Rows.Count - 1
For k = 0 To table.Rows(i).ItemArray.Length - 1
xlsApp.Cells(i + 2, k + 1) = table.Rows(i).ItemArray(k)
Next
Next
xlsApp.Visible = True

出来的效果希望能达到：

名称 职位 xxx xxxx xxxxx
张三 职员 ... ... .....
...

谢谢

[解决办法]
还可以用一种比较笨的办法

xlApp.Cells(1, 1) = "名称 "
xlApp.Cells(1, 2) = "职位 "
xlApp.Cells(1, 3) = "**** "
xlApp.Cells(1, 4) = "**** "
xlApp.Cells(1, 5) = "**** "
xlApp.Cells(1, 6) = "**** "