Копировать данные из HTMLHtml

Программисты Html
Anonymous
Копировать данные из HTML

Сообщение Anonymous »

Я пытаюсь научиться анализировать данные из HTML с помощью Excel VBA. Поэтому я нашел один пример онлайн, который работает нормально, но когда я меняю адрес URL -адреса с www.yahoo.com на локальный файл html на C, он дает мне ошибку, т. Е. Метод «Занят» объекта 'iwebbrowser2' не удалось. код:

Sub GetBodyText()

Dim URL As String
Dim Data As String

URL = "file:///C:/test.html"

Dim ie As Object
Dim ieDoc As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.navigate URL

Do Until (ie.readyState = 4 And Not ie.Busy)
DoEvents
Loop

Set ieDoc = ie.Document

Data = ieDoc.body.innerText

'Split Data into separate lines
'or just use Range("A1")=data
Dim myarray As Variant
myarray = Split(Data, vbCrLf)

For i = 0 To UBound(myarray)
'Start writing in cell A1
Cells(i + 1, 1) = myarray(i)
Next

ie.Quit
Set ie = Nothing
Set ieDoc = Nothing

End Sub


Подробнее здесь: https://stackoverflow.com/questions/187 ... -from-html

Вернуться в «Html»