Excel VBA, чтобы щелкнуть элемент в HTML-классе Div

Question

Я новичок, работающий в своей первой веб-автоматизации с Excel VBA. До сих пор мне удавалось добиться прогресса, но я застрял при попытке нажать на кнопку, похожую на кнопку на веб-сайте. Пожалуйста, дайте мне знать, если вы можете мне помочь, я ценю это. Спасибо! Конкретный элемент находится внутри тега в HTML-коде ниже:

<div class="sh-c-btn-group">
    <input name="pf.ok" type="hidden" value="">
    <input name="pf.cancel" type="hidden" value="">
    <a title="Sign In" class="sh-c-btn sh-c-btn--primary" onclick="postOk();">Sign In</a>
</div>

Answer 1

Jenn & Jumpgroup, большое спасибо за помощь :) удалось сделать это с помощью следующего цикла, получив заголовок и имя класса:

Dim HTMLas As MSHTML.IHTMLElementCollection
Dim HTMLa As MSHTML.IHTMLElement

Set HTMLas = HTMLDoc.getElementsByTagName("a")

For Each HTMLa In HTMLas
    If HTMLa.getAttribute("title") = "Sign In" And HTMLa.getAttribute("classname") = "sh-c-btn sh-c-btn--primary" Then
        HTMLa.Click
    Exit For
    End If
Next HTMLa

Answer 2

Вы можете избежать зацикливания, используя метод querySelector ...

HTMLDoc.querySelector("a[title='Sign In']").click

Answer 3

Этот код повторяется до тех пор, пока страница не будет загружена: Do Dovents Loop Пока objIE.readystate = 4