輸出EXCEL檔案的通用函數

最後更新：2018-12-05 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

常要把各種各樣的查詢結果輸出到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="<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>

＊＊＊＊＊＊＊＊＊＊＊＊＊＊第二個檔案名稱為：di.txt 內容如下：

＊＊＊＊＊＊＊＊＊＊＊＊第三個檔案的檔案名稱為：tou.TXT　內容如下：

<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>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

輸出EXCEL檔案的通用函數

聯繫我們

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support