国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

我們在做項目的時候經常要將數據庫的數據導出到excel中，很多asp用戶并不知道怎么寫。

這里明凱總結了兩種方法來導出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 = "真實姓名"
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" '這個是數據導出完畢以后在D盤存成文件
ExcelApp.Application.Quit '導出以后退出Excel
Set ExcelApp = Nothing '注銷Excel對象

%>

方法二：使用文件組件

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

<%

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

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

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

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