ASP直接调用EXCEL数据的例子有问题！ - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → ASP直接调用EXCEL数据的例子有问题！

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 770 人关注过本帖

标题：ASP直接调用EXCEL数据的例子有问题！

只看楼主加入收藏

renxiaoyi

等　级：论坛游民
帖　子：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

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 2 楼

得分:0

权限设置问题,IIS的匿名账户要设置为Administrator

2011-05-09 11:43

renxiaoyi

等　级：论坛游民
帖　子：59
专家分：16
注　册：2010-8-23

第 3 楼

得分:0

回复 2楼 yms123

我在本地直接浏览的，不是在iis上面。

2011-05-09 15:18

hams

等　级：贵宾
威　望：18
帖　子：912
专家分：3670
注　册：2008-7-30

第 4 楼

得分:0

第一次听说ASP可以在本地浏览

俺不高手，俺也是来学习的。
俺的意见不一定就对，当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时，可在论坛问下路，但你若希望别人能一路把你送到目的地，显然是不现实的，因为别人也有自己要走的路。

2011-05-10 08:00

dzt0001

等　级：蒙面侠
威　望：5
帖　子：1281
专家分：4998
注　册：2005-10-12

第 5 楼

得分:0

我以前也碰到过Excel.Application权限失败，没能解决，最后是换连接方式的。

----我怎能在别人的苦难面前转过脸去----

2011-05-10 08:54

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 6 楼

得分:0

以下是引用renxiaoyi在2011-5-9 15:18:24的发言：

我在本地直接浏览的，不是在iis上面。

就是单机设置Excel也是要权限的

2011-05-10 09:19

renxiaoyi

等　级：论坛游民
帖　子：59
专家分：16
注　册：2010-8-23

第 7 楼

得分:0

回复 4楼 hams

直接在dm里浏览的。

2011-05-10 09:44

renxiaoyi

等　级：论坛游民
帖　子：59
专家分：16
注　册：2010-8-23

第 8 楼

得分:0

我加了everyone的权限不行。

2011-05-10 09:45

liang198207

等　级：职业侠客
帖　子：70
专家分：300
注　册：2011-5-10

第 9 楼

得分: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数据的例子有问题！