Как нажать на кнопку с помощью 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