VBAでページを巡回する際の待機制御ができません。 削除
Message#2 2014年9月13日(土)08時36分 From: 管理人 |
VBAでIEを制御する場合は、ページ読み込みを完了してから次の処理を行う仕様にしなければいけません。 ページ読み込みのチェックには、「Busyプロパティ」「ReadyStateプロパティ」を利用します。 Busyプロパティはページ処理状況を示すものでTrueの場合は処理中、Falseの場合は処理完了を返します。 ですので、objIE.Busy = Trueで処理中の場合はループ処理をさせます。 ReadyStateプロパティも同様で、こちらはIEの状態を取得するプロパティで、4(READYSTATE_COMPLETE)が全データの読込が完了した状態をあらわすので、objIE.ReadyState <> 4で処理中の場合はループ処理をさせます。 一般的な書き方は以下のようになります。 Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop ただし、こちらではブラウザの読み込み完了が終わらず無限ループに陥る場合もあるので、私はいかのようにしています。 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でページを開いた後には、こちらの処理を塚してみてください。 【参考ページ】 Navigateメソッドで指定URLを開く:http://www.vba-ie.net/ie/navigate.html |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。