主题：生成列名数组

如果Table的列顺序和excel中的列完全一直，不需要数组，直接：

Dim Book As New XLS.Book("c:\test\订单.xls")

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Tables("订单").StopRedraw()

For n As Integer = 1 To Sheet.Rows.Count -1 

    Dim r As Row = Tables("订单").AddNew()

    For m As Integer = 0 To Tables("订单").Cols.Count -1

         r(m) = Sheet(n,m).Value

    Next

Next

Tables("订单").ResumeRedraw

但是最好手工定义数组，因为难免偶尔会调整Table的列位置。