當(dāng)前位置：首頁(yè) > 编程资源 > 编程问答 >内容正文

编程问答

输出EXCEL文件的通用函数

發(fā)布時(shí)間：2025/3/21 编程问答 14 豆豆

生活随笔收集整理的這篇文章主要介紹了输出EXCEL文件的通用函数小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

常要把各種各樣的查詢結(jié)果輸出到EXCEL中，所以做了下面這段小程序，用于把一個(gè)SQL的SELECT查詢出的結(jié)果輸出為EXCEL格式文件，這個(gè)程序你只要設(shè)好用于取得一個(gè)記錄集的SQL的SELECT查詢語(yǔ)句和一個(gè)文件名，程序就能輸出EXCEL格式文件了，這個(gè)程序一共由三個(gè)文件構(gòu)成，第一個(gè)文件的文件名為：toexcel.asp是主文件，內(nèi)容如下：

'前面是和來(lái)鏈接到數(shù)據(jù)庫(kù),請(qǐng)自行書寫相關(guān)語(yǔ)句，此處略過(guò)

sql=session("toexcelsql")? '這里是要輸出EXCEL的查詢語(yǔ)句，如 "SESECT * FORM CAI WHERE 性別='女'"
filename="excel.xls"?? ' 要輸出的EXCEL文件的文件名, 你只要改以上兩句就行了,其它的都不要改.

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

call toexcel(FILENAME,sql)
set conn=nothing

function ReadText(FileName)? '這是一個(gè)用于讀出文件的函數(shù)
?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)? '這是一個(gè)用于寫文件的函數(shù)
?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)? '這是一個(gè)根據(jù)SQL語(yǔ)句和FILENAME生成EXCEL文件
? Set rs=Server.CreateObject("ADODB.RecordSet")
? rs.Open sql,conn,1,3
? TOEXCELLR="<table width='100%'><tr >"
? set myfield=rs.fields
? dim fieldname(50)
? for i=0 to myfield.count-1
???? toexcellr=toexcellr&"<td class=xl24>"&MYFIELD(I).NAME&"</td>"
???? fieldname(i)=myfield(i).name
???? if myfield(i).type=135 then datename=datename&myfield(i).name&","
? next
? toexcellr=toexcellr&"</tr>"
? do while not rs.eof
??? toexcellr=toexcellr&"<tr>"
??? for i=0 to myfield.count-1
????? if instr(datename,fieldname(i)&",")<>0 then
??????? if not isnull(rs(fieldname(i))) then
?????????? TOEXCELLR=TOEXCELLR&"<td? class=xl25 ><p align='left'>"&formatdatetime(rs(fieldname(i)),2)&"</p></td>"
??????? else
?????????? TOEXCELLR=TOEXCELLR&"<td? class=xl25 ><p align='left'>　</p></td>"
??????? end if
????? else
???????? TOEXCELLR=TOEXCELLR&"<td class=xl24 >"&rs(fieldname(i))&"</td>"
????? end if
??? next
??? toexcellr=toexcellr&"</tr>"
??? rs.movenext
? loop
? toexcellr=toexcellr&"</table>"
? tou=readtext("tou.txt")
? di=readtext("di.txt")
? toexcellr=tou&toexcellr&di
? call savetext(filename,toexcellr)
end sub
%>
<html>
<head>
<meta http-equiv="refresh" content="3;URL=<%=filename%>">
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>正在生成EXLCE文件</title>
</head>
<BODY>
正在生成EXLCE文件....
</BODY>
</HTML>

＊＊＊＊＊＊＊＊＊＊＊＊＊＊第二個(gè)文件名為：di.txt 內(nèi)容如下：

＊＊＊＊＊＊＊＊＊＊＊＊第三個(gè)文件的文件名為：tou.TXT　內(nèi)容如下：

<head>
<meta http-equiv=Content-Type content="text/html; charset=GB2312">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 9">
<link rel=File-List href="./222.files/filelist.xml">
<link rel=Edit-Time-Data href="./222.files/editdata.mso">
<link rel=OLE-Object-Data href="./222.files/oledata.mso">

<style>

</style>

</head>

<%
Response.Buffer?? =?? TRUE
Response.AddHeader?? "Content-Disposition ",?? "attachment;?? filename=服裝資料.xls "
Response.contentType= "application/vnd.ms-excel "
%>

總結(jié)

以上是生活随笔為你收集整理的输出EXCEL文件的通用函数的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。

上一篇：如何给按钮加上链接功能
下一篇： jscript错误代码及相应解释大全