WebBrowserコントロールの読み込み完了を判断したい

Question

パワポVBAでWebBrowserコントロールの読み込み完了を判断したいです。

WebBrowser1_DocumentCompleteイベントだと、ページが表示されたあとに読み込まれるjavascriptなどもあって判断ができなさそうなので、下記のようにBusy とReadyState を使って識別しようと思ったのですが
一向にループを抜けてくれません。

何か間違っていますでしょうか。。

　'サイトURLの設定
  SiteURL = "https://www.yahoo.co.jp/"
  
  'スクリプトエラーを抑止する
  Slide1.WebBrowser1.Silent = True
  
  'サイトを開く
  Slide1.WebBrowser1.Navigate SiteURL
  
  While Slide1.WebBrowser1.Busy = True And Slide1.WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
     DoEvents
  Wend
  
  MsgBox ("OK!")

Comments

[h.horikoshi]

掲示されたコードですが、むしろ読み込み完了前に抜けてしまいませんか?

while文の条件式で2項をAndで繋げていますが、読み込み完了の条件は、
not Busy かつ state=4 だと思います。
これを ループ継続の条件とするなら、その逆なので
Busy Or state<>4 となるはずです。

Answer 1

state<>4でもななぜか無限ループに陥るようです泣
とりあえずbusy のみでも判断できそうだったので、
いったん解決済にしておきます