以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教导出的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78361)

--  作者:我来看看
--  发布时间:2015/12/8 6:50:00
--  请教导出的问题

以前很少用到,这次需要请教老师。

 

我在导出为word的文件时候,一个表格需要调用不同的表数据(如表A、表B、表C),请问模板设计时候讲表名写在哪里??谢谢


--  作者:Hyphen
--  发布时间:2015/12/8 8:30:00
--  
使用模板各个表之间必须有关联关系


--  作者:大红袍
--  发布时间:2015/12/8 9:15:00
--  

word、excel都是单个表,或者关联才行的。

 

多个不相关的表无法弄在一起。


--  作者:我来看看
--  发布时间:2015/12/8 21:52:00
--  

那是不是就是说如果不做关联,需要导出在同一表格内的不同栏目调用不同的表的数据是不可能实现的呢??

 

求大神帮忙啊~~~~~~~~~~


--  作者:大红袍
--  发布时间:2015/12/8 22:18:00
--  

是的,是不可能的。

 

你可以到处到不同的sheet,然后拷贝到一起去。

 

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