как ввести значение в материалы сайта по Excel VBA - PullRequest
Новая
       32

как ввести значение в материалы сайта по Excel VBA

0 голосов
/ 23 декабря 2019

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

Sub Button3_Click()



On Error GoTo Err_Clear
sURL = "http://103.215.211.2/Web/Account/Login?ReturnUrl=%2fWeb%2f#25/-3/"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.Navigate sURL
oBrowser.Visible = True

Do
' Wait till the Browser is loaded
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLdoc = oBrowser.Document

HTMLdoc.all.UserName.Value = "abc"
HTMLdoc.all.Password.Value = "abc123"

HTMLdoc.all.units -grid - Search - Filter.Value = "123"

For Each oHTML_Element In HTMLdoc.getElementsByTagName("input")
Debug.Print oHTML_Element.Name
Next
Set frm = HTMLdoc.forms(0)

frm.submit

Set IE = CreateObject("InternetExplorer.Application")

' oBrowser.Refresh ' Refresh If Needed
Do Until Not IE.Busy And IE.readyState = 4
        DoEvents
    Loop




e.Click

Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If

End Sub

enter image description here

...