如何使用vba excel单击按钮

Question

我无法点击“获取详细信息”按钮。

HTML标记如下所述

<button class="btn btn-success">Get Details</button>

码：

Sub chromAuto()

    Dim obj As New WebDriver
    obj.Start "chrome"
    obj.Get "websitedetails"
    obj.FindElementById("asin").SendKeys (ThisWorkbook.Sheets("Sheet1").Range("A2").Value)

End Sub

Answer 1

这取决于这个课程有多少项目。更快的方法是使用css选择器，例如

用硒

obj.FindElementByCss(".btn-success").click

nodeList中有多个元素索引

obj.FindElementsByCss(".btn-success")(1).click '1 is an example index

使用ie和Microsoft Internet Controls

ie.document.querySelector(".btn-success").click

Answer 2

不太确定HTML环境，但您可以尝试以下方法：

Dim ie_obj As Object
Set ie_obj = CreateObject("InternetExplorer.Application")
ie_obj.Visible = True

ie_obj.Navigate "www.somesite.com"

Do While ie.READYSTATE = 4: DoEvents: Loop

ie.Document.getElementsByClassName("my_name")(0).getElementsByTagName("a")(0).click