ie-excel

エクセル・マクロでie操作

Excel VBAでieを再読み込みする

2018/10/31

Webブラウザで「再読み込み」のことをリロードとも言うようですが、Excelマクロからieで表示されている画面を再読み込みするやり方を今回は紹介します。

再読み込みするには「Refresh」を宣言すればいいだけとなります

OjbIE.Refresh

サイトを再読み込みしようとすると、

  • 現在開かれているサイトが目的のサイトであるかを確認する
  • サイトを再読み込みする

といった動きになりますので、以下の通りの記述をすれば、該当サイトの再読み込みが可能となります。

Dim objIE As InternetExplorer
Dim docIE As HTMLDocument

Sub IE_Refresh()

'Internet Exploreを立ち上げる
  Set objIE = CreateObject("InternetExplorer.Application") 
  objIE.Visible = True

'URLを指定する
  objIE.Navigate "https://www.yahoo.co.jp/"

'該当のWebサイトが表示されるのを待つ
  While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
    DoEvents
  Wend

'サイトをリフレッシュする
  ObjIE.Refresh

'オブジェクト参照を解除
  Set docIE = Nothing
  Set objIE = Nothing

End Sub

 

-ExcelでIE操作