検索ボタンを押し、その後に表示されるページをクリックする方法 削除
Message#4 2016年5月19日(木)18時30分 From: ジャッカル |
初心者のメッセージ(#3)への返事 > ご指摘をいただいた通りにやってみたら動きました!ありがとうございました。待機させているつもりでしたができていなかったんですね。 documentオブジェクトの待機の処理部分でだめだったんじゃないかな。 http://www.vba-ie.net/ie/subroutine1.html '完全にページが表示されるまで待機する timeOut = Now + TimeSerial(0, 0, 20) Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Sleep 1 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 20) End If Loop timeOut = Now + TimeSerial(0, 0, 20) Do While objIE.document.ReadyState <> "complete" DoEvents Sleep 1 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 20) End If Loop |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。