Webサイトでimgタグのalt属性でClickメソッドが失敗する

VBA初心者です。証券口座にログインするプログラムを作っているのですが、ログインは上手くいくのですが、その後、imgタグのalt属性を参照して、クリックする部分で下記エラーで止まってしまいます。

実行時エラー’70’　書き込みできません。　

お詳しい方、エラーの原因を教えて頂けないでしょうか？

VBA
1Sub SBI_Login()
2    
3    Dim objIE As InternetExplorer
4    Set objIE = New InternetExplorer
5    
6    objIE.Visible = True 'IEを表示
7    
8    objIE.navigate "https://www.sbisec.co.jp/ETGate"
9    
10    Call WaitIE(objIE)
11    
12    Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備
13    Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット
14     
15    htmlDoc.getElementById("user_id").Value = "username" 'ユーザーネーム
16    htmlDoc.getElementById("user_password").Value = "password" 'パスワード
17    htmlDoc.getElementById("ACT_login").Click 'ログイン
18    
19    Set htmlDoc = Nothing 'ログインページのHTMLをいったん破棄
20    Call WaitIE(objIE) '画面遷移の待機
21    Set htmlDoc = objIE.document 'ログイン後のページのHTMLを読み込む
22    
23    '口座管理への遷移
24    Dim tagIE As Object
25    For Each tagIE In htmlDoc.all.tags("img")
26        If tagIE.alt = "口座管理" Then tagIE.Click　　'<--------------ここでエラーになります。
27    Next
28 
29End Sub
30 
31Sub WaitIE(objIE As InternetExplorer)
32 
33    Do While objIE.Busy = True Or objIE.readyState < 4 '読み込み待ち
34        '4=READYSTATE_COMPLETE
35        DoEvents
36    Loop
37 
38End Sub
39コード

行動規範の内容に同意します

回答1件

自己解決

ステップ実行ではうまくいったので、エラー箇所の前のHTML読み込みの前に1秒 sleepを入れると上手く行きました。

Set htmlDoc = Nothing 'ログインページのHTMLをいったん破棄
Call WaitIE(objIE) '画面遷移の待機
Sleep 1000　　　<-----1秒 waitを挿入
Set htmlDoc = objIE.document 'ログイン後のページのHTMLを読み込む

直前でIEの読み込み待ちを入れていたのですが、なぜか上手く動作していないようです。。

投稿2019/12/29 15:16

err0r

総合スコア20

TanakaHiroaki

2019/12/29 23:41

IE11は、ページの読み込み完了前にreadyState が4（完了）を返す場合があり、結果的に、Htmlオブジェクト取得に失敗します。対策として、ページ読込完了条件を連続50回確認してDo-Loopを抜けるようにした処理を以下で回答していますので、試してみてください。 https://teratail.com/questions/231101