- 日時: 2013/02/12 19:43
- 名前: 花ちゃん
- ***********************************************************************************
* カテゴリー:[インターネット][][] * * キーワード:閉じる,インターネットエクスプローラ,,,, * ***********************************************************************************
----------------------------------------------------------------- 投稿時間:2002/10/08(Tue) 11:25 投稿者名:K.J.K. タイトル:IEを終了させる ----------------------------------------------------------------- IEは、Explorerのプロセス内で動くので、その方法は使えないでしょう。
ShDocVw.dllを参照設定して、こんな感じで。
Dim objWindows As ShellWindows Dim objIE As InternetExplorer Dim lngLoop As Long
Set objWindows = New ShellWindows For lngLoop = objWindows.Count - 1& To 0& Step -1& Set objIE = objWindows.Item(lngLoop) If ("HTMLDocument" = TypeName(objIE.Document)) Then Call objIE.Quit End If Set objIE = Nothing Next Set objWindows = Nothing
|