Как можно нажать кнопку на веб-сайте, используя VBA?

Question

У меня есть кнопка на веб-сайте, которую я хочу нажать, используя код VBA..Вот как выглядит HTML-код кнопки.

Я написал этот фрагмент кода, чтобы нажать кнопку

Set the_input_elements = objIE.document.getElementsByTagName("a")

For Each input_element In the_input_elements

  If input_element.className = "big_button" _
      And input_element.href = "javascript:changePageToFrontdoor(false);" Then

    input_element.Click
    Exit For

  End If

Next

Однако кнопка не нажимается.Нет сообщения об ошибке.Просто ничего не происходит со страницей.

Может кто-нибудь сказать мне, где моя ошибка?

Спасибо :)

Answer 1

Три как то так

Sub Login()
    Dim IeApp As InternetExplorer
    Dim IeDoc As Object
    Dim ieTable As Object
    Set IeApp = New InternetExplorer
        IeApp.Visible = True
            IeApp.Navigate "http://yourlink.com"
            Do While IeApp.Busy: DoEvents: Loop
            Do Until IeApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop
            Set IeDoc = IeApp.document
            Set the_input_elements = IeDoc.getElementsByClassName("big_button")
            For Each input_element In the_input_elements
                If input_element.href = "javascript:changePageToFrontdoor(false);" Then
                    input_element.Click
                    Exit For
                End If
            Next input_element
End Sub