- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于execl 模板请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78159)
-- 发布时间：2015/12/3 11:44:00
-- 关于execl 模板请教
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:三好对帐单.xls |
请看附件，我想把两个没有关联的表显示出来，要怎么写，单个表是没有问题的。多谢！
-- 发布时间：2015/12/3 11:47: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
-- 发布时间：2015/12/3 12:24:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:三好1.xls |
大红袍老师
我已经把两个表合成一个表了，用字段类型来分。但模板为什么还是只能示一半，上面的明细可以，但下面的对帐不行。如果把表移到下面的话，那下面的就可以，上面的不行。请帮忙看看板吧。多谢！
-- 发布时间：2015/12/3 14:29:00
--
做两个sheet模板，分别生成，然后拷贝过去，参考2楼代码。
-- 发布时间：2016/3/2 17:02:00
--
我是已经做了2个模板sheet1，sheet2，点击报表管理后预览的结果也是两个报表。
可是我怎么点击生成报表呢？还是生成报表需要代码？
我设计模板后，点击报表管理—预览，自后点击生成报表也不对，会出现：“报表已经打开，请先关闭之”（可事实上我根本没有打开）。如果说我不应该点击生成报表按钮，那么我怎么先生成报表呢？
-- 发布时间：2016/3/2 17:10:00
--
设计好报表，然后用下面的代码生成
http://www.foxtable.com/help/topics/1145.htm