VBAでIE操作メニュー選択完了まで待機したい

質問

VBAでIE操作メニュー選択完了まで待機したい

●経緯：
VBAを利用し、IEを操作するマクロを組んでいますが、下記の部分で処理が終わるまで待つ方法がわかりません。

IEで、あるWebサイト内にある複数のプルダウンメニューを順に選択して行きますが、このプルダウンメニューはそれぞれ順番に入力していかないと入力できないタイプの物です。

説明がわかりにくいかもしれませんが、下記のような3つのメニューがあり、MenuName1は最初から選択可能な状態。
MenuName2と3はグレーアウトしており選択できないが、MenuName1を選択するとMenuName2が選択可能になり、MenuName2を選択するとMenuName3がそれぞれ選択可能になります。

　MenuName1　→　選択可能
　MenuName2　→　グレーアウト
　MenuName3　→　グレーアウト

該当のプルダウンメニュー部分のWebソースは後述しますが、上記各メニューを選択後、 fireEvent ("onchange") を実行し、そのまますぐに次のメニューを選択しようとすると、Web側の処理が追いつかずにエラーになってしまいます。

現状、下記のように無理やり一定時間待機させてから次のメニュー選択に移っていますが、他にメニューのグレーアウトが終わるまで待つ方法はありませんでしょうか？

While Now < DateAdd("s", second, Now)
DoEvents
Wend

●HTMLソース：
それぞれ、該当メニュー部分のコードは下記のとおりです。

・アクティブになっているプルダウンメニュー
<select name="MenuName1" onchange="javascript:setTimeout('__doPostBack(\'MenuName1\' ,\'\')', 0)" id="MenuName1" style="width:110px;">

・非アクティブのプルダウンメニュー
<select name="MenuName2" onchange="javascript:setTimeout('__doPostBack(\'MenuName2\' ,\'\')', 0)" id="MenuName2" disabled="disabled" style="width:110px;">

●試したこと：
１）
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
で、一番最初のWebページ読み込み完了まで待つことはできますが、該当
プルダウンメニューの選択完了を待つことはできませんでした。

２）
Do ～～～
DoEvents
Loop
上記コードをMenuName2、3の実行直前にいろいろ試してみましたが、どうにもうまくいきません。
それぞれ下記のような条件文で記載しましたが、記載のとおりの失敗でした。

２－１）
Do While InStr(objIE.Document.getElementById("MenuName2").outerHTML, "disabled") > 0
→「書き込みできません」

２－２）
Do Until IsNull(objIE.Document.getElementById("MenuName2").disabled)
→無限ループ？ここで止まる

２－３）
Do While objIE.Document.getElementById("MenuName2").disabled = True
→「オブジェクト変数またはwithブロック変数が設定されていません」

２－４）
Obj1 = objIE.Document.getElementById("MenuName2").disabled
Do Until Obj1 Is Nothing
→「オブジェクトが必要です」 ※Obj1はVariant型で宣言

しかも上記、それぞれ何度も繰り返しているうちに、タイミングの問題なのかたまに成功したりします。
さらに、Debug.Print等で各条件文入れてみると、ちゃんと条件結果の値が出てくるので、ますますうまくいかない理由がわかりません。

本件、各プルダウンメニューのグレーアウトが解除されるまで待つ方法を教えてください。
※書き込みには上記（↑）に対する回答を含めてください。

※該当WebサイトのHTMLソース、マクロの全文は長いので抜粋にて記載しています。
　不足がある場合は該当部分を探してきますので、どの部分が必要か補足してください。
※該当Webサイトは関係者専用のため、URLは公開できません。
※該当Webサイトは委託先に発注しているもので、Web側の改変は不可能です。

※「検索したけど解決法はありませんでした」と言う旨の回答はご遠慮願います。

※書き込みは他のユーザーの迷惑にならないようにお願いいたします。

回答No.2

BarcodeMaster · ベストアンサー

----------------------------------------------------
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Sleep 100
Loop

Do Until objIE.document.ReadyState = "complete"
DoEvents
Sleep 100
Loop
----------------------------------------------------
と待ってみるとどうか？

お礼

ありがとうございます！
試してみます。

ちなみにですが、回避策として On Error ステートメントを入れて、無理やりですが今のところ応急処置ができています。

検索でたどり着いた方も見るので、お役に立てればと思い、僭越ながら下記記載します。

---------------
Hantei1 = 99 '特に数値に意味はないが、0以外の数字をあらかじめ代入
Do Until Hantei1 = 0
On Error Resume Next 'なぜか、On Error GoTo ラベル名　の形式だと高確率で失敗する
Hantei1 = InStr(objIE.Document.getElementById("MenuName2").outerHTML, "disabled")
On Error GoTo 0 'これを入れないと上の行でエラーが出たり出なかったりする。
DoEvents
Loop
---------------

※念のため、変数Hantei1はLong型で宣言。

上記コードで何度か試しましたが、今のところ動いています。
ご提示いただいたコードも試してみます。

補足

返信遅くなってすみません。
実際に試してみましたが、なぜか該当メニューがアクティブになる前にループを抜けてしまい、次の処理に移ってしまいました。

ただ、私が下記のお礼コメントに記載したOn Error処理で何とか動いているので、現状はこのまま利用しようと思います。

ありがとうございました。

回答No.1

kamikami30

周りの事をなにやら気にしているようですが、VBAとVB(Visual Basic)は別のものです。

わからないから仕方ないのかもしれませんが、私には自分が使う言語がなんだかも分かってないのは不思議です。

Excel使っているのか知りませんが、Office系のカテゴリにした方がまだ近いですよ。

補足

質問文を読んでいただければわかると思いますが、使っている言語はVBAです。
VBAと言う項目が見当たらなかったので、一番近いと判断したこちらに書き込みました。
（他にも同様の質問者、多数いらしゃるのを習って）

このまま回答が付かなければ質問削除してExcelに移そうと思っていました。
No.1さんの回答が付いたこの時点で仕様上、削除できなくなってしまいましたが・・・。

これも質問文に記載していますが、以降、回答内容を含まない書き込みはご遠慮ください。