VBAでIEを閉じる | IE操作の自動化

QuitメソッドでIEを閉じる

前回は、InternetExplorerを起動された後に指定したURLを表示させる方法について解説しました。ieNaviサブルーチンを利用することで、新しいInternetExplorerを起動させずに指定したURLを開くことができるようになりました。今回は、開いたInternetExplorerを閉じる処理について解説していきます。

IE(InternetExplorer)を閉じる処理の流れ

以下が今回の処理の流れになります。

①変数宣言
②ieViewサブルーチンを利用して本サイトをIE(InternetExplorer)で起動
③ieViewサブルーチンを利用してyahooサイトをIE(InternetExplorer)で起動
④本サイト表示のIEをQuitメソッドで閉じる
⑤yahooサイト表示のIEをQuitメソッドで閉じる
⑥IEオブジェクトを破棄

利用するサブルーチン・メソッドについて

今回利用するサブルーチン・メソッドは以下になります。

ieViewサブルーチン
ieCheckサブルーチン
Quitメソッド

ieViewサブルーチンとは

ieViewサブルーチンは指定したURLをInternetExplorerで起動させ、Webページが完全に読み込まれるまで待機処理をするマクロです。

ieView("IEオブジェクト","表示させたいURLの文字列","IE表示・非表示の値[省略可]")

ieView

ieCheckサブルーチンとは

ieCheckサブルーチンは指定したInternetExplorerオブジェクトのWebページが完全に読み込まれるまで待機処理をするマクロです。

ieCheck("IEオブジェクト")

ieCheck

Quitメソッドとは

InternetExplorerオブジェクトのQuitメソッドは指定したIEオブジェクトを閉じます。

objIE.Quit

Quitメソッド

IE(InternetExplorer)を閉じるサンプルコード

今回のVBAコードは2つのInternetExplorerをそれぞれ閉じるマクロになります。

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

ieView
ieCheck
Quit

実行結果

本サイトとyahooサイトをInternetExplorerで起動させてから両方のInternetExplorerを閉じます。

解説

Sub sample()

  Dim objIE  As InternetExplorer
  Dim objIE2  As InternetExplorer

こちらはSubステートメントに引数の設定がないsampleプロシージャになります。まずは、変数宣言でメモリ領域を割り当てるDimステートメントを利用してオブジェクト変数objIE,objIE2にInternetExplorer型を変数宣言しています。

  '本サイトをIE(InternetExplorer)で起動
  Call ieView(objIE, "http://www.vba-ie.net/")

  'yahooサイトをIE(InternetExplorer)で起動
  Call ieView(objIE2, "http://www.yahoo.co.jp/")

次に他のプロシージャを呼び出すCallステートメントを利用してieViewサブルーチンを呼び出しています。それぞれの第一引数にはオブジェクト変数の「objIE」「objIE2」を第二引数には表示させるURLの「http://www.vba-ie.net/」「http://www.yahoo.co.jp/」を設定しています。これにより本サイトとyahooサイトがInternetExplorerで表示されます。

　'IE(InternetExplorer)を閉じる
　objIE.Quit
　objIE2.Quit

こちらでは、InternetExplorerオブジェクトを閉じるInternetExplorerオブジェクトのQuitメソッドで利用して、変数オブジェクトobjIE,objIE2を閉じます。これにより2つ表示されていたInternetExplorerを閉じます。

　'オブジェクト解除
　Set objIE = Nothing
　Set objIE2 = Nothing

End Sub

IEオブジェクトを閉じたらSetステートメントを利用して、Nothingを指定することでオブジェクト変数objIE,objIE2を解除します。プロシージャレベルで宣言した変数については、そのプロシージャの実行が終了した時点で自動的に開放されるで基本不要なのですが、こちらでは記載することとしています。

最後はEndステートメントを利用してプロシージャを終了させます。

まとめ

今回は、開いているInternetExplorerを閉じる方法について解説しました。こちらは1行で完了するステートメントですので、特にサブルーチン化させる必要はありません。InternetExplorerを閉じる場合は、直接InternetExplorerオブジェクトのQuitメソッドを利用するようにしましょう。次回は制御できていないInternetExplorerを掴んで制御する方法について解説していきます。

次の記事：エクセルVBAで制御できていないInternetExplorerを掴んで制御する >>