Я пытаюсь научиться анализировать данные 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
