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

名前

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

本文 コードは間違ってないと思います。 でも、オブジェクトの消滅と検索しかたの関係で、 検索と消滅を分けて行わないと上手く行かないと 思います。 'IE検索 'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Application") 'IEウィンドウ数初期化 intIEcnt = 0 'ウインドウの数だけまわす For Each objWindow In objShell.windows 'MsgBox TypeName(objShell.windows) 'Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then 'オブジェクトを代入する Set objIE(intIEcnt) = objWindow intIEcnt = intIEcnt + 1 End If Next Set objShell = Nothing 'IE終了 '発見したウインドウの数だけまわす For i = 0 To (intIEcnt - 1) objIE(i).Quit '.quitメソッド Next i