投稿日 | : 2002/10/08(Tue) 11:25 |
投稿者 | : K.J.K. |
Eメール | : akiya@koalanet.ne.jp |
URL | : |
タイトル | : Re: 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