asp导出excel文件方法
分类:程序开发 Tags: asp excel 评论:0 浏览:5782 最近更新时间:2019/4/2 10:29:37
由于excel软件能识别table格式的数据,所以asp只需要输出table格式的html代码,同时设置好contenttype,增加保存为附件的响应头即可将输出的html代码保存为xls文件。
<% Response.ContentType = "application/excel" Response.AddHeader "Content-Disposition", "attachment;filename=""文件名.xls""" %> <table> <%while not rs.eof %> <tr><td>你的excel单元格内容,有多个自己增加td</td></tr> <% rs.movenext wend %> </table>
另外代码
< % set rs=server.createobject("adodb.recordset") sql="select * from mkusers" rs.open sql,objconn,1,1 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 = "密码" cnt =3 do while not rs.eof ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("provinceid") ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("province") ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("flag") ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("id") rs.movenext cnt = cint(cnt) + 1 loop Excelbook.SaveAs "d:\yourfile.xls" '这个是数据导出完毕以后在D盘存成文件 ExcelApp.Application.Quit '导出以后退出Excel Set ExcelApp = Nothing '注销Excel对象 %>
本文地址:/356/
-
• JS、ASP、PHP自动检测浏览器语言并转到相关URL
• 兼容IE和Firefox火狐的上下、左右循环滚动JS代码
• ASP获取图片宽度和高度的程序源代码
• ASP搜索关键词时结果用红色显示代码
• rs.open sql,conn,1,1和rs.open sql,conn,1,3的意思
• ASP数据库连接、显示、添加、删除、查询等简单操作教程
• ASP实现点击链接直接下载文件的代码
• 微软未公开的小写转大写函数NumberString
• 图片自动按宽高比例缩小的js代码
• asp多条件查询sql语句用法,可用于搜索、筛选模块