NextSibling.Innertext无法正常工作。 “对象不支持此属性”

Question

目标：我正在尝试从一个网站中提取200种证券的买入价。我的代码如下所示，仅提取一种证券，但没有包括所有200种证券的较大循环。

问题：我正在尝试使用Excel VBA拉下价格所在的td标签的内文。这个想法是遍历HTML文档中的所有TH标签，一旦找到“ Bid”，它将提取下一行代码的内文。但是，我因VBA注释“对象不支持此属性”而失败。而且不确定为什么。

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

Answer 1

For Each Node In elementOne 

If Node.innerText = "Bid" Then 

Cells(a, 2) = Node.ParentNode.querySelector("td").innerText 
'This pulls the Bid Price 8.745

再次感谢大家的帮助，尤其是SIM！

p.s。我将继续学习如何正确格式化，现在，我只想表达我的感激之情。