如何使用VBA单击网页上的按钮（名称隐藏）？

Posted 2021-04-03

我的代码如下。它打开浏览器，填写表单，但我无法点击按钮。源中没有按钮名称或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