asp中把資料匯出為excel的方法

標籤：操作   rip   ring   comm   .exe   std   while   ddt   end   

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

 

 

asp中把資料匯出為excel的方法