DOM MSHTML как получить Hyperlinks ot сells?

[xenomorph]

Привет Всем!

Пишу программу автоматической обработки данных с googl-a.
Использую DOM MSHTML.

Код:

Код: Выделить всё

'-----------------------------------------------------------------
    'Tables and Cells:
    For i = 10 To 19
        For Each obj_Cell In obj_HTMLDoc.All.tags("TABLE")(i).cells
            'Debug.Print obj_Cell.innerText
            tb_Out2 = tb_Out2 & vbCrLf & "--------------------------" & vbCrLf & obj_Cell.innerText
        Next obj_Cell
    Next i
'-----------------------------------------------------------------

Он получает 10 ячеек с информацией.

Проблема:
Как получить гиперлинки от ячеек?
В каждой из них - минимум 1 гиперлинк.
+ хотелось бы получить всё остальное - Cashed etc ...

Проєкт и тестовая страница с гугла прилагаються.
--
Заранее огромное спасибо!

[ALX_2002]

Код: Выделить всё


Private Sub ParseDocument()
   
Dim obj_Link As MSHTML.HTMLLinkElement
    On Error GoTo MEH
    Dim i As Long
    '--------------------------------------------------------------
    'Tables and Cells:
    For i = 10 To 19
        For Each obj_Cell In obj_HTMLDoc.All.tags("TABLE")(i).cells
            'Debug.Print obj_Cell.innerText
            tb_Out2 = tb_Out2 & vbCrLf & "--------------------------" & vbCrLf & obj_Cell.innerText
           
            For Each obj_Link In obj_Cell.All.tags("A")
               Debug.Print obj_Link.outerHTML
            Next
       
        Next obj_Cell
    Next i
    'Hyperlinks:
    obj_HTMLDoc.All.tags ("")
    '--------------------------------------------------------------
    Exit Sub
MEH:
    'Debug.Print "Error!"
End Sub



Как то так ?

[xenomorph]

Самое ОНО!
Большое сПааааасибо! !