VBS 运行 启用宏的工作簿错误 800A9C68
VBS Running Macro Enabled Workbook Error 800A9C68
我从互联网上拼凑的 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
这没什么大不了的，但有点烦人，因为它不会在第二天 运行 直到有人清除此错误的对话框。
任何有帮助的东西。
我刚刚在脚本中遇到了同样的问题，我在 sheet 中更新了数据，用不同的名称保存了文件，然后
ActiveWorkbook.Close
我认为问题在于，通过使用不同的名称保存文件，Excel 对 ActiveWorkbook 是什么感到困惑。我对 ThisWorkbook 有同样的错误。
我遇到了与此类似的问题。 davidj 的回答帮助我找到了解决方案。我没有更改文件名，而是将文件保存在 VBA 到 excel 中。我通过 vbscript 而不是通过 VBA 保存了文件，错误不再出现。
我的宏正在关闭 Excel 以及 Activeworkbook.Close
并且 VBScript 也在关闭未打开的 Excel 应用程序，因此给我错误：objExcel.Application.Quit。
所以我从宏中删除了 ActiveWorkbook.Close，现在它工作正常。
我从互联网上拼凑的 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
这没什么大不了的，但有点烦人，因为它不会在第二天 运行 直到有人清除此错误的对话框。
任何有帮助的东西。
我刚刚在脚本中遇到了同样的问题，我在 sheet 中更新了数据，用不同的名称保存了文件，然后
ActiveWorkbook.Close
我认为问题在于，通过使用不同的名称保存文件，Excel 对 ActiveWorkbook 是什么感到困惑。我对 ThisWorkbook 有同样的错误。
我遇到了与此类似的问题。 davidj 的回答帮助我找到了解决方案。我没有更改文件名，而是将文件保存在 VBA 到 excel 中。我通过 vbscript 而不是通过 VBA 保存了文件，错误不再出现。
我的宏正在关闭 Excel 以及 Activeworkbook.Close
并且 VBScript 也在关闭未打开的 Excel 应用程序，因此给我错误：objExcel.Application.Quit。
所以我从宏中删除了 ActiveWorkbook.Close，现在它工作正常。