我的代码如下。它打开浏览器,填写表单,但我无法点击按钮。源中没有按钮名称或ID。
谢谢您的帮助。
梅利斯。
Dim htmlDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
Sub ICON()
Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
MyURL = "http://icon.icon-mng.com/login/"
Set MyBrowser = New InternetExplorer
MyBrowser.navigate MyURL
MyBrowser.Visible = True
Do
Loop Until MyBrowser.ReadyState = READYSTATE_COMPLETE
Set htmlDoc = MyBrowser.document
htmlDoc.all.login.Value = "xxx"
htmlDoc.all.pass.Value = "xxx"
For Each MyHTML_Element In htmlDoc.getElementsByTagName("input")
If MyHTML_Element Like "submit" Then MyHTML_Element.Click: Exit For
Next
End Sub
如果您提交尝试单击按钮的表单,则会更好。
With MyBrowser
.document.forms(0).submit 'your login form is indexed 0.
End With
您可以使用以下CSS选择器:
button[class='float-right']
这是button
标签,属性为class
,值为'float-right'。 “[]”表示属性。
在您的HTML上:
VBA:
您可以通过.selector
的document
方法应用css选择器。
.document.querySelector("button[class='float-right']").Click