Не удалось нажать на вторую кнопку на веб-странице интрасети

Question

Он не имеет ID элемент в второй элементы кнопки, кроме типа, значение и OnClick;

Ниже мой WebUI код

<input type="button" value="Download" 
onclick="javascript:__doPostBack('GridView1','Account_number$0')"> 

Ниже мой код VBA

Dim htmlDoc As HTMLDocument 
Dim MyBrowser As InternetExplorer 
Dim MyHTML_Element As IHTMLElement 
Dim myURL As String 

On Error GoTo Err_Clear 
myURL = "url......................." 
Set MyBrowser = New InternetExplorer 
MyBrowser.Silent = True 
MyBrowser.Navigate myURL 
MyBrowser.Visible = True 
Do 
Loop Until MyBrowser.ReadyState = READYSTATE_COMPLETE 
Set htmlDoc = MyBrowser.Document 

htmlDoc.all.txtAccNo.Value = "0" & "" & TextBox2.Value 
htmlDoc.all.ddlReasons.Value = "1" 
htmlDoc.all.txtRequester.Value = TextBox3.Text 'Enter your password here 
htmlDoc.all.txtMobNo.Value = "0" & "" & TextBox1.Value 
htmlDoc.all.txtLandLine.Value = "" 
htmlDoc.all.txtEmailAdd.Value = Range("E15") 
htmlDoc.all.ddlRelation.Value = "3" 
htmlDoc.all.button1.Click 

ошибка выдувного сценария второй кнопки

htmlDoc.getElementsByXpath("input[type=""button""]").Click 

Пожалуйста, помогите мне, как автоматизировать эту кнопку?

Answer 1

Когда я сталкиваюсь с этим, я пытаюсь найти уникальный атрибут для рассматриваемого вяза. Причина этого в том, что на странице могут быть другие кнопки, которые вы не хотите кликать. Похоже, onclick и value уникальны для кнопки «Загрузить». Я выбрал value. Вот отдельная функция (для ясности), которая должна работать. Он должен щелкнуть по первой загруженной кнопке «Загрузить». Вы можете настроить его нажатием кнопки определенной строки, изменив эту функцию.

Function ClickDownload(doc As IHTMLDocument) As Long 
    On Error GoTo ErrHandler 
    Dim elms As IHTMLElementCollection 
    Dim elm As IHTMLElement 

    Set elms = doc.getElementsByTagName("input") 'gather all input elms 
    For Each elm In elms 'book through each input elm until we find a match 
    If elm.Value = "Download" Then 'the elm.value "Download" seems unique enough 
     elm.Click 
     GoTo ErrHandler 'jump out, and be sure to set vars to nothing 
    End If 
    Next 

ErrHandler: 
    Set elm = Nothing 
    Set elms = Nothing 
    ClickDownload = err.Number 'silently return 0 if it did not fail 
End Function