近期，客户想要给网站增加一个能够把记账列表导出Excel的功能，于是伟明设计开发，代码如下：
| 以下是引用片段： <!--#include file="conn.asp" --> <% dim s,sql,filename,fs,myfile,x,ranid randomize ranid=Replace(rnd,".","") '去掉点号 Set fs = server.CreateObject("scripting.filesystemobject") '--假设你想让生成的EXCEL文件做如下的存放 filename = Server.MapPath("excel/Book"&ranid&".xls") '--如果原来的EXCEL文件存在的话删除它 if fs.FileExists(filename) then fs.DeleteFile(filename) end if set myfile = fs.CreateTextFile(filename,true) strLine="客户所属公司名称"& chr(9) & "业务名称"& chr(9) set rs=server.CreateObject("adodb.recordset") sqlrs="select * from account" rs.open sqlrs,conn,1,1 if not rs.eof then do while not rs.eof '--创建EXCEL文件 myfile.writeline strLine strLine=rs("comname") & chr(9)& rs("ywname") myfile.writeline strLine rs.movenext loop Response.Write "生成EXCEL文件成功，点击<a href='excel/Book"&ranid&".xls' target='_blank'>下载</a>！" end if rs.close set rs=nothing %> |
导出Excel文件后，由于系统兼容的问题，打开表格格式不太理想，这得需要手动调整样式即可，另外，上面的excel文件夹一定要存在，否则excel导不出来。
石家庄网站建设公司－伟明网站设计,拥有专业设计团队为企业提供网站设计,网页制作,网址是www.viming.com