在进行项目时，我们常常不得不将数据库的数据导出到Excel中，而许多ASP用户不知道如何编写。

这里明凯总结了两种导出excel的方法，希望对您有所帮助。

方法1：使用Excel组件



< %
集= server.createobject（ADODB。记录集）
SQL =SELECT * FROM mkusers
rs.open sql，objconn，1,1
集excelapp = CreateObject（Excel应用程序）
excelapp.application.visible =真
集excelbook = excelapp.workbooks.add
excelbook.worksheets（1）。细胞（1,1）。值=用户表
excelbook.worksheets（1）。细胞（2,1）。值=用户数量
excelbook.worksheets（1）。细胞（2,2）。值=登录名
excelbook.worksheets（1）。细胞（2,3）。值=实名
excelbook.worksheets（1）。细胞（2,4）。值=密码
CNT = 3
do while not rs.eof
excelbook.worksheets（1）。细胞（CNT，1）。值= RS（provinceid ）
excelbook.worksheets（1）。细胞（CNT，2）。值= RS（省）
excelbook.worksheets（1）。细胞（CNT，3）。值= RS（旗帜）
excelbook.worksheets（1）。细胞（CNT，4）。值= RS（ID）
移到下一项
碳纳米管（CNT）+ 1 = CINT
环
excelbook.saveasD: 你的文件.xls这是一个文件D后的数据输出。
excelapp.application.quit '退出Excel后出口
集excelapp =没有把Excel对象
% < %
集= server.createobject（ADODB。记录集）
SQL =SELECT * FROM mkusers
rs.open sql，objconn，1,1
集excelapp = CreateObject（Excel应用程序）
excelapp.application.visible =真
集excelbook = excelapp.workbooks.add
excelbook.worksheets（1）。细胞（1,1）。值=用户表
excelbook.worksheets（1）。细胞（2,1）。值=用户数量
excelbook.worksheets（1）。细胞（2,2）。值=登录名
excelbook.worksheets（1）。细胞（2,3）。值=实名
excelbook.worksheets（1）。细胞（2,4）。值=密码
CNT = 3
do while not rs.eof
excelbook.worksheets（1）。细胞（CNT，1）。值= RS（provinceid ）
excelbook.worksheets（1）。细胞（CNT，2）。值= RS（省）
excelbook.worksheets（1）。细胞（CNT，3）。值= RS（旗帜）
excelbook.worksheets（1）。细胞（CNT，4）。值= RS（ID）
移到下一项
碳纳米管（CNT）+ 1 = CINT
环
excelbook.saveasD: 你的文件.xls这是一个文件D后的数据输出。
excelapp.application.quit '退出Excel后出口
集excelapp =没有把Excel对象
%>



方法二：使用文件组件



< %
暗淡的，SQL，文件名，FS，来，X

设置FS = server.createobject（脚本。FileSystemObject ）
如果您想生成如下所存储的Excel文件
文件名= server.mappath（订单.xls）
如果有原始Excel文件，然后删除它
如果fs.fileexists（文件名）然后
fs.deletefile（文件名）
最后如果
创建Excel文件
集来= fs.createtextfile（文件名，真的）


开始时间=要求（开始时间）
结束时间=要求（结束时间）
startendtime =增加# 开始时间00:00:00 #和结束时间# # 23:59:59之间
如何=SELECT * FROM mksuers
集rstdata = conn.execute（如何）
如果不rstdata.eof不rstdata.bof然后

昏暗的trline，responsestr
StrLine=
在rstdata.fields每个X
strline = strline x.name CHR（9）
下一个

写入Excel的表列名称
myfile.writeline strline

而不是rstdata.eof
strline =

每个X领域rstdata。
strline = strline x.value CHR（9）
下一个
myfile.writeline strline

rstdata.movenext
环

最后如果
响应写生成Excel文件成功，单击下载！
rstdata。关闭
集rstdata =没有
康涅狄格州接近
设置conn =没有
%>



你可以看到，第一种方法是直接导出EXCEL文件，而第二种方法是一个文本文件中随处可见，但后缀名改为xls。

它看起来像excel。

通过比较第一种方法的效率，没有第二种方法效率高且控制不好。

建议您使用第二种编写文件的方式来执行excel操作。