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。sql

而後看起來就是excel了。oop

通過對比本方法的效率高。spa

推薦你們使用這個寫文件的方法來進行excel操做。excel

相關文章
相關標籤/搜索