Я использую ту же форму пользователя Splash Screen в течение 3 лет в моей компании, но сегодня она начала выдавать ошибку Method 'Wait' of object '_Application' failed
.
Я предполагаю, что это связано с новой точкой обмена Microsoft (ранее мы использовали нашу внутреннюю точку обмена, а теперь использовали облако)
Я пытался искать на SO, но ничего не изменилось. (т.е.: Метод 'VBE' объекта '_Application' не выполнен )
Я пытался удалить лишний парантез, но без изменений ...
Я думаю о добавлении оператора On Error
, но если у меня не появляется всплывающая заставка, зачем мне этот код и пользовательская форма? Честно говоря, вместо заявления On Error
я хочу найти реальное решение.
Application.Wait (Now + TimeValue("00:00:01"))
SplashUserForm.Label1.Caption = "Opening..."
SplashUserForm.Repaint
Application.Wait (Now + TimeValue("00:00:01"))
Unload SplashUserForm
Application.OnKey "{F7}", "showContains"
* Ошибка приходит сразу, когда дело доходит до Application.Wait (Now + TimeValue("00:00:01"))
UPDATE
После рассмотрения предложения Stax согласно его комментарию после того, как я заменил объект Application
на CreateObject("Excel.Application")
, это решает первую проблему, которая является Wait
методом. Но тогда метод следующей строки OnKey
не работает с CreateObject("Excel.Application")
.