- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- excel 模板的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107519)
-- 发布时间：2017/9/29 15:39:00
-- excel 模板的问题
老师
我的模板格式如下：
此主题相关图片如下：r3nqra_spusxa0)1fn%0yb9.png
怎么每次都只能导出当前行，想导出全部的！
-- 发布时间：2017/9/29 15:43:00
--
<end> 要和 <All> 写在同一列。
-- 发布时间：2017/9/29 15:59:00
--
好的。还有个问题，如果我有几个表，想同时在一个模版上，表之间没有关联，可以吗？要怎么弄？
-- 发布时间：2017/9/29 16:03:00
--
在excel文件多加几个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