代码改变世界

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

2017-04-16 11:50  写代码的渔夫  阅读(8218)  评论(0编辑  收藏  举报
< %
dim s,sql,filename,fs,myfile,x
  
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("order.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
   fs.DeleteFile(filename)
end  if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
  
  
StartTime = Request("StartTime")
EndTime = Request("EndTime")
StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"
strSql = "select * from mksuers "
Set rstData =conn.execute(strSql)
if not rstData.EOF and not rstData.BOF then
  
   dim  trLine,responsestr
   strLine=""
   For each x in rstData.fields
     strLine = strLine & x.name & chr(9)
   Next
  
'--将表的列名先写入EXCEL
   myfile.writeline strLine
  
   Do while Not rstData.EOF
     strLine=""
  
     for each x in rstData.Fields
       strLine = strLine & x.value &  chr(9)
     next
     myfile.writeline  strLine
  
     rstData.MoveNext
   loop
  
end if
Response.Write  "生成EXCEL文件成功,点击<a href="/" rel="external nofollow" order.xls"" target=""_blank"">下载!"
rstData.Close
set rstData = nothing
Conn.Close
Set Conn = nothing
%>

可以看出,本方法是到处的是文本文件,只不过后缀名改成了xls。

然后看起来就是excel了。

经过对比本方法的效率高。

推荐大家使用这个写文件的方法来进行excel操作。