以文本方式查看主题 - 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 可以这种一页页的展示出啦,生成一个excel含所有送货单据的报表呢?
请问老师,是表格摸版设置问题,还是要代码设置,求指教?
|
||||
-- 作者:有点蓝 -- 发布时间:2020/10/22 11:19:00 -- L2单元格加上all标记:http://www.foxtable.com/webhelp/topics/0201.htm |