Excel VBA IEの終了方法は？

お世話になっています。
検索しましたが判らなかったので質問します。

VBAでIEを起動します。

Sub IE起動()

Set IE = CreateObject("internetExplorer.application")
IE.Visible = True
IE.navigate ("http://www.goo.ne.jp")

End Sub

ここまでは出来ました。

--<質問内容>------
では、IEを終了するには？

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2008/07/06 23:10

IE.Quit です。

http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/object/ …

この回答への補足

有難う御座いました。
終了する事が出来ました。

もう一つ教えてもらえますか？

Sub IE起動()

Set IE = CreateObject("internetExplorer.application")
IE.Visible = True
IE.navigate ("​http://www.goo.ne.jp")​

Set IE = CreateObject("internetExplorer.application")
IE.Visible = True
IE.navigate ("​http://www.yahoo.co.jp")​

End Sub

www.goo.ne.jp だけ終了する事は可能ですか？

別質問みたいですみません。

補足日時：2008/07/06 23:29

この回答へのお礼

本質問の答えは
Quit
有難う御座いました。
別質問を立ててしまいました。
すみませんでした。

お礼日時：2008/07/07 20:20

No.2 回答者： noah7150 回答日時： 2008/07/07 09:27

いやいや、別質問ですね！？。

まぁ、いいか。

起動を別変数にしましょう。

Set IE = CreateObject("internetExplorer.application")
IE.Visible = True
IE.navigate ("http://www.goo.ne.jp")

Set IE2 = CreateObject("internetExplorer.application")
IE2.Visible = True
IE2.navigate ("http://www.yahoo.co.jp")

Call MsgBox("IEの終了")
Call IE.Quit

Call MsgBox("IE2の終了")
Call IE2.Quit

この回答へのお礼

別質問になりました。
すみません。

変数を変えて起動する。
変数を指定して処理。

納得致しました。
これならサイト別に制御出来ますね。
有難う御座いました。

お礼日時：2008/07/07 20:26

No.3 回答者： KenKen_SP 回答日時： 2008/07/07 12:45

こんにちは。

url でフィルタして終了させる例です。

　　Dim shl As Object
　　Dim wnd As Object
　　
　　Set shl = CreateObject("Shell.Application")
　　For Each wnd In shl.Windows()
　　　　If wnd.LocationURL = "http://www.google.co.jp/" Then
　　　　　　wnd.Quit
　　　　End If
　　Next
　　Set shl = Nothing

ご参考までに。

この回答へのお礼

KenKen_SP さん
いつもお世話になっております。

なるほどです。
VBAで立ち上げたサイトでなくても
（VBA変数で指定していなくても）
ずばり、サイトURLで指定出来るのですね。
（という理解で良いですよね？）

大変参考になりました。

・・皆さんの回答が私にとって有益でしたので
今回は回答順にポイントを付けさせて頂きます。
また宜しくお願い致します。有難う御座いました。

お礼日時：2008/07/07 20:39