| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 768 人关注过本帖
标题:ASP直接调用EXCEL数据的例子 有问题!
只看楼主 加入收藏
renxiaoyi
Rank: 2
等 级:论坛游民
帖 子:59
专家分:16
注 册:2010-8-23
结帖率:33.33%
收藏
 问题点数:0 回复次数:8 
ASP直接调用EXCEL数据的例子 有问题!
代码:<%
Set xlApp = server.CreateObject("Excel.Application")

strsource = "D:\info.sinobal\test\ss.xls"

Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(1)

i=1
response.write "<table cellpadding=0 cellspacing=0 border=1 width=500>"
while xlsheet.cells(i,1)<>""

response.write "<tr>"
response.write " <td height=20 align=center width=100>" & xlsheet.Cells(i, 1) & "</td>"
response.write " <td height=20 align=center width=200>" & xlsheet.Cells(i, 2) & "</td>"
response.write " <td height=20 align=center width=200>" & xlsheet.Cells(i, 3) & "</td>"
response.write "</tr>"
i=i+1

wend
response.write "</table>"
set xlsheet=nothing
set xlbook=nothing
xlApp.quit
%>
出错了:
Server 对象 错误 'ASP 0178 : 80070005'

Server.CreateObject 访问错误

/untitled.asp,行 11

检查权限时,对 Server.CreateObject 的调用失败。拒绝对此对象的访问
怎么回事呢?
搜索更多相关主题的帖子: EXCEL test 
2011-05-09 10:55
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
权限设置问题,IIS的匿名账户要设置为Administrator
2011-05-09 11:43
renxiaoyi
Rank: 2
等 级:论坛游民
帖 子:59
专家分:16
注 册:2010-8-23
收藏
得分:0 
回复 2楼 yms123
我在本地直接浏览的,不是在iis上面。
2011-05-09 15:18
hams
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:18
帖 子:912
专家分:3670
注 册:2008-7-30
收藏
得分:0 
第一次听说ASP可以在本地浏览

俺不高手,俺也是来学习的。
俺的意见不一定就对,当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时,可在论坛问下路,但你若希望别人能一路把你送到目的地,显然是不现实的,因为别人也有自己要走的路。
2011-05-10 08:00
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:0 
我以前也碰到过Excel.Application权限失败,没能解决,最后是换连接方式的。

----我怎能在别人的苦难面前转过脸去----
2011-05-10 08:54
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
以下是引用renxiaoyi在2011-5-9 15:18:24的发言:

我在本地直接浏览的,不是在iis上面。
就是单机设置Excel也是要权限的
2011-05-10 09:19
renxiaoyi
Rank: 2
等 级:论坛游民
帖 子:59
专家分:16
注 册:2010-8-23
收藏
得分:0 
回复 4楼 hams
直接在dm里浏览的。
2011-05-10 09:44
renxiaoyi
Rank: 2
等 级:论坛游民
帖 子:59
专家分:16
注 册:2010-8-23
收藏
得分:0 
我加了everyone的权限 不行。
2011-05-10 09:45
liang198207
Rank: 5Rank: 5
等 级:职业侠客
帖 子:70
专家分:300
注 册:2011-5-10
收藏
得分:0 
<%
sub conn_xls(connxls,dbpath)
 Set connxls=Server.CreateObject("ADODB.Connection")
 StrConn="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='excel 8.0;hdr=yes';Data Source="&Server.MapPath(dbpath)
 connxls.Open StrConn
end sub
%>
<html>
<body>
<table >
<%
dim sql,rs,row
call conn_xls(connxls,"ss.xls")
Sql="Select * From [Sheet1$]"
set rs=connxls.execute(sql)
rs.movefirst
Do While Not rs.EOF
  row="<TR>"
  for i=0 to rs.fields.count-1
     row=row & "<td>" & rs(i) & "</td>"
     next
      response.Write row & "</tr>"
  rs.MoveNext
  Loop
  rs.Close

  Set rs=nothing
  connxls.Close
  Set connxls=Nothing
  

%>
</table>
</body>
</html>
你用这种链接方式试试,我简单测试了一下可以,要是这种方式不对那就是权限问题了。
2011-05-10 20:06
快速回复:ASP直接调用EXCEL数据的例子 有问题!
数据加载中...
 
   



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

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