如何使用VBA在网站上单击按钮?

时间:2019-06-13 14:46:42

标签: html vba button

我有一个要使用VBA代码单击的网站上存在的按钮。 image 1。这就是按钮的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

但是,这不是单击按钮。没有错误讯息。页面没有任何反应。

谁能告诉我我的错误在哪里?

谢谢:)

1 个答案:

答案 0 :(得分:0)

像这样的东西

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