vba访问内嵌框架解决方法

vba访问内嵌框架
如题，vba访问内嵌框架，获得网页文档
[解决办法]

Sub 比如说()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://bbs.csdn.net/topics/390501860"
        Do Until .ReadyState = 4
            DoEvents
        Loop
       Debug.Print .document.frames(4).document.body.innerText
    End With
End Sub