- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何在一张报表上按多个条件生成多个表格 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74188)
-- 发布时间：2015/9/5 21:48:00
-- [求助]如何在一张报表上按多个条件生成多个表格
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目.rar |
如何设置报表才可以生成报表后将报表中的表1和表2合并到一起，生成一张像表3一样的报表
-- 发布时间：2015/9/6 9:21:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\1.xls")
Dim fl As String = ProjectPath & "Reports\\1.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("1") \'指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("3")
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,1).Select \'纵向拷贝
ws3.paste
\'Wb.Save
app.Visible = True
\'App.Quit