Скопировать данные из HTML

Question

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

Answer 1

Для IE, просто используйте:

URL = "c:\test.html"