LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

asp中把数据导出为excel的2种方法

admin
2022年6月21日 15:22 本文热度 1513

我们在做项目的时候经常要将数据库的数据导出到excel中,很多asp用户并不知道怎么写。

这里明凯总结了两种方法来导出excel,希望能帮到大家。

方法一:用excel组件

<%
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 = "密码"
set rs=server.createobject("adodb.recordset")
sql="select * from mkusers"
rs.open sql,objconn,1,1
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对象
%>

方法二:使用文件组件

由于excel软件能识别table格式的数据,所以asp只需要输出table格式的html代码,同时设置好contenttype,增加保存为附件的响应头即可将输出的html代码保存为xls文件。

<table>
<%while not rs.eof %>
<tr><td>你的excel单元格内容,有多个自己增加td</td></tr>
<%
 rs.movenext
 wend
%>
</table>

<%

Response.ContentType = "application/excel"
Response.AddHeader "Content-Disposition", "attachment;filename=""xxxx.xls"""
%>

可以看出,第一种方法是直接导出excel文件,而第二种方法导出的是文本文件,只不过后缀名改成了xls,然后看起来就是excel了。

经过对比第一种方法的效率没有第二种方法的效率高,而且也不好控制。

推荐大家使用第二种写文件的方法来进行excel操作。


该文章在 2022/6/21 16:10:04 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved