Excel AutoRepublish ошибка / Автоматическое закрытие окон

Question

У одного из моих коллег есть 9 книг Excel, которые запрашивают производственный сервер, организуют данные и вывод .mht как «инструментальные панели» для рабочих.

Некоторые из них запрашивают каждые 3 минуты, некоторые - только каждый час.

Мы видим 2 общих ошибки.

Вот этот

и этот

что на самом деле происходит после ошибки "Invalid Web Query" только с кнопкой "OK".

На данный момент это не проблема, так как это происходит редко, и только когда файл, который он читает, заблокирован.

Первая ошибка возникает только при сохранении, когда целевой файл заблокирован. Я поставил Application.DisplayAlerts = False перед каждым макросом сохранения в каждой книге, но он не избавился от основной ошибки.

Я попытался положить промежуточный файл в беспорядок, и не было никаких улучшений.

Сегодня я попробовал это в AutoIT, и оно может убить вторую ошибку, но не с каждой (я уверен) комбинацией «ключей», как выразился автор.

Это работает, если у меня есть, это ищет Excel вообще, но это убивает мой лист также.

Я могу и каждый раз нажимать кнопку «Не показывать ...», но когда мы загружаем обновления на этот компьютер и перезагружаем его, эти ошибки возвращаются, и могут пройти дни, чтобы все конфликты проявились.

Что я могу сделать, чтобы решить эту проблему?

Answer 1

Возможное решение в тестировании - окружение ActiveWorkbook.Сохраните с приведенным ниже оператором If и используйте другую подпрограмму для приостановки.

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 дня держится. Я все еще могу сломать его с правильным временем, поэтому вариант "Ждать до закрытия" может быть долгосрочным решением.