| koralek | Дата: Пятница, 22.03.2013, 16:51 | Сообщение # 1 |
|
Подполковник
Группа: Администраторы
Сообщений: 147
Статус: Offline
| - Открыть HTML файл из VBA код (с с)
- Доступ <td> теги, которые имеют определенный атрибут (а именно: класс = "Шрифт" ширина = "220")
- Скопировать значение этих ячеек таблицы в Excel клетки
Если при выполнении кода сообщение об ошибке: "User-defined type not defined", то In Tools - References in the VB Editor, tick MS Internet Controls, or Dim appIE As Object. Your code declares MSHTML objects so you also need the MS HTML Object Library reference.
Sub Extract_TD_text()
Dim URL As String
Dim IE As InternetExplorer
Dim HTMLdoc As HTMLDocument
Dim TDelements As IHTMLElementCollection
Dim TDelement As HTMLTableCell
Dim r As Long
'Saved from www vbaexpress com/forum/forumdisplay.php?f=17
URL = "http://www.vbaexpress.com/forum/forumdisplay.php?f=17"
Set IE = New InternetExplorer
With IE
.navigate URL
.Visible = True
'Wait for page to load
While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
Set HTMLdoc = .document
End With
Set TDelements = HTMLdoc.getElementsByTagName("TD")
Ëèñò1.Cells.ClearContents
r = 1
For Each TDelement In TDelements
'Look for required TD elements - this check is specific to VBA Express forum - modify as required
If TDelement.className = "alt2" And TDelement.Align = "center" Then
Cells(r, 1).Value = TDelement.innerText
r = r + 1
End If
Next
End Sub
|
| |
| |
