NextSibling.Innertext не работает. «Объект не поддерживает это свойство»

Question

Цель: я пытаюсь извлечь цену предложения 200 ценных бумаг с веб-сайта. Ниже приведен мой код для извлечения только одной ценной бумаги, я не включил большую петлю для всех 200 ценных бумаг.

Проблема: я пытаюсь использовать Excel VBA, чтобы вытащить Innertexts тега 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. Я буду учиться правильно форматировать, а сейчас я бы хотел срочно выразить свою благодарность.