UC知道ASP 把表导入EXCEL
来源：百度知道 编辑：UC知道 时间：2024/05/23 01:37:25
我现在有个ASP文件1.ASP. 在这个文件里已经做完了查询功能,可以从数据库里查询出一些数据形成一个TABLE,然后我想把查询到的数据(只限查询到的数据,不包括那些别的)生成一个规范的EXCEL文挡.就是在1.ASP里有个"生成报表"按钮",然后我就点击这个按钮,就会实现生成刚才说的EXCEL文档.我主要是想知道ASP 中TABLE形成EXCEL文件的代码,请高手帮帮忙写下刚才说的完整的代码谢谢.
请不要复制别人的,看好我的问题
2种方法
简单的：复制查询结果页1.asp为toexcel.asp，生成报表按钮就连接到toexcel.asp，在toexcel.asp最上面添加asp代码
Response.Addheader "Content-Disposition","attachment;Filename=你的excel名称.xls;FileFormat=56"
Response.ContentType="Application/vnd.ms-excel"
该方法优点是使用简单，生成速度快，不依赖服务器环境。
缺点是用office07版本打开该excel文件时，会提示内容不符，不过不影响打开。
复杂的：
通过com接口控制excel生成
首先在服务器安装offfice，版本2000或以上版本都可以
然后调整服务器上Excel Com组件的权限（控制面板-管理工具-组件服务-DCOM配置-Microsoft Excel Application），在“安全”设置页面给Internet来宾用户或everyone所有三个权限，然后，可以在asp中操作excel应用程序了。
Dim ObjExcel'Excel
Dim ObjSheet'
Dim ObjFso'FSO
ObjExcel.DisplayAlerts = False'不显示警告窗口
ObjExcel.Application.Visible=False'不可见
ObjExcel.Workbooks.Open(Destname)
Set ObjSheet=ObjExcel.Worksheets(1)
。。。具体如何操作并写入数据，可参考网上的文章
ObjSheet.SaveAs 你要保存生成的excel的名称（含路径）
ObjExcel.Quit
Set ObjExcel=Nothing
最后,response.redirect(你生成的excel名称）（含路径）
先