< % 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 = nothingConn.CloseSet Conn = nothing%>可以看出，本方法是到处的是文本文件，只不过后缀名改成了xls。
然后看起来就是excel了。
经过对比本方法的效率高。
推荐大家使用这个写文件的方法来进行excel操作。
原文：http://www.cnblogs.com/yufume/p/6718332.html