输出EXCEL文件的通用函数，很实用 (转)

输出EXCEL文件的通用函数，很实用 (转)[@more@]

阿余常要把各种各样的查询结果输出到excel中，所以做了下面这段小程序，用于把一个sql的select查询出的结果输出为EXCEL格式文件，这个程序你只要设好用于取得一个记录集的SQL的SELECT查询语句和一个文件名，程序就能输出EXCEL格式文件了，这个程序一共由三个文件构成，第一个文件的文件名为：toexcel.ASP是主文件，内容如下：

'前面是和来链接到数据库,请自行书写相关语句，此处略过

sql=session("toexcelsql")  '这里是要输出EXCEL的查询语句，如 "SESECT * FORM CAI WHERE 性别='女'"
filename="excel.xls"  ' 要输出的EXCEL文件的文件名, 你只要改以上两句就行了,其它的都不要改.

'你只要修改以上两变量就行了.其它的我都做好了.

call toexcel(FILENAME,sql)
set conn=nothing

function ReadText(FileName)  '这是一个用于读出文件的函数
 set adf=server.Createobject("Adodb.Stream")
 with adf
 .Type=2
 .LineSeparator=10
 .Open
 .LoadFromFile (server.MapPath(FileName))
 .Charset="GB2312"
 .Position=2
 ReadText=.ReadText
 .Cancel()
 .Close()
 end with
 set ads=nothing
end function

sub SaveText(FileName,Data)  '这是一个用于写文件的函数
 set fs= createobject("scripting.filesystemobject")
  set ts=fs.createtextfile(server.MapPath(FileName),true)
  ts.writeline(data)
  ts.close
  set ts=nothing
  set fs=nothing
end sub

sub toexcel(filename,sql)  '这是一个根据SQL语句和FILENAME生成EXCEL文件
  Set rs=Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,3
  TOEXCELLR="

"&MYFIELD(I).NAME&"
"&formatdatetime(rs(fieldname(i)),2)&"		"&rs(fieldname(i))&"

oop
  toexcellr=toexcellr&""
  tou=readtext("tou.txt")
  di=readtext("di.txt")
  toexcellr=tou&toexcellr&di
  call savetext(filename,toexcellr)
end sub
%>





正在生成EXLCE文件


正在生成EXLCE文件....

＊＊＊＊＊＊＊＊＊＊＊＊＊＊第二个文件名为：di.txt 内容如下：

＊＊＊＊＊＊＊＊＊＊＊＊第三个文件的文件名为：tou.TXT　内容如下：

XMLns:o="urn:schemas-microsoft-com:Office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">

<!--[if gte mso 9]>
 
  xky
  xky
  2002-05-27T17:51:00Z
  2002-06-22T10:03:03Z
  zydn
  9.2812
 
 
  DOWNLOADComponents/>
 
 

<!--[if gte mso 9]>
 
 
 
  Sheet1
 
  225
 
 
  9
  -3
  0
 
 
 
 
  3
  24
  5
 
 
  False
  False
  False
 
 
 
  Sheet2
 
  225
  False
  False
  False
 
 
 
  Sheet3
 
  225
  False
  False
  False
 
 
 
  6600
  12000
  0
  1395
  False
  windows>False
 

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-991771/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-991771/