VBA IE11 Object情報更新

Question

###前提・実現したいこと
Excel2013
VBAでIE(yahoo)を表示させて検索を行って検索語の一番上のサイトをクリックする

###発生している問題・エラーメッセージ

VBAでIE(yahoo)を表示検索まではいいのですがObject情報が更新されずyahooのページの情報が残ってしまう。

###該当のソースコード

Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Width = 1250
.Height = 750
.Left = 0
.Top = 0
End With
objIE.Visible = True

'yahooに接続
objIE.Navigate "http://yahoo.co.jp"

'IEを待機
Call IEWait(objIE)

'検索窓に「VBA」と入力
'objIE.document.getElementById("").Value = "VBA"

'IEを待機
Call IEWait(objIE)

objIE.document.all.tags("a")(0).onclick

Comments

[ExcelVBAer]

コメントアウトされてますが、動くのでしょうか？　→　 'objIE.document.getElementById("").Value = "VBA"

Answer 1

あまりよい方法でないかもしれませんが、ページ遷移の前後で
Visibleのステータスを変更するとうまくいくかもしれません。

objIE.Visible = False
objIE.document.all.tags("a")(0).onclick
objIE.Visible = True

Answer 2

IEのオブジェクトを正しく取得するには、ページが完全に表示されるまでの待機命令をします。

自分が似たようなExcel VBAを YouTubeで紹介しています。
参考にしてみてください。
【Excel VBA】Webの翻訳サービスを利用して翻訳マクロを作る
https://www.youtube.com/watch?v=yB9mAvtistE

'IEを待機
Call IEWait(objIE)
で、ページが完全に表示されるまで待機する処理をしているように見えますが、このサブプロシージャの内容が不明です。

一般的にIEのオブジェクトを取得する前には、下の様なコードを書きます。

    Do While IE.Busy = True Or IE.ReadyState < READYSTATE_COMPLETE
        DoEvents
    Loop