主题：[求助]报表模板设置

在设置报表模板的时候，想达到这种效果，细节区应该怎么设置？？
此主题相关图片如下：`mkzytqdaf42(~3o15q%sp.png

此主题相关图片如下：6u4uh8hmoh`$2@__p`_`3m.png

就是第二张图右边的那种效果。根据日期列出数据

这个没有办法，特殊需求学习专业报表，简单且灵活：

http://www.foxtable.com/webhelp/scr/1166.htm

 

 可以变通一下，做两个报表 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