このコードに設定されていないオブジェクト変数またはブロック変数を解決する方法

Question

Sub WebTry() 

Dim objIE As Object 'special object variable representing the IE browser 
Dim l As Object 'special object variable for an <a> (link) element 

Set objIE = CreateObject("INTERNETEXPLORER.Application") 

objIE.Visible = True 

sUser = "username" 
sPass = "password" 

objIE.navigate "https://mywebsitecomeshere" 

Do While objIE.busy = True Or objIE.readystate <> 4: DoEvents: Loop 


objIE.document.all.Item("USER").Value = sUser 
objIE.document.all.Item("PASSWORD").Value = sPass 
objIE.document.all.Item("loginbtn").Click 
Do While objIE.busy = True Or objIE.readystate <> 4: DoEvents: Loop 

objIE.document.all.Item("image5").Click 
Do While objIE.busy = True Or objIE.readystate <> 4: DoEvents: Loop 

End 

objIE.document.all.Item("image5").Click行にエラーが発生しています。
私の実際の要件は、資格情報を使ってウェブサイトにログインすることです。次に、ウェブサイトの別のボタン（<img id="image5" src="https://abc/cde/efg" alt="Time" name="image5"> </img>）を自動的にクリックします。
私はVBAに新たなんだと、私はドキュメントが完全に読み込まれる前に、IEの要素にアクセスするVB/VBAを使用する前に、このエラーを見てきました事前

Answer 1

で 感謝を助けてください。明らかにreadystateプロパティは、あなたが思うように常に動作するとは限りません。

文書内にある要素をクリックする最も安全な方法は、実際に参照できるまで待つことです。

セーフガードとして、オブジェクトの名前が変更されたり、存在しない場合は、ループを3回試行するように制限する必要があります。

objIE.document.all.Item("image5").Click 

要素をチェックするこのコードを追加します。あなたはこのラインで画像をクリックする前に

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 

：あなたのモジュールの上部に

は、遅延関数を挿入しますID：

Dim numTries As Integer 
Do While IsNull(objIE.Document.getelementbyid("image5")) 
    numTries = numTries + 1 
    If numTries > 3 Then Exit Do 
    DoEvents 
    Sleep 1000 ' Delay one second 
Loop 
If IsNull(objIE.Document.getelementbyid("image5")) Then 
    Msgbox "No Image5 Found" 
Endif