ASP中把数据导出为Excel的三种方法

上善若水

方法一：用excel组件

    这种方法利用Excel组件直接导出excel文件，要求服务器端安装有微软office（Excel）程序，否则无法运行。

    完整示例如下：

1. Set conn=server.CreateObject("adodb.connection")
2. connstr="provider=microsoft.jet.oledb.4.0;data source="& Server.MapPath("/db.mdb")
3. conn.open connstr
5. set rs=server.createobject("adodb.recordset")
6. sql="select * from xiaozu"
7. rs.open sql,conn,1,1
8. Set ExcelApp =CreateObject("Excel.Application")
9. ExcelApp.Application.Visible = True
10. Set ExcelBook = ExcelApp.Workbooks.Add
11. ExcelBook.WorkSheets(1).cells(1,1).value = "小组名称"
12. ExcelBook.WorkSheets(1).cells(1,2).value = "学生名单"
13. ExcelBook.WorkSheets(1).cells(1,3).value = "所属学院"
14. ExcelBook.WorkSheets(1).cells(1,4).value = "实习景区"
15. cnt = 2
16. do while not rs.eof
17. ExcelBook.WorkSheets(1).cells(cnt,1).value = rs("XZName")
18. ExcelBook.WorkSheets(1).cells(cnt,2).value = rs("XZStudents")
19. ExcelBook.WorkSheets(1).cells(cnt,3).value = rs("XZCollage")
20. ExcelBook.WorkSheets(1).cells(cnt,4).value = rs("XZJD")
21. rs.movenext
22. cnt = cint(cnt) + 1
23. loop
24. Excelbook.SaveAs "d:\yourfile.xls" '这个是数据导出完毕以后在D盘存成文件
25. ExcelApp.Application.Quit '导出以后退出Excel
26. Set ExcelApp = Nothing '注销Excel对象
27. rs.close
28. set rs = nothing
29. conn.close
30. set conn = nothing

复制代码

方法二：使用文件组件

    这种方法导出的是文本文件，只不过后缀名改成了xls。

    完整示例如下：

1. Set conn=server.CreateObject("adodb.connection")
2. connstr="provider=microsoft.jet.oledb.4.0;data source="& Server.MapPath("/db.mdb")
3. conn.open connstr
5. dim s,sql,filename,fs,myfile,x
7. Set fs = server.CreateObject("scripting.filesystemobject")
8. '--假设你想让生成的EXCEL文件做如下的存放
9. filename = Server.MapPath("order.xls")
10. '--如果原来的EXCEL文件存在的话删除它
11. if fs.FileExists(filename) then
12. fs.DeleteFile(filename)
13. end if
14. '--创建EXCEL文件
15. set myfile = fs.CreateTextFile(filename,true)
17. StartTime = Request("StartTime")
18. EndTime = Request("EndTime")
19. StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"
20. strSql = "select * from xiaozu "
21. Set rstData =conn.execute(strSql)
22. if not rstData.EOF and not rstData.BOF then
23. dim strLine,responsestr
24. strLine=""
25. For each x in rstData.fields
26. strLine = strLine & x.name & chr(9)
27. Next
28. '--将表的列名先写入EXCEL
29. myfile.writeline strLine
30. Do while Not rstData.EOF
31. strLine=""
32. for each x in rstData.Fields
33. strLine = strLine & x.value & chr(9)
34. next
35. myfile.writeline strLine
36. rstData.MoveNext
37. loop
38. end if
39. Response.Write "生成EXCEL文件成功，点击<a href='order.xls' target='_blank'>下载！"
40. rstData.Close
41. set rstData = nothing
42. Conn.Close
43. Set Conn = nothing

复制代码

方法三：

    该方法不使用任何组件。而是将所有导出的数据在网页中以Table进行显示，然后增加如下两行代码，即可实现打开网页后直接下载保存为Excel：

    Response.ContentType = "application/vnd.ms-excel"
    Response.AddHeader "Content-Disposition", "attachment;filename=TestExcel.xls"

    完整示例如下：

1. <%
2. Response.ContentType = "application/vnd.ms-excel"
3. Response.AddHeader "Content-Disposition", "attachment;filename=TestExcel.xls"
5. Set conn=server.CreateObject("adodb.connection")
6. connstr="provider=microsoft.jet.oledb.4.0;data source="& Server.MapPath("/db.mdb")
7. conn.open connstr
9. set rs=server.createobject("adodb.recordset")
10. sql="select * from xiaozu"
11. rs.open sql,conn,1,1
12. %>
13. <table border="1">
14. <tr>
15. <td>小组名称</td>
16. <td>学生名单</td>
17. <td>所属学院</td>
18. <td>实习景区</td>
19. </tr>
20. <%
21. while not rs.eof and not rs.bof
22. %>
23. <tr>
24. <td><%=rs("XZName")%></td>
25. <td><%=rs("XZStudents")%></td>
26. <td><%=rs("XZCollage")%></td>
27. <td><%=rs("XZJD")%></td>
28. </tr>
29. <% rs.movenext
30. wend
31. %>
32. </table>
33. <%
34. rs.close
35. set rs = nothing
36. conn.close
37. set conn = nothing
38. %>

复制代码

来源：https://blog.csdn.net/qhdzj87/article/details/122541475
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！