| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 768 人关注过本帖
标题:asp将sql数据导出到excel中
只看楼主 加入收藏
wenhao
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2007-12-22
收藏
 问题点数:0 回复次数:3 
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">&nbsp;</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>
搜索更多相关主题的帖子: excel sql asp 数据 
2008-03-04 11:12
wenhao
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2007-12-22
收藏
得分:0 
有谁能帮我解答,谢谢~~
2008-03-05 08:51
wenhao
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2007-12-22
收藏
得分:0 
哈哈,我已经解决~~
2008-03-05 10:12
hmx2005
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2008-2-24
收藏
得分:0 
你这个添加判断也太恐怖了点把- -|,用个循环不是很简单吗,长~~
2008-03-05 16:06
快速回复:asp将sql数据导出到excel中
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016761 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved