先遍历前2列，导入后，再遍历后2列：
http://www.foxtable.com/webhelp/topics/2334.htm
Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
For n As Integer = 2 To Sheet.Rows.Count -1
Dim r As Row = Tables("订单").AddNew()
r(“yao品名称”) = Sheet(n,0).Value
r(“数量”) = Sheet(n,1).Value
r(“地点”) = Sheet(0,0).Value
Next
For n As Integer = 2 To Sheet.Rows.Count -1
Dim r As Row = Tables("订单").AddNew()
r(“yao品名称”) = Sheet(n,2).Value
r(“数量”) = Sheet(n,3).Value
r(“地点”) = Sheet(0,20).Value
Next
Tables("订单").ResumeRedraw()
加好友 
发短信
Post By：2022/11/18 19:53:00 [只看该作者]
此主题相关图片如下：终表.png
