オートメーションオブジェクトを返すApplicationプロパティ

こちらでは、エクセルVBAで利用するInternetExplorerオブジェクトのApplicationプロパティについて解説しています。

プロパティとはオブジェクトの属性を指します。属性とは、そのオブジェクトの情報そのものです。プロパティはその値を取得したり、設定することもできます。プロパティを利用するにはオブジェクト名とプロパティ名の間に「.(ピリオド)」で結んで記述します。

オブジェクト名.プロパティ名

また、プロパティを設定する場合は以下のように「=(イコール)」を記述し設定値を代入します。

オブジェクト名.プロパティ名 = 設定値

目次

• Applicationプロパティとは
• ApplicationプロパティでIEオブジェクトを取得するサンプルコード
  • 実行結果
  • 解説
• InternetExplorerオブジェクトのプロパティ
• InternetExplorerオブジェクトのメソッド

Applicationプロパティとは

InternetExplorerオブジェクトのApplicationプロパティはInternetExplorerアプリケーションのオートメーションオブジェクトにアクセスが可能であれば、そのオートメーションオブジェクトを返します。

また、Applicationプロパティは読み取り専用のプロパティになります。

Set オブジェクト変数 = InternetExplorerオブジェクト.Application

ApplicationプロパティでIEオブジェクトを取得するサンプルコード

こちらのVBAコードは、ApplicationプロパティでIEオブジェクトを取得するマクロです。

Sub sample()

  Dim objIE As InternetExplorer
  Dim objIE2 As InternetExplorer

  'IE(InternetExplorer)のオブジェクトを作成する
  Set objIE = CreateObject("InternetExplorer.Application")

  'IE(InternetExplorer)を表示する
  objIE.Visible = True

  'オブジェクトをセットします。
  Set objIE2 = objIE.Application

  '指定したURLのページを表示する
  objIE2.navigate "http://www.vba-ie.net/"

  '完全にページが表示されるまで待機する
  Do While objIE2.Busy = True Or objIE2.readyState <> 4
    DoEvents
  Loop
  
  MsgBox "objIEオブジェクトを開放してApplicationプロパティを設定します。"
  
  'オブジェクト開放
  Set objIE = Nothing
  
  'オブジェクトがないためエラーになります。
  Set objIE2 = objIE.Application

End Sub

実行結果

①IEを通常通り起動します。(既定値：Application = True)
②メッセージボックスが表示され、「OK」を押下します。
③Applicationプロパティが「False」に設定され、IE(InternetExplorer)のアドレスバーが非表示になります。

解説

Sub sample()

  Dim objIE  As InternetExplorer
  Dim objIE2 As InternetExplorer

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

これによりInternetExplorerオブジェクトを作成した際にプロパティやメソッドを利用できるようになりました。

  'IE(InternetExplorer)のオブジェクトを作成する
  Set objIE = CreateObject("InternetExplorer.Application")

次にオブジェクトを参照するSetステートメントとオブジェクトを作成するCreateObject関数を利用してInternetExplorerのオブジェクトを作成します。

  'IE(InternetExplorer)を表示する
  objIE.Visible = True

こちらでは、InternetExplorerオブジェクトのVisibleプロパティに「True」が設定されています。VisibleプロパティはIE(InternetExplorer)の表示・非表示の設定になりますので、「True」を設定するとIE(InternetExplorer)が表示されます。

  'オブジェクトをセットします。
  Set objIE2 = objIE.Application

こちらは、Setステートメントを利用してInternetExplorerのオブジェクトのApplicationプロパティで返ってきたオートメーションオブジェクトを参照しています。これによりオブジェクト変数objIE2でもInternetExplorerオブジェクトを操作することができます。

  '指定したURLのページを表示する
  objIE2.navigate "http://www.vba-ie.net/"

こちらは指定したURLをIE(InternetExplorer)で表示するInternetExplorerオブジェクトのNavigateメソッドの設定です。第一引数は表示させるWebページのURLの設定になりますので「http://www.vba-ie.net/」を設定すると「VBAのIE制御」サイトのトップページが表示されます。

今回は、オブジェクト変数objIE2に対して処理を行いましたが、オブジェクト変数は値の代入ではなくオブジェクトの参照ですので、オブジェクト変数objIEに対して処理をしても同じ結果となります。

  '完全にページが表示されるまで待機する
  Do While objIE.Busy = True Or objIE.ReadyState <> 4
    DoEvents
  Loop

こちらは、Do～Loop ステートメントを利用して、ページが完全に読み込まれるまでループさせる処理を行っています。それぞれのプロパティでWebページが完全に読み込まれた場合の戻り値は、Busyプロパティが「False」、ReadyStateプロパティが「4」になりますので、たとえBusyプロパティで「False」になったとしてもReadyStateプロパティが「4」でない場合はループから抜け出すことはできません。

こちらを抜け出すためには、BusyプロパティとReadyStateプロパティの両方が完全に読み込み完了状態になった場合のみとなります。こちらの処理について「http://www.vba-ie.net/ie/navigate.html」で詳しく解説していますので、確認してください。

  MsgBox "objIEオブジェクトを開放してApplicationプロパティを設定します。"

こちらは、MSgBox関数を利用してメッセージボックスが表示されます。「OK」を押下すると次の処理へ移ります。

  'オブジェクト開放
  Set objIE = Nothing

こちらは、Setステートメントを利用して、Nothingを指定することでオブジェクト変数objIEを解除します。これでInternetExplorerオブジェクトを利用することができなくなりました。

  'オブジェクトがないためエラーになります。
  Set objIE2 = objIE.Application

End Sub

こちらは、SetステートメントとApplicationプロパティを利用して、再度オブジェクト変数objIE2を生成しようとしていますが、オブジェクト変数objIEには何も設定されていませんので、実行時エラーでエラーが表示されます。

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

InternetExplorerオブジェクトのプロパティ

InternetExplorerオブジェクトのメソッド

よく読まれているVBAのIE(InternetExplorer)操作関連記事

• 指定したURLをIE(InternetExplorer)で起動する
• InternetExplorer制御の準備（ライブラリ追加）
• HTMLドキュメント(全ての要素)を取得する
• HTMLDocumentのallオブジェクト
• webページのBasic認証自動ログイン「ieBasic」