VBAのIE制御

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

目次

• IE(InternetExplorer)を閉じる処理の流れ
• 利用するサブルーチン・メソッドについて
  • ieViewとは
  • ieCheckとは
  • Quitメソッドとは
• IE(InternetExplorer)を閉じるサンプルコード
  • 実行結果
  • 解説
• まとめ

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

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

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

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

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

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

ieViewサブルーチンとは

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

ieCheckサブルーチンとは

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

Quitメソッドとは

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

objIE.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

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

解説

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を掴んで制御する方法について解説していきます。