VBからIEを閉じる (ID:91273)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Command1で複数のIEを開き、Command2ですべてのIEを閉じたいと思います 下記のソースだと、IEが3つまでなら正常に動くのですが、 IEが4つ以上になると、開いたIEの一部しか閉じなくなってしまいます j = objShell.Windows.Count で、オブジェクトの数が正しいことは確認できるのですが For Each objWindow In objShell.Windows で、IEの数の分だけループしないようです ソースにおかしなところがあるようでしたらご指摘願えませんでしょうか よろしくお願いします Private Sub Command1_Click() Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.navigate "http://madia.world.coocan.jp/" End Sub Private Sub Command2_Click() Dim objShell As Object Dim objWindow As Object Dim objIE As Object Dim j As Integer Set objShell = CreateObject("Shell.Application") j = objShell.Windows.Count Debug.Print j For Each objWindow In objShell.Windows If TypeName(objWindow.document) = "HTMLDocument" Then Set objIE = objWindow objIE.Quit End If Next Set objShell = Nothing End Sub