insertar una celda de tabla HTML en una celda de hoja de Excel sin ID

Estaba tratando de extraer una celda de una tabla HTML en una celda de Excel mediante el uso de una función. la mesa es así:

| 1Q | 2Q | 3Q | income | 23 | 34 | 22 | expenses | 11 | 19 | 10 | . . . 

No puedo obtener los elementos por id, así que creé dos loops para buscar elemento por elemento. el código puede encontrar los elementos (en mi caso, la palabra “gastos” col1 fila2) pero no sé cómo obtener el valor de la celda a la derecha (11 en este caso)

 Dim IE As Object Dim doc As Object Dim colTR As Object Dim colTD As Object Dim tr As Object Dim td As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "www.mywebpage.com" Do Until IE.ReadyState = 4 DoEvents Loop Set doc = IE.Document Set colTR = doc.GetElementsByTagName("TR") For Each tr In colTR Set colTD = tr.GetElementsByTagName("TD") For Each td In colTD If td.innertext = "expenses" Then TheValueIWant = tr.item(1).innertext End If Next td Next tr IE.Quit Set IE = Nothing Set doc = Nothing Set colTR = Nothing Set colTD = Nothing Set td = Nothing Set tr = Nothing 

gracias por adelantado

Scott tiene razón al decir que no hay razón para recorrer todos los tds.

  For Each tr In colTR If tr.Cells(0).innerText = "expenses" Then TheValueIWant = tr.Cells(1).innerText MsgBox TheValueIWant End If Next