).
Надо достать значения ячеек из указанной (по порядковому номеру) таблицы в документе. Желательно функцией вида strCell = GetCellValue (1,1).
Изыскания приводят в такую сторону:
- Код: Выделить всё
Private hBrowser As New InternetExplorer
Private hCode As New MSHTML.HTMLDocument
Private hTable As New MSHTML.HTMLTable
Private e As MSHTML.HTMLGenericElement
'...
hBrowser.navigate "www.ya.ru"
Do While hBrowser.Busy = True
DoEvents
Loop
For Each e In hBrowser.document.All
If e.tagName = "TABLE" Then
Set hTable = e
End If
Next
Потом, по методике с http://am.rusimport.ru/MsAccess/f2.aspx?type=1&id=17158, нужно руками перебирать все теги <tr> и <td>, что не очень-то хочется. В объектной модели IHTMLTable отсутствует конструкция вида Cell(RowIndex, ColIndex).
Перебирать теги ручками или есть альтернатива?
