IE VBA открыть веб-страницу, равную нажатию на первую ссылку веб-страницы

Question

Я пытаюсь автоматизировать заполнение транзакции на ряде веб-страниц с помощью Internet Explorer и MS-Access VBA. Я сделал довольно много из этого, но я нахожусь в тупике на этой паре страниц. Я использую такой код:

Set htmlDoc = ie.Document
With htmlDoc
    Set e = .getElementById("j_idt31_data")
    If e Is Nothing Then GoTo FileAppeal_Error
    Set elems = e.getElementsByClassName("ui-widget-content ui-datatable-odd ui-datatable-selectable")
    For Each e In elems
        If InStr(1, e.innerText, "Evans ") > 0 Then
            e.Click
            Exit For
        End If
    Next

Конец

Я начинаю на этой странице: https://boe.shelbycountytn.gov/eFile/taxrep.xhtml, нажмите на одну из переключателей слева, затем нажмите [Отправить], и я https://boe.shelbycountytn.gov/eFile/search.xhtml

Но я не могу понять, как программно заставить кнопку [Submit] добиться успеха. Когда я программно нажимаю на него, я получаю сообщение об ошибке «Требуется налоговый представитель».

Предложения с благодарностью.

Answer 1

    Dim elems As MSHTML.IHTMLElementCollection, i As MSHTML.HTMLInputElement        
    Set elems = HTMLDocument.getElementsByClassName("ui-icon-blank")
    Set i = elems(1) 'this gets the second option in the list
    i.Click

Answer 2

Я сделал это, используя Селен Базовый . Загрузите и добавьте ссылку на библиотеку типов селена.

Option Explicit
Public Sub test()
    With New ChromeDriver
         .Start "Chrome"
         .Get "https://boe.shelbycountytn.gov/eFile/taxrep.xhtml"
         .FindElementByCss("span.ui-radiobutton-icon.ui-icon.ui-icon-blank").Click
         .FindElementByCss("span.ui-button-text.ui-c").Click     
    'other code
    Stop
    .Quit
    End With
End Sub