Я пытаюсь заполнить форму на странице интрасети, но не могу понять, как нажать следующую кнопку.
Вот мой код:
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
