- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 打印多关联标问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81612)
-- 发布时间：2016/3/2 10:14:00
-- 打印多关联标问题
人员名单表关联在职人员收入表和离退休人员收入表两个子表，现需要打印两个关联子表。每个关联子表需要有页小计和合计。模版设计见附件，现显示不正常。第二张子表数据提取，如何解决？
此主题相关图片如下：2016-03-02_10-03-59.png
-- 发布时间：2016/3/2 10:49:00
--
1、用一个xls文件，做两个sheet，设计好模板；
2、生成报表后，用代码把两个sheet的内容合并到一起即可。
比如你生成了报表 d:\\text.xls
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") \'指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")
Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
\'ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select \'横向拷贝
ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select \'纵向拷贝
ws3.paste
\'Wb.Save
app.Visible = True
\'App.Quit