Это своего рода репост, чтобы реорганизовать мой вопрос, но:

Я пытаюсь сопоставить текст ячейки B1 моей таблицы со всеми ячейками в 10-м столбце таблицы на веб-странице. Если есть совпадение, я хочу скопировать текст строки 4 ячейки. Пока что у меня есть:

Dim colRows As Object
Dim objDataGrid As Object
Dim xobj1 As Object
Dim xcel As Object

Set objDataGrid = IE.Document.getElementById("DataGridReservations")
Set colRows = objDataGrid.getElementsByTagName("tr")

For Each element In colRows
    Set xcel = colRows.getElementsByTagName("td")
        If Range("B1").Text = xcel.Item(9).innertext Then
        Range("H" & (ActiveCell.Row)) = xcel.Item(3).innertext
        Else
        Range("H" & (ActiveCell.Row)) = "0"
        End If
Exit For

Next

Я получаю сообщение об ошибке на линии

set xcel = colRows.getElementsByTagName....

Выдернуть мои волосы. Кроме того, просто чтобы быть уверенным, что элемент «Для каждого элемента в colRows» будет ссылаться только на «getElementsbyTagName (« tr »)», который я определил в наборе colRows. это также не подхватит тэги td, заключенные в скобки в tr, верно?