我有一个要使用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
但是,这不是单击按钮。没有错误讯息。页面没有任何反应。
谁能告诉我我的错误在哪里?
谢谢:)
答案 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