Foxtable(狐表)用户栏目专家坐堂 → 请教导出的问题


  共有1852人关注过本帖树形打印复制链接

主题:请教导出的问题

帅哥哟,离线,有人找我吗?
我来看看
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:347 积分:3065 威望:0 精华:0 注册:2013/11/19 16:05:00
请教导出的问题  发帖心情 Post By:2015/12/8 6:50:00 [只看该作者]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/12/8 8:30:00 [只看该作者]

使用模板各个表之间必须有关联关系


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/8 9:15:00 [只看该作者]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
我来看看
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:347 积分:3065 威望:0 精华:0 注册:2013/11/19 16:05:00
  发帖心情 Post By:2015/12/8 21:52:00 [只看该作者]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部