目标:我试图从网站上提取 200 种证券的投标价格。
问题:我正在尝试提取价格所在的 td 标签的内部文本。
这个想法是遍历所有 TH 标签的 HTML 文档,一旦找到“Bid”,就提取下一行代码的内部文本。
VBA 错误
“对象不支持此属性”
我的代码用于提取一种安全性。我没有包括所有 200 种证券的更大循环。
Set objHTML = objIE.document
Set Mytext = objHTML.getElementsByTagName("Th")
For Each Node In Mytext
If Node.innertext = "Bid" Then
BidPrice = Node.NextSibling.innertext
Cells(a, 2) = BidPrice
Exit For
End If
Next Node
