VBAのIE制御

RefreshメソッドはWebブラウザに表示されているWebページの再読み込み（リフレッシュ）を行うメソッドです。Webブラウザ自体が読み込み失敗している場合などで有効な処理となります。

objIE.Refresh

Refreshメソッドのサンプルコード

Sub sample()

  Dim objIE As InternetExplorer

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

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

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

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

	objIE.Refresh


End Sub

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

実行結果

「VBAの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メソッドを利用して、再読込を行っています。

関連コンテンツ

• IEの位置やサイズを指定して表示する
• 複数IEの位置やサイズを指定して表示する
• IEとエクセルの位置・サイズを設定する
• IEウィンドウを最大化（フルスクリーン）させる