我們在做項(xiàng)目的時候經(jīng)常要將數(shù)據(jù)庫的數(shù)據(jù)導(dǎo)出到excel中，很多asp用戶并不知道怎么寫。

這里明凱總結(jié)了兩種方法來導(dǎo)出excel，希望能幫到大家。

方法一：用excel組件

<%

Set ExcelApp =createObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelBook.WorkSheets(1).cells(1,1).value ="用戶表"
ExcelBook.WorkSheets(1).cells(2,1).value = "用戶編號"
ExcelBook.WorkSheets(1).cells(2,2).value = "登陸名"
ExcelBook.WorkSheets(1).cells(2,3).value = "真實(shí)姓名"
ExcelBook.WorkSheets(1).cells(2,4).value = "密碼"
set rs=server.createobject("adodb.recordset")
sql="select * from mkusers"
rs.open sql,objconn,1,1
cnt =3
do while not rs.eof
	ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("provinceid")
	ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("province")
	ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("flag")
	ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("id")
	rs.movenext
	cnt = cint(cnt) + 1
loop
Excelbook.SaveAs "d:\yourfile.xls" '這個是數(shù)據(jù)導(dǎo)出完畢以后在D盤存成文件
ExcelApp.Application.Quit '導(dǎo)出以后退出Excel
Set ExcelApp = Nothing '注銷Excel對象

%>

方法二：使用文件組件

由于excel軟件能識別table格式的數(shù)據(jù)，所以asp只需要輸出table格式的html代碼，同時設(shè)置好contenttype，增加保存為附件的響應(yīng)頭即可將輸出的html代碼保存為xls文件。
<table>
<%while not rs.eof %>
<tr><td>你的excel單元格內(nèi)容，有多個自己增加td</td></tr>
<%
 rs.movenext
 wend
%>
</table>

<%

Response.ContentType = "application/excel"
Response.AddHeader "Content-Disposition", "attachment;filename=""xxxx.xls"""
%>

可以看出，第一種方法是直接導(dǎo)出excel文件，而第二種方法導(dǎo)出的是文本文件，只不過后綴名改成了xls，然后看起來就是excel了。

經(jīng)過對比第一種方法的效率沒有第二種方法的效率高，而且也不好控制。

推薦大家使用第二種寫文件的方法來進(jìn)行excel操作。