使用VBA解析HTML文档

[yjq0812]

Sub test()
Dim ie, dmt, bd

Set ie = CreateObject("InternetExplorer.Application") '创建一个IE对象
With ie
.Visible = False '显示它
.navigate "E:\temp\divcss.html" '加载某个页面
Do Until .readyState = 4 '等待页面加载完毕
DoEvents
Loop
Set dmt = .document '将IE浏览器加载的页面文档，赋予dmt变量
'开始操纵页面，或者提取数据啦
Set bd = dmt.body
End With


End Sub