VBS Excel.Application.Workbooks運行時錯誤800A0007內存不足

Question

我所有的腳本都停止工作，並返回800a0007 Out of Memory運行時錯誤。 到今天為止一切都很好。 系統沒有重大變化（Win 7 64位），我什至卸載了最新更新。

基本上，腳本是打開Excel實例，然后打開工作簿並刷新所有ODBC和Pivots。 打開excel和工作簿工作正常，腳本嘗試對工作簿進行操作時出現問題。

我寫了簡單的代碼（它打開了空的現有excel文件），在這種情況下，在第8行發生了錯誤：設置oWorkbook = .Workbooks（workbookName）。

excelFileLocation = "D:\files\"
workbookName = "test.xlsx"
Set oExcApp = CreateObject("Excel.Application")
With oExcApp 
    .Application.DisplayAlerts = False
    .Application.ScreenUpdating = False
    .Workbooks.Open excelFileLocation & workbookName
    Set oWorkbook = .Workbooks(workbookName)
    .Application.Quit
End With

磁盤上，物理內存，頁面文件中有足夠的空間...從System32和SysWOW64運行cmd / cscript時出錯。

當然，我可以手動運行Excel，打開工作簿，刷新所有內容，保存文件，並且一切正常。

請幫我解決這個問題。

Answer 1

我已經找到解決方案-奇怪的故事...

我在Windows事件查看器中檢查了“應用程序日志”。 有日志說Skype for business已卸載。 另一則日志顯示，與此同時（也是從MsiInstaller中）觸發了配置Office組件和其他一些MS Office事情。

因此，我禁用了WMI服務（我早些時候已經重新啟動了WMI，但是它沒有任何改變），再次安裝了Skype以強制重新配置某些內容，重新啟動了計算機，並啟動了WMI服務。 現在一切正常。

看起來刪除Skype for Business是一個重大更改:)或這僅僅是巧合...