すべての非表示/非表示のウィンドウを終了

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のウィンドウをループ表示されていないものを閉じます。

何か必要な場合はお気軽にお問い合わせください。