[VBA]_判断是否网页

    Dim Obj As Object
    On Error Resume Next
    For Each Obj In CreateObject("Shell.Application").Windows
        If TypeName(Obj.document) = "HTMLDocument" Then
            'Content
        End If
    Next