`

创建Excel.Application对象时报“检查权限时,对 Server.CreateObject 的调用失败。拒绝对此对象的访问。”

    博客分类:
  • asp
阅读更多

<%Set xlApplication = Server.CreateObject(“Excel.Application”) ‘调用excel象%>

一般没有经过设置的IIS服务器在执行这一句时都会出现错误,返回的错误信息如下:

错误类型:
Server 象, ASP 0178 (0×80070005)
检查权限时 Server.CreateObject 的调用失败。拒绝象的访问。

英文版的错误信息如下:

Error Type:
Server object, ASP 0178 (0×80070005)
The call to Server.CreateObject failed while checking permissions. Access is denied to this object.

这是IIS中没有注册使用MS Excel的组件,所有在调用时会出错。

解决办法如下:

开始->运行->dcomcnfg (打开组件服务)

在DCOM配置中找到”Microsoft Excel 应用程序”(这个名称取决于你调用的Object是什么),

然后右键->属性->安全 在“启动和激活权限”框中点击“编辑”把三个权限都给everyone(window 2000系统) 即可。其实第一个Launch & activate就行了。

因为我用的是XP系统,找不到Everyone,所以我添加了IIS默设用户:IUSER/your user,即 如果找不到该用户可点击“添加”->“高级”,用“立即查找”找到相应的用户。在XP中是在权限选择框中把“本地启动”和“本地激活”允许权限打√。

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/jtql420603/archive/2006/10/16/1336406.aspx

分享到:
评论

相关推荐

    CreateObject(Excel.Application)报错解决方法-win10.rar

    office已安装,但运行Variant::CreateObject("excel.application")仍报错。 目前对一台win10_64电脑,已解决了此问题……

    ASP操作EXCEL常见错误

    ASP操作EXCEL常见错误 错误一: Microsoft VBscrīpt 运行时错误 错误 '800a01...ActiveX 部件不能创建对象: 'Excel.Application' 错误二: Microsoft VBscrīpt 运行时错误 (0x800A0046) 没有权限: 'CreateObject'

    IIS无法访问asp!提示:Server Application Error

    2、把Set rs=Server.CreateObject("ADODB.Recordset")放在页面最顶部,每个都可以调用,把其他多余的删掉 或者:在页面中显式地释放资源: rs.close set rs=nothing conn.close set conn=nothing

    响应createobject隐式调用dll事件.rar

    程序功能很简单,但因为N不确定性,并且可能随时可能增加,所以只能用CreateObject隐式调用DLL,在网上搜索了很久都没找到可响应隐式调用DLL事件的例程。经过反复摸索终于弄出了个模板。希望对需要的人有帮助。

    asp提示Server 对象 错误 ASP 0178 : 80070005

    错误提示: Server 对象 错误 ‘ASP 0178 : 80070005’ Server.CreateObject 访问错误 ../asp.asp,行 123 检查权限时,对 Server.CreateObject 的调用失败。拒绝对此对象的访问。 错误如提示,存在以权限。 解决方法...

    实习光盘中实习三发布中可能遇到的问题

    检查权限时,对 Server.CreateObject 的调用失败。拒绝对此对象的访问。/helloworld/helloworld.asp, 第 53 行 这里将解决方法,用附件上传贴图: 其中,权限问题1.jpg和权限问题2.jpg,是解决问题的两个方案,二...

    Microsoft.ApplicationBlocks.Common.zip

    ApplicationBlocks是微软开发的一款访问数据库的很好用的程序

    VB与EXCEL无缝操作

    Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见(或不可见) Set xlSheet ...

    VBS连接EXCEL及其操作

    oExcel = CreateObject( "Excel.Application" ) 1) 显示当前窗口: oExcel.Visible = True 2) 更改 Excel 标题栏: oExcel.Caption = "应用程序调用 Microsoft Excel" 3) 添加新工作簿: oExcel.WorkBooks.Add 4) ...

    Excel VBA语句集

    (201) Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Add ‘创建Excel工作簿 (202) Application.ActivateMicrosoftApp xlMicrosoftWord '开启Word应用程序 (203) Application....

    怎样使用vb编写程序把两个excel内容进行对比

    Set xls_app = CreateObject("Excel.Application") Set xls_book = xls_app.Workbooks.Open(文件名)'文件名包含完整路径! Set xls_sheet = xls_book.Worksheets(1)'后面的1是指excel的工作表,1为第一张,以此类推 ...

    PS与OFFICE两环境下与PADS-layout软件座标导出+BOM导出软件自动关联

    卸载了office后,装了WPS发现BOM和座标导出都出错了;修改了宏处理文件,WPS与OFFICE两环境下与PADS-layout软件...将: Set xl = CreateObject("Excel.Application") 改成:Set xl = CreateObject("Et.Application")

    同一文件夹下的多个excel文件的同一位置的批量修改工具

    Set ex = WScript.CreateObject("Excel.Application") ex.Application.DisplayAlerts = False ex.Visible = False For Each f In gf.Files If LCase(so.GetExtensionName(f.Name)) = "xls" Then

    VB中读取EXCEL源码

    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 xlApp.Visible = False '设置EXCEL不可见 Set xlBook = xlApp.Workbooks.Open(App.Path & "\data.xls") '打开EXCEL工作簿 Set xlsheet = ...

    Excel VBA 基础教程

    目 录 一、VBA语言基础...................................................................................................................1 第一节 标识符....................................................

    EXCEL编程VBA高级教程

    1.2EXCEL环境中基于应用程序自动化的优点................................................................................1 1.3录制简单的宏....................................................................

    Wscript.shell对象手册

    Wscript.shell对象用于asp里web访问与桌面程序交互.创建方法: set objname=server.createobject("wscript.shell")

    VFP操作EXCEL

    myexcel=createobject('excel.application') &&创建一个对象 myexcel.visible=.t.&&可见 &&bookexcel=myexcel.workbooks.add bookexcel=myexcel.workbooks.open("C:\Documents and Settings\Administrator\桌面\学习...

    (转)VBS导excel.txt

    Set oExcel= CreateObject("Excel.Application") Set oWb = oExcel.Workbooks.Open("E:\其他\新装电话表.xls") Set oSheet = oWb.Sheets("Sheet1") MsgBox oSheet.Range("B2").Value '#提取单元格B2内容 '.....

    vbs 中调用shell.application 简单函数

    vbs实现的调用系统命令执行的函数,可以根据用户选择运行指定的程序

Global site tag (gtag.js) - Google Analytics