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

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

renxiaoyi

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

第 3 楼

得分:0

回复 2楼 yms123

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

2011-05-09 15:18

dzt0001

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

第 5 楼

得分:0

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

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

2011-05-10 08:54

renxiaoyi

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

第 7 楼

得分:0

回复 4楼 hams

直接在dm里浏览的。

2011-05-10 09:44

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