以文本方式查看主题 - 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=148566) |
-- 作者:蓝蚂蚁 -- 发布时间:2020/4/10 10:55:00 -- 如何把两个单独的Excel报表合在一个报表中 Dim str1 As String=e.Form.Controls("NumericComboBox1").value ‘----------报表1 Dim Book1 As New XLS.Book(ProjectPath & "Attachments\\月结表按月份筛选合并汇总窗口.xls") Dim fl As String = ProjectPath & "AllMyFiles\\月结报表\\" & str1 & "出库月结明细表.xls" Dim sheet1 As XLS.Sheet = Book1.Sheets(0) sheet1.name = str1 & "明细表" Book1.Marks.Add("Myyf",str1) Book1.Build() Book1.Save(fl) Dim Proc1 As New Process Proc1.File = fl Proc1.Start() ‘----------报表2 Dim Book2 As New XLS.Book(ProjectPath & "Attachments\\月结表汇总临时表窗口.xls") Dim f2 As String = ProjectPath & "AllMyFiles\\月结报表\\" & str1 & "出库月结汇总表.xls" Dim sheet2 As XLS.Sheet = Book2.Sheets(0) sheet2.name= str1 & "汇总表" Book2.Marks.Add("Myyf",str1) Book2.Build() Book2.Save(f2) Dim Proc2 As New Process Proc2.File = f2 Proc2.Start() 上面的代码,生成2个报表,我想实现:只生成一个报表,这个报表有2个工作簿,一个工作簿是报表1,另一个是报表2,不知道代码如何写,查了论坛的帖子,好像都没有找到答案,望老师解答一下,谢谢!
|
-- 作者:有点蓝 -- 发布时间:2020/4/10 11:10:00 -- 把2个模板合并为一个模板即可。把【月结表汇总临时表窗口.xls】里的工作簿复制到【月结表按月份筛选合并汇总窗口.xls】作为第二个作簿。 foxtable的execl报表可以同时生成多个工作簿的报表的
|