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

Question

我最近继承了一个 Classic 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 运行时错误“800a03ec”

未知的运行时错误：'Workbooks.Add'

/Test.asp，第 8 行

我意识到 Office 自动化不是 Microsoft 推荐的方法，但与此同时，我想知道社区是否可以帮助解决此错误，因为我已经阅读了无数可能修复的博客文章，但都没有奏效.有关信息，我还让基础架构团队修复了 Office 安装并重新启动了服务器。

Answer 1

尝试改变

Set WB = xlapp.Workbooks.Add(xlWorksheet)

到

Set WB = xlapp.Workbooks.Add()