InternetExplorerオブジェクトのQuitメソッド
Quitメソッドは指定したIEオブジェクトを閉じます。
閉じるIEオブジェクト.Quit
| 構文 | object.Quit | |
|---|---|---|
参考サイト：Quit Method
スポンサー リンク
objIE.Refresh
Quitメソッドのサンプルコード
Sub sample()
Dim objIE As InternetExplorer
Dim objIE2 As InternetExplorer
'本サイトをIE(InternetExplorer)で起動
Call ieView(objIE, "http://www.vba-ie.net/")
'yahooサイトをIE(InternetExplorer)で起動
Call ieView(objIE2, "http://www.yahoo.co.jp/")
'IE(InternetExplorer)を閉じる
objIE.Quit
objIE2.Quit
'オブジェクト解除
Set objIE = Nothing
Set objIE2 = Nothing
End Sub実行結果
本サイトとyahooサイトをIEで起動させてから両方のIEを閉じます。
解説
Dim objIE As InternetExplorer
変数objIEをInternetExplorer型で宣言します。
'IE(InternetExplorer)のオブジェクトを作成する
Set objIE = CreateObject("InternetExplorer.Application")
CreateObject関数を利用してIEのオブジェクトを作成します。オブジェクト作成によりプロパティやメソッドを利用することができます。
'IE(InternetExplorer)を表示する
objIE.Visible = True
VisibleプロパティにTrueを設定することで、ブラウザを表示させます。
'指定したURLのページを表示する
objIE.Navigate "http://www.vba-ie.net/"
Navigateメソッドの第一引数に「http://www.vba-ie.net/」を設定しています。これにより「VBAのIE制御」サイトのトップページが表示されます。
'完全にページが表示されるまで待機する
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
こちらは、Webブラウザがページを完全に表示するまで処理をループさせています。これにより、完全にページを読み込むまで次の処理へ進めないようにしています。ちなみにDoEvents関数を設定しているのでは、無限ループに陥った場合に制御を戻しておくためです。
objIE.Refresh
Refreshメソッドを利用して、再読込を行っています。
関連コンテンツ
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
