高手来看,asp与excel 报表打印

rockcc 2002-05-12 11:25:07
有这么一段代码是asp连接excel进行报表打印的
<%
set objExcel=CreateObject("Excel.Application")
objExcel.Workbooks.Open(server.mappath("cc.xlt")) '打开Excel模板
objExcel.Sheets(1).select '选中工作页
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet

rs.MoveFirst
dim num
num=5
do until rs.eof
strrange="a"&num&":v"&num
sheetactive.range(strrange).font.size=10
sheetactive.range(strrange).wraptext=false
sheetactive.range(strrange).shrinktofit=true
sheetactive.range(strrange).value=array(rs("gh"),rs("xm")))
num=num+1
rs.movenext
loop
rs.MoveFirst

set myFs=createObject("scripting.FileSystemObject")

filePos="d:\"'要存放打印临时文件的临时目录

fileName="temp.xls" '取得一个临时文件名
myFs.DeleteFile filePos&"*.xls" '删除该目录下所有原先产生的临时打印文件

set myFs=nothing

'Excel临时文件的保存代码为:
objExcel.ActiveWorkbook.saveas filePos&filename
%>

<% objExcel.quit
set objExcel=Nothing
%>
前一段运行非常好,可后来我从装系统后不行拉,老提示
objExcel.Workbooks.Open(server.mappath("cc.xlt")) '打开Excel模板
出错
文件都存在,代码没有边,我晕!
请高手帮忙
...全文
7 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
rockcc 2002-05-14
我要从装系统,谢谢!
回复
Lee430 2002-05-13
重装系统后,可能引起文件冲突,把excel重装一边,或把2000换成97的版本
回复
孟子E章 2002-05-12
路径没有错误???
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2002-05-12 11:25
社区公告
暂无公告