Почему я не могу нажать кнопку «Отправить» (91 ошибка 438, ошибка VBA)? - PullRequest
0 голосов
/ 04 марта 2019

Я пытаюсь заполнить форму на странице интрасети, но не могу понять, как нажать следующую кнопку.

Вот мой код:

Option Explicit

Sub GetLTRTable()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.application")

    ie.Visible = True
    ie.navigate "myurl"

    Do Until ie.ReadyState = READYSTATE_COMPLETE
      DoEvents
    Loop

    Dim organization As Object
    Set organization = ie.Document.all.Item("Org")
        organization.selectedindex = 0

    ie.Document.getelementsbyname("CR1").Item(1).Checked = True
    ie.Document.getelementsbyname("CR2").Item(6).Checked = True   
    ie.Document.getelementsbyname("next").Click
End Sub

Вот мой HTML-код:

<p><input type="submit" value="Cancel" name="Action"> <input type="submit" value="Next" name="Action"> </p>

Я получаю следующую ошибку:

Ошибка 438 «Объект не поддерживает это свойство или метод»

или:

ошибка 91 "Переменная ошибки или переменная объекта не задана"

в строке ie.Document.getelementsbyname("next").Click, если я использую getelementsbyid или all.item

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...