从HTML复制数据

我正在尝试学习如何使用Excel VBAparsingHTML中的数据。 所以我发现一个在线的例子，工作正常，但是当我从www.yahoo.com URL地址更改为C上的本地HTML文件，它给了我错误，即对象'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"