VBS运行启用宏的工作簿错误800A9C68

Question

我从互联网上拼凑的VBS脚本有一个小问题。

Dim xlApp, xlBook

Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.Open("LOCATION", 0, True)

xlapp.Visible = True
xlApp.Run "RefreshAdj"
xlBook.Close False
set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
WScript.Echo "Finished."
WScript.Quit

它将在任务调度程序之外运行，但它总是给出此错误。

Line: 11
Char: 1
Error: Unknown runtime Error
Code: 800A9C68
Source: Microsoft VBScript runtime Error

这没什么大不了的，但有点烦人，因为在有人清除此错误的对话框之前，它第二天不会运行。

Answer 1

我刚刚在一个脚本中遇到了同样的问题，我更新了工作表中的数据，用不同的名称保存了文件，然后进行了

ActiveWorkbook.Close

我认为问题是，通过用不同的名称保存文件，Excel不知何故会混淆ActiveWorkbook是什么。我在ThisWorkbook中也遇到了同样的错误。

Answer 2

我的宏也正在使用Activeworkbook.Close关闭ExcelVBScript也正在关闭未打开的Excel应用程序，因此给我错误：objExcel.Application.Quit。所以我从宏中删除了ActiveWorkbook.Close，现在它工作得很好。