ブラウザの表示完了を待つVBA処理について
未読分：3件
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
| Message#3 2014年10月7日(火)10時05分 From: ミラクルkei | 返事 削除 変更 |
| やはりIEのバージョンによって処理が違うんですね！ 今回の処理では該当しないということですが、すごく勉強になりました。 ありがとうございます。 |
| 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 |
| Message#1 2014年9月29日(月)07時05分 From: ミラクルkei | 返事 削除 変更 |
| エクセルのVBAで、IEを操作しています。 ページを表示した後に、ブラウザが完全にHTMLを読み込むまでの表示完了処理をVBAで実行しているのですが、IE9ならうまく表示が完了され、次の制御へ正常に移行します。 しかし、IE10で同じ処理をした場合、なぜかいっこうに表示完了処理が終わらず、いつまでたってもループ処理をされているような気がします。 IE9とIE10では処理の方法が異なるでしょうか？ IE10でのVBA制御についてご存知の方は是非、教えていただきたいと思います。 よろしくお願いします。 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
