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
我是一名新手,使用 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