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

< %

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操作。

 

 

转载于:https://www.cnblogs.com/yufume/p/6718332.html