Excel表格格式转换 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

先遍历前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()

主题：Excel表格格式转换