从HTML复制数据
从HTML复制数据
提问于 2013-09-13 22:52:20
我正在尝试学习如何使用Excel VBA解析HTML中的数据。所以我在网上找到了一个例子，它工作得很好，但是当我在C上把网址从www.yahoo.com改成本地超文本标记语言文件时，它给了我错误，即对象'IwebBrowser2‘的方法'busy’失败。代码为：
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回答 1
Stack Overflow用户
发布于 2013-09-13 22:57:46
对于IE，只需使用：
URL = "c:\test.html"页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/18789316
复制相关文章
相似问题