エクセルVBAで利用可能な要素まで実装待ち

Question

私は要素が使用可能になるまで待つように実装してみました（StackOverflowの自分自身で発見された）が、取得エラー：

Do 
    Set testObject = Nothing 
    On Error Resume Next 
    Set testObject = html.getElementById("j_username") 
    On Error GoTo 0 
    DoEvents 
Loop While testObject Is Nothing 

：

Run-time error '-2147467259 (80004005)':
Automation error
Unspecified error

後は、コードスニペットです

Answer 1

HTMLドキュメントが完全に読み込まれていないため、エラーが発生しています。あなたのDOループでは、これを追加します。

Do Until IE.ReadyState = READYSTATE_COMPLETE 
    DoEvents 
Loop 
Set html = IE.Document 

あなたが適切にロードされたオブジェクトを参照した後にのみそれが意味をなすだろう：どのライン

Set testObject = html.getElementById("j_username")