退出所有隐藏/不可见的窗口

Question

有时我会使用隐藏窗口的命令ie.visible = False，即使它仍然存在。

如何关闭所有隐藏的窗口？

我的实际解决方案是从我的计算机会话中注销并再次登录...可能有更好的方法来执行此操作。

我尝试了Set ie = Nothing或ie.Quit，但它不会影响隐藏的窗口，因为当我用它计算时

Set objShell = CreateObject("Shell.Application")
    IE_count = objShell.Windows.Count

他们还在那里。

关于如何做到这一点的任何想法？

Answer 1

我创建了几个隐藏的Internet Explorer窗口，并在开放的Internet Explorer窗口之前和之后进行了计数，下面的代码似乎有效：

Public Sub CLOSE_HIDDEN_IE()

    Dim IE As SHDocVw.InternetExplorer
    Dim SH As SHDocVw.ShellWindows

    Set SH = New SHDocVw.ShellWindows

    For Each IE In SH
    If IE.Visible = False Then
        IE.Quit
     End If
    Next

    Set IE = Nothing
    Set SH = Nothing

End Sub

代码循环通过开放的Internet Explorer窗口并关闭那些不可见的窗口。

如果您需要任何帮助，请尽快提供帮助。