Код не запускается после веб-автоматизации msgbox - PullRequest
0 голосов
/ 05 апреля 2019

Пожалуйста, я получил этот макрос, чтобы получить с веб-сайта много информации, для доступа к которой необходимо использовать цифровой сертификат.

Я запускаю макрос и останавливаю его с помощью msgbox. После входа в систему пользователь нажимает ok в msgbox, и код должен продолжить работу. Теперь я перешел в офис 2016 года, и он остановился, как будто он потерял соединение с браузером после нажатия msgbox.

Почему код останавливается в Office 2016?

Код:

Set appIE = CreateObject("InternetExplorer.Application")
With appIE
    .navigate URL
    .Visible = True
End With

MsgBox "Please, logon and ok."

Do While appIE.readyState <> READYSTATE_COMPLETE: Loop

Set doc = appIE.document
Set UserN = doc.getElementsByName("nrCE")
If Not UserN Is Nothing Then
    UserN(0).Value = ncem
End If
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...