1

我正在尝试学习如何使用 Excel VBA 从 HTML 解析数据。所以我在网上找到了一个可以正常工作的示例，但是当我将 URL 地址从www.yahoo.comC 上的本地 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
4

1 回答 1

0

对于 IE，只需使用：

URL = "c:\test.html"
于 2013-09-13T14:57:46.260 回答