はじめての方へ- このQ&Aは役に立った
- 役にたった：1件
質問 |
||
| 質問者：starsip | 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を終了するには？ |
|
質問投稿日時：08/07/06 22:55 質問番号：4156682 |
||
この質問に対する回答は締め切られました。
最新から表示｜回答順に表示｜良回答のみ表示
回答 |
|
| 回答者：KenKen_SP | こんにちは。 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 ご参考までに。 |
|---|---|
| 種類：回答 どんな人：一般人 自信：参考意見 |
|
| |
回答日時：08/07/07 12:45 回答番号：No.3 |
|
| この回答へのお礼 | KenKen_SP さん いつもお世話になっております。 なるほどです。 VBAで立ち上げたサイトでなくても （VBA変数で指定していなくても） ずばり、サイトURLで指定出来るのですね。 （という理解で良いですよね？） 大変参考になりました。 ・・皆さんの回答が私にとって有益でしたので 今回は回答順にポイントを付けさせて頂きます。 また宜しくお願い致します。有難う御座いました。 |
回答良回答10pt |
|
| 回答者：noah7150 | いやいや、別質問ですね！？。 まぁ、いいか。 起動を別変数にしましょう。 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 |
|---|---|
| 種類：回答 どんな人：経験者 自信：参考意見 |
|
| |
回答日時：08/07/07 09:27 回答番号：No.2 |
|
| この回答へのお礼 | 別質問になりました。 すみません。 変数を変えて起動する。 変数を指定して処理。 納得致しました。 これならサイト別に制御出来ますね。 有難う御座いました。 |
回答良回答20pt |
|
| 回答者：hana-hana3 | IE.Quit です。 http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/object/ie.htm |
|---|---|
| 種類：アドバイス どんな人：一般人 自信：参考意見 |
|
| |
回答日時：08/07/06 23:10 回答番号：No.1 |
|
| この回答への補足 | 有難う御座いました。 終了する事が出来ました。 もう一つ教えてもらえますか？ 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 だけ終了する事は可能ですか？ 別質問みたいですみません。 |
| この回答へのお礼 | 本質問の答えは Quit 有難う御座いました。 別質問を立ててしまいました。 すみませんでした。 |
- このQ&Aは役に立った
- 役にたった：1件
はじめての方へ