Требуется строка кода для нажатия на кнопку на сайте

Question

Я выполнил приведенный ниже код, но не могу понять, как нажать кнопку «Продолжить», кнопка, которую я пытался нажать,отмечены между стрелками на прикрепленном изображении.

Sub TDS_Autofill()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "https://onlineservices.tin.egov-nsdl.com/etaxnew/tdsnontds.jsp"
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop

Set doc = IE.document

End Sub

Answer 1

Если вы посмотрите на код этой кнопки, то это

<a href="javascript:sendRequest(281);" class="btn btn-info b-align ">Proceed</a>

, поэтому, если вы нажмете кнопку (которая на самом деле является просто ссылкой), она фактически запустит функцию JavaScript sendRequest(281). Поэтому все, что вам нужно сделать в VBA - это запустить именно эту функцию с

doc.parentWindow.execScript "sendRequest(281)", "JavaScript"

, и это будет иметь тот же эффект, что и нажатие на эту кнопку.

Option Explicit 

Public Sub TDS_Autofill()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "https://onlineservices.tin.egov-nsdl.com/etaxnew/tdsnontds.jsp"

    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    Dim doc As Object
    Set doc = IE.document
    doc.parentWindow.execScript "sendRequest(281)", "JavaScript"
End Sub