我们在做项目的时候经常要将数据库的数据导出到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操作。