用不着那么复杂[code=VB] Dim objDoc As MSHTML.HTMLDocument
Dim tmpDoc As MSHTML.HTMLDocument
Dim objFrame As MSHTML.HTMLFrameElement
'取浏览器的文档接口
Set tmpDoc = Webbrowser.document
'枚举所有框架
For Each objFrame In tmpDoc.frames
'获取该框架的文档
Set objDoc = objFrame.document
'获取该框架文档的HTML代码
Debug.Print objDoc.body.outerHTML
Set objDoc = Nothing
Next
Set tmpDoc = Nothing[code]
Dim tmpDoc As MSHTML.HTMLDocument
Dim objFrame As MSHTML.HTMLFrameElement
'取浏览器的文档接口
Set tmpDoc = Webbrowser.document
'枚举所有框架
For Each objFrame In tmpDoc.frames
'获取该框架的文档
Set objDoc = objFrame.document
'获取该框架文档的HTML代码
Debug.Print objDoc.body.outerHTML
Set objDoc = Nothing
Next
Set tmpDoc = Nothing[code]
olelib其实就是封装的api库