收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 3016|回复: 5

[asp] ASP保存xls出错,希望有经验的大神指点下

[复制链接]
发表于 2017-11-1 23:35:41 | 显示全部楼层 |阅读模式
        on error resume next
        dim xls_path:xls_path="/temp_excel/hangban.xls"
        Set ExcelApp =CreateObject("Excel.Application")
        ExcelApp.Application.Visible = True
        Set ExcelBook = ExcelApp.Workbooks.Add
        ExcelBook.WorkSheets(1).cells(1,1).value ="航班表"
        ExcelBook.WorkSheets(1).cells(2,1).value = "序列号"
        ExcelBook.WorkSheets(1).cells(2,2).value = "航班号"
        ExcelBook.WorkSheets(1).cells(2,3).value = "性质"
        ExcelBook.WorkSheets(1).cells(2,4).value = "公司"
        ExcelBook.WorkSheets(1).cells(2,5).value = "日期"
       
        'isok,yhbh,renwu,jixing,shuxing,hangxian,riqi,s_time,e_time
        set excel_rs=cnn.execute("select xlh,hbh,xingzhi,gongsi,riqi from hangban where xlh='2017102317131695180' order by riqi desc")
        cnt =3
        do while not excel_rs.eof
        ExcelBook.WorkSheets(1).cells(cnt,1).value = excel_rs(0)
        ExcelBook.WorkSheets(1).cells(cnt,2).value = excel_rs(1)
        ExcelBook.WorkSheets(1).cells(cnt,3).value = excel_rs(2)
        ExcelBook.WorkSheets(1).cells(cnt,4).value = excel_rs(3)
        ExcelBook.WorkSheets(1).cells(cnt,5).value = excel_rs(4)
        excel_rs.movenext
        cnt = cint(cnt) + 1
        loop
        Excelbook.SaveAs server.MapPath(xls_path)
        ExcelApp.Application.Quit   
        Set ExcelApp = Nothing
        set excel_rs=nothing
        if err then response.Write(err.description)

代码如上,此文来自http://www.jb51.net/article/52600.htm方法一,在网上也查过很多,但始终没解决,错误描述为:类 Workbook 的 SaveAs 方法无效 。文件也没有生成,请各位大神指点下,改怎么用那个方法呀,感觉不尽
 楼主| 发表于 2017-11-3 20:34:44 | 显示全部楼层
蓝色经典都没人气了吗?乐于助人的人是越来越少了
回复 支持 反对

使用道具 举报

发表于 2017-11-4 14:43:53 | 显示全部楼层
经测试代码没有问题,建议检查目录"/temp_excel"是否存在?有没有写入权限?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-11-4 23:08:49 | 显示全部楼层
SenFe 发表于 2017-11-4 14:43
经测试代码没有问题,建议检查目录"/temp_excel"是否存在?有没有写入权限?

不是吧,你同样的代码能生成文件,没有报错?我确认过了,目录肯定存在,也有写权限。但还是报错
类 Workbook 的 SaveAs 方法无效
回复 支持 反对

使用道具 举报

发表于 2017-11-14 09:40:15 | 显示全部楼层
很久没整asp了
如果出错,应该是支持excel的相关东西太旧了。可以试试在服务器上安装下office,然后卸载(不卸载更好)。
回复 支持 反对

使用道具 举报

发表于 2019-5-6 16:50:27 | 显示全部楼层
不要用Excel对象,用下面的代码,只要画表格就行了。

Response.ContentType = "application/octet-stream"
Response.Charset="UTF-8"
Response.AddHeader "Content-Disposition", "attachment;filename=""AImonitor"&replace(now()," ","T")&".xls"""
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-9-30 23:42 , Processed in 0.125660 second(s), 7 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表