asp导出数据到EXCEL表格

asp导出数据到EXCEL表格

asp导出到excel


在开头加上这一句
Response.ContentType = "application/vnd.ms-excel"
如果导出结果为空白的，那就去掉它
一下是导出Excel代码
--------------------------------------------------------------------------------
<%
set rs=server.createobject("adodb.recordset")
sql="select * from provinceinfo where 1=1"
rs.open sql,objconn,1,1
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 = "密码" 
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相关信息

Excel 07-2003一个工作表最多可有65536行，行用数字1—65536表示;最多可有256列，列用英文字母A—Z，AA—AZ，BA—BZ，……，IA—IV表示；一个工作簿中最多含有255个工作表，默认情况下是三个工作表；
Excel 2007及以后版本，一个工作表最多可有1048576行，16384列；所以建议用2007以上版本的excel

追问这位大哥。。。你这段代码我把从数据库提取数据的步骤删除了随便给了几条数据添加不成果啊。。。提示
Microsoft VBScript 编译器错误 '800a0409'
未结束的字符串常量
\test.asp, line 17追答你这个人太实在，何必把数据库提取步骤删了，你把sql加一句 top 10 * 不就可以测试了，
然后15-21行代码，就是给EXCEL列设置个字头而已，要是你测试出错就删了吧追问麻烦再问个问题。。。。。。如果我写入的字符想换行该怎么办呢？追答啥？内容取出来写入前先处理，用 &vbcrlf
excel换行设置，自行搜索百度。

关于导入：
打开ACCESS－文件－获取外部数据。后面的你应该会了啊。
.asp文件不可以直接用网页查看，在你自己的计算机上可以安装一个iis，具体的安装方法你可以在百度上搜索，但是必须要有windows安装盘才可以。
安装完了后，管理工具－internet信息服务－本地计算机－网站－默认网站－新建你的.asp所在目录。浏览就可以了。
打字不易，如满意，望采纳。追问。。。。。前面如何配置asp服务器我都会，我的意思是吧ACCESS的一个表里面的数据用asp读取出来，循环成特定的格式然后再 把他放到excel表格当中，前面的asp读取我已经写完了。。。。数据已经出来了。。。就是不过会用ASP导出到excel表格当中