主题：咨询：EXCEL导入时可以指定特定行作为列字段名吗？

EXCEL导入时可以指定特定行作为列字段名吗？见下图：

 导入不行，合并数据可以。

 

http://www.foxtable.com/webhelp/scr/2334.htm

 

如果是导入的话，你也可以通过代码创建一个表

 

http://www.foxtable.com/webhelp/scr/2122.htm

 

我用的是合并，我看了下帮助代码，合并时可以指定从第几行开行执行，但是要怎么指定列字段标题呢？

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"编号","产品","客户","雇员","单价","折扣","数量","日期"}
'注意下面的循环变量从1开始，而不是从0开始，因为Excel表的第一行是标题            -----  这里有说明，那我怎么指定第三行为标题列呢？
For n As Integer = 1 To Sheet.Rows.Count -1 
    Dim r As Row = Tables("订单").AddNew()
    For m As Integer = 0 To nms.Length - 1
         r(nms(m)) = Sheet(n,m).Value
    Next
Next
Tables("订单").ResumeRedraw()

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
Dim nms1() As String = {"产品","客户","雇员"}
Dim nms2() As String = {"表列名产品","表列名客户","表列名雇员"}
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As Row = Tables("订单").AddNew()
    For i As Integer = 0 To sheet.Cols.Count -1
        Dim idx As Integer = array.indexof(nms1, sheet(0,i).Text)
        If idx >= 0 Then
            r(nms2(idx)) = sheet(n, i).Text
        End If
    Next
Next
Tables("订单").ResumeRedraw()