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

我有一個與此類似的問題。 davidj 的回答幫助我找到了解決方案。 我沒有更改文件名，但我通過 excel 將文件保存在 VBA 中。 我通過 vbscript 而不是通過 VBA 保存了文件，並且錯誤停止出現在我面前。

Answer 3

我的宏也使用Activeworkbook.Close關閉 Excel，VBScript 也關閉了未打開的 Excel 應用程序，因此給了我錯誤： objExcel.Application.Quit 。 所以我從宏中刪除了ActiveWorkbook.Close ，現在它工作正常。