vba访问内嵌框架解决方法

vba访问内嵌框架
如题，vba访问内嵌框架，获得网页文档
------解决方案--------------------

Sub 比如说()

    On Error Resume Next

    With CreateObject("internetexplorer.application")

        .Visible = True

        .Navigate "http://bbs.****.net/topics/390501860"

        Do Until .ReadyState = 4

            DoEvents

        Loop

       Debug.Print .document.frames(4).document.body.innerText

    End With

End Sub