Vba使用HTML元素创建集合

Question

我正在尝试使用VBA捕获Web数据。

我有这样的HTML行：

ready

如何为＆＃34; tbody＆＃34;？创建一个集合？ （后来我想循环遍历它包含的所有元素（所有＆＃34; tr＆＃34;））。

Answer 1

这应该适用于您所追求的目标。基本上您要选择包含该表的元素，然后选择该表的所有TR。

更新以包括选择表格主体。

 dim Elements as Object

 Set Elements = Browser.Document.getElementsByClassName("mega-table")(0).getElementsByTag‌​Name("tbody")‌(0).getElementsByTag‌​Name("tr")‌

Answer 2

您可以使用CSS选择器：

cluster_domain = mycluster.icp  <----- could be "Mickey-mouse" for all it matters
cluster_CA_domain = icp.mycompany.com <----- the endpoint that portal/registry/api etc are accessible to users on

这将返回一个 nodeList 而不是一个“集合”；但您仍然可以循环播放其长度。

它表示在browser.document.querySelectorAll(".mega-table tbody tr") 的className（tr）的元素中的tbody标签中选择"."标签。

Answer 3

Sub IE()

'   Internet Controls Libraray
'   Microsoft HTML Controls Library

Dim I As SHDocVw.InternetExplorer
Dim D As HTMLDocument
Dim C As MSHTML.IHTMLElementCollection
Set I = New SHDocVw.InternetExplorer

I.Visible = True

I.Navigate ("http://www.stackoverflow.com")

While I.Busy Or I.ReadyState <> READYSTATE_COMPLETE
    DoEvents
Wend

Set D = I.Document

Set C = D.getElementsByTagName("TR")


End Sub