getElementById - удаленный сервер не существует или недоступен

Question

Я пытаюсь перейти на онлайн-сервер с кодом ниже, но по какой-то причине я получаю сообщение об ошибке, что сервер не существует или недоступен. Страница открывается, так что я думаю, что у нее есть доступ, но она не может перемещаться? Любые предложения о том, почему это не удается и как это исправить? Я протестировал код на обычном веб-сайте, и в этом случае он работает.

Sub URL_Nav()

'Dim obJIE As Object

Set obJIE = CreateObject("InternetExplorer.Application")

obJIE.Visible = True


obJIE.Navigate2 ("http://...")

    Application.Wait (Now + TimeValue("0:00:05"))

obJIE.document.getElementById("docTypeForm:documentTypesTbl:137:n").Click

End Sub

Answer 1

Хорошо, я наконец нашел решение:)

Set obJIE = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")

Здесь вы можете найти объяснение, он будет использовать InternetExplorerMedium через класс: Управление Inte * rnet Explorer локальный int anet с использованием Excel VBA