您正在使用 IPV4 [44.212.99.208] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】2核2G4M云服务器新老同享99元/年,续费同价      
[公益] 地球是我家,绿化靠大家      
2024年 劳动节 006
2024年 端午节 046
2025年 元 旦 251
2025年 春 节 279
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
asp中把数据导出为excel的2种方法
内容摘要: 方法一:用excel组件%setrs=server.createobject('adodb.recordset')sql='select*frommkusers'rs.opensql,objconn,1,1SetExcelApp=CreateObject('Excel.Application')ExcelApp.Application.Visible=Tru......
方法一:用excel组件

<%

setrs=server.createobject("adodb.recordset")

sql="select*frommkusers"

rs.opensql,objconn,1,1

SetExcelApp=CreateObject("Excel.Application")

ExcelApp.Application.Visible=True

SetExcelBook=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

dowhilenotrs.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

SetExcelApp=Nothing'注销Excel对象

%><%

setrs=server.createobject("adodb.recordset")

sql="select*frommkusers"

rs.opensql,objconn,1,1

SetExcelApp=CreateObject("Excel.Application")

ExcelApp.Application.Visible=True

SetExcelBook=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

dowhilenotrs.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

SetExcelApp=Nothing'注销Excel对象

%>

方法二:使用文件组件

<%

dims,sql,filename,fs,myfile,x

Setfs=server.CreateObject("scripting.filesystemobject")

'--假设你想让生成的EXCEL文件做如下的存放

filename=Server.MapPath("order.xls")

'--如果原来的EXCEL文件存在的话删除它

iffs.FileExists(filename)then

fs.DeleteFile(filename)

endif

'--创建EXCEL文件

setmyfile=fs.CreateTextFile(filename,true)

StartTime=Request("StartTime")

EndTime=Request("EndTime")

StartEndTime="AddTimebetween#"&StartTime&"00:00:00#and#"&EndTime&"23:59:59#"

strSql="select*frommksuers"

SetrstData=conn.execute(strSql)

ifnotrstData.EOFandnotrstData.BOFthen

dimtrLine,responsestr

strLine=""

ForeachxinrstData.fields

strLine=strLine&x.name&chr(9)

Next

'--将表的列名先写入EXCEL

myfile.writelinestrLine

DowhileNotrstData.EOF

strLine=""

foreachxinrstData.Fields

strLine=strLine&x.value&chr(9)

next

myfile.writelinestrLine

rstData.MoveNext

loop

endif

Response.Write"生成EXCEL文件成功,点击<ahref="/"rel="externalnofollow"order.xls""target=""_blank"">下载!"

rstData.Close

setrstData=nothing

Conn.Close

SetConn=nothing

%>

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

然后看起来就是excel了。

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

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:ASP.NET 根据汉字获取汉字拼音的首字母(含多音字)

 

下一篇:使用ASP启动/停止指定WEB站点

发布日期:2024/2/19
手机扫二维码直达本页
发布时间:15:30:58
点  击:11
录  入:星儿
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,奇安信网站卫士提供加速防护
运行时间载入中.....