以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  Excel表格格式转换  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=183915)
--  作者：happy_gile
--  发布时间：2022/11/18 19:53:00
--  Excel表格格式转换

图片点击可在新窗口打开查看此主题相关图片如下：终表.png
图片点击可在新窗口打开查看
如何将基表的数据，生成终表的格式
图片点击可在新窗口打开查看此主题相关图片如下：基表.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2022/11/19 8:48:00
--  
先遍历前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()
--  作者：happy_gile
--  发布时间：2022/11/19 10:40:00
--  
你好蓝老师，我的图片传的顺序颠倒了，下边的是基表，上边的是终表
--  作者：有点蓝
--  发布时间：2022/11/19 10:54:00
--  
逻辑发过来即可。先查询第一个库的数据导出到execl前2列。然后查询第二个库导出到3、4列

或者做个转换，再导出：http://www.foxtable.com/webhelp/topics/2965.htm