Excel VBA 单击 html div class 中的项目

Excel VBA to click item in html div class

我是一名新手,使用 Excel VBA 进行我的第一个 Web 自动化工作。 到目前为止,我能够取得进展,但一直无法尝试点击网站上看起来像按钮的东西。 如果你能帮助我,请告诉我,我很感激。谢谢! 特定元素位于以下 html 代码中的 a 标记内:

<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>

此代码循环直到页面加载完毕: 做 做事件 循环直到 objIE.readystate = 4

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

您可以使用 querySelector 方法避免循环...

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