ブラウザの表示完了を待つVBA処理について 削除
| Message#2 2014年9月30日(火)07時53分 From: 管理人 |
| VBAでIEを表示させるには「Navigateメソッド」を利用しますが、こちらは、HTMLページの読み込みが完了するまでチェックする機能はありません。 ですので、他にチェック機能の処理をしなければいけません。 今回、IE9とIE10で同じ処理した場合に挙動がおかしいということですが、OSやIEバージョンによって、ソース内容が異なるため、挙動が変わることがありますが、読み込み完了処理がうまくいかないという話は聞いたことがありません。 とりあえず、IE制御で読み込み完了処理がうまくいかないという話で進めていきます。 ページ読み込みの確認には、「Busyプロパティ」「ReadyStateプロパティ」を利用して制御していきます。 Busyプロパティはページ処理状況を示すものでTrueの場合は処理中、Falseの場合は処理完了を返します。 ですので、objIE.Busy = Trueで処理中の場合はループ処理をさせます。 ReadyStateプロパティも同様で、こちらはIEの状態を取得するプロパティで、4(READYSTATE_COMPLETE)が全データの読込が完了した状態をあらわすので、objIE.ReadyState <> 4で処理中の場合はループ処理をさせます。 よくあるIE制御の書き方は以下のようになります。 Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop こちらでも問題ありませんが、こちらではブラウザの読み込み完了が終わらず無限ループに陥る場合もあるので、私は以下のようなIE制御を利用しています。 timeOut = Now + TimeSerial(0, 0, 10) Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Sleep 100 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 10) End If Loop timeOut = Now + TimeSerial(0, 0, 10) Do Until objIE.document.ReadyState = "complete" DoEvents Sleep 100 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 10) End If Loop 基本どちらでもかまいませんが、とりあえず、Navigateでページを開いた後には、こちらの処理でIE制御をしてみてください。 【参考ページ】 Navigateメソッドで指定URLを開く：http://www.vba-ie.net/ie/navigate.html |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
