以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]excel单据摸版生成报表,怎么把所有单据按一页页的都生成在一个表格报表上?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157606)

--  作者:yjm789000
--  发布时间:2020/10/22 11:15:00
--  [求助]excel单据摸版生成报表,怎么把所有单据按一页页的都生成在一个表格报表上?
使用下面的代码每次都只是生成的都是最后一个单据,其它前面的单据也显示不出来啊

For Each  r As Row In Tables("单据主表").Rows
Dim Book As New XLS.Book(ProjectPath & "Attachments\\moban\\000001.xls")
Dim fl As String = ProjectPath & "Reports\\单据.xls"
Book.Build() \'生成细节区
Book.Sheets(0).Rows.RemoveAt(0) \'删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) \'保存工作簿

Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
Next


图片点击可在新窗口打开查看此主题相关图片如下:1020202.jpg
图片点击可在新窗口打开查看

可以这种一页页的展示出啦,生成一个excel含所有送货单据的报表呢?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:000001.xls



请问老师,是表格摸版设置问题,还是要代码设置,求指教?

--  作者:有点蓝
--  发布时间:2020/10/22 11:19:00
--  
L2单元格加上all标记:http://www.foxtable.com/webhelp/topics/0201.htm