asp将sql数据导出到excel中
页面提示错误:Microsoft JET Database Engine 错误 '80040e37'
Microsoft Jet 数据库引擎找不到对象'Sheet1$'。请确定对象是否存在,并正确地写出它的名称和路径。
/admin/excel.asp,行 62
代码如下:
<table width="100%" border="0" cellspacing="0" cellpadding="0" >
<tr>
<td height="5"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><form action="excelTosql.asp" method="post" name="form1" id="form1">
<p>
EXCEL数据导入:<input name="bbb" type="file" id="bbb" size="30" />
<input type="submit" name="Submit" value="提交" />
</p>
</form></td>
</tr>
<tr><td>
<form name="form1" method="post" action="Results.asp">
<table width="1800" border="1" cellspacing="0" bordercolorlight="#0000CC" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
<tr align="center" bgcolor="#0066CC">
<td width="50%" bgcolor="#0066CC"><div align="center">
<p>
<input name="po" type="submit" id="po" value="导出到Excel">
</p> </div></td><td ></td>
</tr>
</table>
</form>
<%
if request("po")<>"" then
dd=server.MapPath("Result.xls")
cc=0
'Excel连接驱动
aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&dd&";Extended Properties=Excel 8.0"
set StrConn=CreateObject("ADODB.Connection")
StrConn.Open aaa
set rss=server.createobject("adodb.recordset")
sql="select * from Result "
rss.open sql,conn,1,3
IF rss.Eof And rss.Bof Then
response.Write("<script>alert ('没有资料可以导出!');history.go(-1)</script>")
response.end()
else
'注意 表名一定要以下边这种格试 "[表名$]" 书写
Set rse = Server.CreateObject("ADODB.Recordset")
Sqle="select * from [Sheet1$] "
rse.Open Sqle,StrConn,2,2
Do While Not rss.EOF
'列出表内信息
response.write"SQL数据为: <br>"
response.write ""&rss(1)&"-"&rss(2)&"-"&rss(3)&"-"&rss(4)&"-"&rss(5)&"-"&rss(6)&"-"&rss(7)&"-"&rss(8)&"-"&rss(9)&"-"&rss(10)&"-"&rss(11)&"-"&rss(12)&"-"&rss(13)&"-"&rss(14)&"-"&rss(15)&"-"&rss(16)&"-"&rss(17)&"-"&rss(18)&"-"&rss(19)&"-"&rss(20)&"-"&rss(21)&"-"&rss(22)&"-"&rss(23)&"-"&rss(24)&"-"&rss(25)&""
response.write"<br>"
'插入excel里
rse.AddNew
if rss(1)<>"" then
rse(0)=rss(1)
end if
if rss(2)<>"" then
rse(1)=rss(2)
end if
if rss(3)<>"" then
rse(2)=rss(3)
end if
if rss(4)<>"" then
rse(3)=rss(4)
end if
if rss(5)<>"" then
rse(4)=rss(5)
end if
if rss(6)<>"" then
rse(5)=rss(6)
end if
if rss(7)<>"" then
rse(6)=rss(7)
end if
if rss(8)<>"" then
rse(7)=rss(8)
end if
if rss(9)<>"" then
rse(8)=rss(9)
end if
if rss(10)<>"" then
rse(9)=rss(10)
end if
if rss(11)<>"" then
rse(10)=rss(11)
end if
if rss(12)<>"" then
rse(11)=rss(12)
end if
if rss(13)<>"" then
rse(12)=rss(13)
end if
if rss(14)<>"" then
rse(13)=rss(14)
end if
if rss(15)<>"" then
rse(14)=rss(15)
end if
if rss(16)<>"" then
rse(15)=rss(16)
end if
if rss(17)<>"" then
rse(16)=rss(17)
end if
if rss(18)<>"" then
rse(17)=rss(18)
end if
if rss(19)<>"" then
rse(18)=rss(19)
end if
if rss(20)<>"" then
rse(19)=rss(20)
end if
if rss(21)<>"" then
rse(20)=rss(21)
end if
if rss(22)<>"" then
rse(21)=rss(22)
end if
if rss(23)<>"" then
rse(22)=rss(23)
end if
if rss(24)<>"" then
rse(23)=rss(24)
end if
if rss(25)<>"" then
rse(24)=rss(25)
end if
cc=cc+1
rss.MoveNext
Loop
rse.Update
end if
response.Write "<script language=javascript>alert('资料导出成功!');window.location.href='Result.asp';</script>"
end if
%></td></tr>
</table>