高分！！谁能用VBA获得IE浏览器showModalDialog打开的模态窗口，对象 VBA HTMLDocument

Private Sub process(ByRef WB As WebBrowser)

    Dim Doc As HTMLDocument

    Dim Root As HTMLHtmlElement

    

    Set Doc = WB.Document

    Set Root = Doc.getElementsByTagName("html").Item

    

    MsgBox Root.innerHTML

    



End Sub



Private Sub CommandButton1_Click()

    Dim SW As New ShellWindows

    Dim WB As WebBrowser

    

    For Each WB In SW

        If TypeOf WB.Document Is HTMLDocument Then

            process WB

        End If

    Next

    

    Set SW = Nothing

    Set WB = Nothing

    

End Sub