未知的运行时错误:' Workbooks.Add' (800a03ec)

时间:2017-05-29 14:57:22

标签: vbscript asp-classic windows-server-2012-r2 office-automation

我最近继承了一个经典ASP,除其他外,它利用Excel办公自动化动态构建一个Excel文件,然后作为下载提供给用户。

该网站最近已转移到新的Windows Server 2012 R2服务器上,直到大约2周前才运行。

我已经与基础架构团队进行了交流,并且他们报告了大量的Windows更新(包括Office 2010 SP2),大约在报告网站问题的同时。

我已经隔离了asp vbscript(见下文),我可以用它来重新创建错误:

<%

Dim xlapp, WB
Const xlWorkSheet = -4167 

Set xlapp = Server.CreateObject("Excel.Application")
xlapp.ScreenUpdating = False
Set WB = xlapp.Workbooks.Add(xlWorksheet)

%>

我收到的具体错误是:

  

Microsoft VBScript运行时错误&#39; 800a03ec&#39;

     

未知的运行时错误:&#39; Workbooks.Add&#39;

     

/Test.asp,第8行

我意识到Office自动化不是Microsoft的推荐方法,但与此同时,我想知道社区是否可以帮助解决这个错误,因为我已经阅读了无数可能修复的博客帖子,其中没有一个工作过。有关信息,我还让基础架构团队修复Office安装以及重新启动服务器。

1 个答案:

答案 0 :(得分:0)

尝试更改

Set WB = xlapp.Workbooks.Add(xlWorksheet)

Set WB = xlapp.Workbooks.Add()