以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Excel表格格式转换  (http://foxtable.net/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