Excel 自動重新發布錯誤/自動關閉窗口

Question

我的一位同事有 9 個 Excel 工作簿，用於查詢生產伺服器、組織資料並輸出 .mht 作為生產工人的「儀表板」。

有的每 3 分鐘查詢一次，有的每小時查詢一次。

我們看到 2 個一般錯誤。

這個

和這個

實際上是在「無效的 Web 查詢」錯誤之後出現的，只有一個「確定」按鈕。

目前這並不是一個真正的問題，因為它很少發生，而且只有當它正在讀取的檔案被鎖定時才會發生。

第一個錯誤僅在目標檔案被鎖定時發生在儲存時。我在每本書中的每個保存巨集之前都放置了它Application.DisplayAlerts = False，但它並沒有消除最上面的錯誤。

我嘗試將中間文件放入混亂中，但沒有任何改善。

今天，我嘗試了這在 AutoIT 中它可以消除第二個錯誤，但正如作者所說，每個（我很確定）“鍵”組合都會失敗。

如果我讓它找到一般的 Excel，它會起作用，但這也會殺死我的工作表。

我可以並且確實每次都單擊“不顯示...”，但是當我們將更新推送到這台計算機並重新啟動它時，這些錯誤會再次出現，並且所有衝突可能需要幾天的時間才能顯示出來。

我可以做什麼來解決這個問題？

Answer 1

測試中可能的解決方案 - 使用下面的 If 語句圍繞 ActiveWorkbook.Save 並使用另一個子暫停。

Sub PUBLISH()
'Call TIME
Application.DisplayAlerts = False

If GetAttr("Z:\CHGME\_Production Scheduling\ADMIN\7 Day WIP.mht") And vbReadOnly Then
    Application.Run "Sheet1.WAITtoPUBLISH"
Else
    ActiveWorkbook.Save
End If
End Sub

`Private Sub WAITtoPUBLISH()    
Application.OnTime Now() + TimeValue("00:00:30"), "PUBLISH"
End Sub

到現在已經堅持了2天了。我仍然可以在正確的時機打破它，因此“等待關閉”選項可能是長期解決方案。