以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  可以把多个表的内容都做成一个excel报表么  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72918)
--  作者：jinzhengbe
--  发布时间：2015/8/8 17:34:00
--  可以把多个表的内容都做成一个excel报表么

可以把多个表的内容都做成一个excel报表么

 

如题 可以把多个表的内容都做成一个excel报表么？ 每个表之间没有关联关系

 

帮助里有看到 打印多个关联表  没有关联的有没有办法实现？
--  作者：有点蓝
--  发布时间：2015/8/8 17:39:00
--  
有没有关联都一样，关键看你显示的数据量
[此贴子已经被作者于2015/8/8 17:40:13编辑过]
--  作者：有点蓝
--  发布时间：2015/8/8 17:41:00
--  
关联的话相当于把表的数据根据主键过滤了一次
--  作者：大红袍
--  发布时间：2015/8/9 11:16:00
--  

生成以后，拷贝过来即可

 

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