Office中国论坛/Access中国论坛

标题: 关于excel使用模板插入新worksheet的痛哭求救 [求助] [打印本页]

作者: 没牙兔兔 时间: 2003-10-17 00:35
标题: 关于excel使用模板插入新worksheet的痛哭求救 [求助]
使用模板的工作表当作蓝本
希望在新的工作簿中每添加一个新的工作表都能使用模板

我只会这个
Exltemple = Application.CurrentProject.Path & "\rpt\建制单位综合统计表.xls"
　Exloutput = Application.CurrentProject.Path & "\output\" & txtyear & txtname & "_建制单位综合统计表.xls"

FileCopy Exltemple, Exloutput

Set ExcelWst = ExcelApp.Workbooks.Add(Exloutput).Worksheets(1)

这样的话，就可以打开一个基于模板的新excel文件
但是如果这个文件要插入多张基于模板的worksheet

不会啦～！！！！！！！！！！！！！！！！！！！！　　

求救
[em02][em02][em02]

作者: ADAM 时间: 2003-10-17 01:27
這樣試試吧:

DIM COPY1 AS OBJECT,MD AS OBJECT
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = FALSE
SET COPY1=oApp.Application.workbooks.Open exltemple
SET MD=oApp.Application.workbooks.Open exloutput

COPY1.SHEETS(1).Copy BEFORE:=MD.SHEETS(1)

我沒試過,你試試看...
呵呵.........

作者: ADAM 时间: 2003-10-17 01:31
對了
漏了幾句
還要加上
1.OAPP.Visible = TRUE
嘿嘿....

作者: 没牙兔兔 时间: 2003-10-17 01:33
呵呵，谢谢adam,我试一下

嗨！靓女，交个朋友啦
留下你的联系方式啦

嘻嘻
我的msn:pc_hare@163.net

作者: ADAM 时间: 2003-10-17 01:37
靓女???

作者: 没牙兔兔 时间: 2003-10-18 17:48
^_^,开玩笑啦
以前喊习惯啦~!!!-_-'

作者: 大頭 时间: 2003-12-22 07:37

要將ACCESS生成的报表按照相同的格式转化为EXCEL文档
需事先製作EXCEL.XTL的模板格式
即可輕輕鬆鬆完成
因為XLT ---excel模板---即包含XLS 所有東西
請引用 EXCELE OBJECT LIBRARY

[em06][em07][em06]

[此贴子已经被作者于2003-12-24 0:53:45编辑过]

作者: 大頭 时间: 2003-12-23 09:13
http://www.erpbus.net/access/topic.asp?topic_id=10802&forum_id=84
請參考

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)