vbaの実行エラー91の解決について　セルからの転記がうまくできません

前提・実現したいこと

vbaで指定URLにアクセスし、指定の入力エリアにセルの内容を転記して検索ボタンを押すようにしています。
同条件で何度も試行しているのですが、以下のエラーメッセージが出たり、うまくいったりと一定の結果になりません。
転記するセルの内容はいじってません。また、数式が入ったものでもありません。
仕事で使っているwebサイトおよびエクセルなのでシート名やURLは伏せています。

発生している問題・エラーメッセージ

実行時エラー　'91'
オブジェクト変数またはWithブロック変数が設定されていません。

Dim objIE As InternetExplorer
Dim ieDoc As HTMLDocument
Dim obj As Object
Dim inputText As Object
Dim textButton As Object

Sub IE_Serch()

'Internet Exploreを立ち上げ
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

'URLを指定
objIE.Navigate2 "URL"

'Webサイトの表示待ち
While objIE.Busy Or objIE.readyState <> READYSTATE_COMPLETE
DoEvents
Wend

'HTML型ドキュメントに収録
Set ieDoc = objIE.document

'ボタンを探して押す
For Each obj In ieDoc.getElementsByTagName("a")
If obj.innerText = "ボタン1" Then
obj.Click
Exit For
End If
Next

'Webサイトの表示待ち
While (objIE.Busy = True Or objIE.readyState <> 4)
DoEvents
Wend

'指定入力エリアを探して指定セルの内容を転記
For Each obj In ieDoc.getElementsByTagName("input")
If obj.name = "name" Then
obj.Value = Sheets("sheet1").Range("A6")
End If
Next

'検索ボタンをクリック
Set textButton = ieDoc.getElementsByTagName("button")(1)
textButton.Click

'オブジェクト参照を解除
Set objIE = Nothing
Set ieDoc = Nothing
Set obj = Nothing
Set inputText = Nothing
Set textButton = Nothing

End Sub

vba

試したこと

textButton.Clickで毎度引っかかり、冒頭のエラーが発生しますが、全く同条件で再度動かすと問題なく動いたり、さらにもう一度動かすとまたエラーが出たりします。

初心者ですのでいくつかサイトを参考に作成しましたが、このエラーに対する有効な解決法を見つけられずに詰んでおります。
どうか識者の方々のお知恵を借りられればと思います。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

meg_

2019/07/29 11:20

「ieDoc」と「objIE.document」とがコードの中で混在していますが、これは正しいコードですか？

anmethod

2019/07/29 11:50

混在気が付いておりませんでした。ご指摘ありがとうございます。修正して実行しましたが状況は同じです。

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

回答1件

ベストアンサー

Webサイトの表示待ち（IEブラウザ待機処理）で条件成立の複数回連続確認を試してみてください。
IE11に対して有効な方法です。

VBA
1'IEブラウザ待機処理
2Private Sub IEwait(ByRef ie As InternetExplorer)
3    Dim timeout As Date
4    Dim cnt As Integer: cnt = 0
5
6    timeout = DateAdd("s", 50, Now())
7    Do
8        'IE11対策でステータス連続50回一致確認
9        If ie.Busy = False And ie.readyState = 4 Then 'READYSTATE_COMPLETE = 4
10            DoEvents: DoEvents
11            cnt = cnt + 1
12            If cnt >= 50 Then
13                Exit Do
14            End If
15        Else
16            cnt = 0 'リセット
17        End If
18        'タイムアウトチェック
19        If timeout < Now() Then Exit Sub
20        DoEvents: DoEvents
21    Loop
22
23    timeout = DateAdd("s", 10, Now())
24    Do While ie.Document.readyState <> "complete"
25        DoEvents: DoEvents
26        'タイムアウトチェック
27        If timeout < Now() Then Exit Do
28    Loop
29End Sub