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

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("frm_tt1").document.body.innerText

    End With

End Sub

Sub 再或者说()

    With CreateObject("internetexplorer.application")

        .Visible = True

        .Navigate "http://sh.189.cn/"

        Do Until .ReadyState = 4

            DoEvents

        Loop

         .document.frames("rechargeOrLogin").frames(0).document.body.All.tags("a")(0).Click

    End With

End Sub

补充：VB ,  VBA

上一个：vb基础问题求解
下一个：VB 获取 密码键盘的输入信息