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
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
转载于:https://www.cnblogs.com/heaven-liu/archive/2013/03/05/2945181.html