- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]报表模板设置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88395)
-- 发布时间：2016/8/2 9:40:00
-- [求助]报表模板设置
在设置报表模板的时候，想达到这种效果，细节区应该怎么设置？？
此主题相关图片如下：`mkzytqdaf42(~3o15q%sp.png
此主题相关图片如下：6u4uh8hmoh`$2@__p`_`3m.png
就是第二张图右边的那种效果。根据日期列出数据
-- 发布时间：2016/8/2 11:29:00
--
这个没有办法，特殊需求学习专业报表，简单且灵活：
http://www.foxtable.com/webhelp/scr/1166.htm
-- 发布时间：2016/8/2 18:44:00
--
可以变通一下，做两个报表 sheet1、sheet2，然后把两个报表合并起来，就是你要的结果
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