オブジェクト変数または With ブロック変数が設定されていません。

質問

下記の様に組みましたが、下記の★印の所で止まる様な事があります。
毎回止まるわけではないのですが、止まる時に「オブジェクト変数または With ブロック変数が設定されていません。」と表示されますが、
原因は何か？どの様にすればいいのか？など詳しく教えてください。
よろしくお願いします。

Sub test()

Dim objIE As Object
Dim strCOMMENT As String
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://"

While objIE.readystate <> 4
While objIE.busy = True
DoEvents
Wend
Wend

Wait_Time = DateAdd("s", 6, Now())
Do While Now() < Wait_Time
DoEvents
Loop

'データをセットする
'htmlドキュメント フォーム(0番目) アイテムに転記(代入)する
objIE.Document.forms(0).Item("username").Value = "11111" objIE.Document.forms(0).Item("password").Value = "11111"

While objIE.readystate <> 4
While objIE.busy = True
DoEvents
Wend
Wend

Wait_Time = DateAdd("s", 6, Now())
Do While Now() < Wait_Time
DoEvents
Loop

objIE.Document.all.subm.Click

While objIE.readystate <> 4
While objIE.busy = True
DoEvents
Wend
Wend

Wait_Time = DateAdd("s", 6, Now())
Do While Now() < Wait_Time
DoEvents
Loop

For Each link In objIE.Document.Links
If link.href = "http://" Then
link.Click

End If
Next

While objIE.readystate <> 4
While objIE.busy = True
DoEvents
Wend
Wend

Wait_Time = DateAdd("s", 6, Now())
Do While Now() < Wait_Time
DoEvents
Loop

'タイトル・コメントの読み込み
strtitle = Sheets("sheet1").Range("k7")
strCOMMENT = Sheets("sheet1").Range("k9")

Application.WindowState = xlMinimized

While objIE.readystate <> 4
While objIE.busy = True
DoEvents
Wend
Wend

Wait_Time = DateAdd("s", 6, Now())
Do While Now() < Wait_Time
DoEvents
Loop

objIE.Document.forms(0).Item("title").Value = strtitle
objIE.Document.forms(0).Item("comment").Value = strCOMMENT

While objIE.readystate <> 4
While objIE.busy = True
DoEvents '
Wend
Wend

Wait_Time = DateAdd("s", 6, Now())
Do While Now() < Wait_Time
DoEvents
Loop

objIE.Document.all.submit.Click

While objIE.readystate <> 4
While objIE.busy = True
DoEvents
Wend
Wend

Wait_Time = DateAdd("s", 6, Now())
Do While Now() < Wait_Time
DoEvents
Loop

'フォーム(0番目)を .Submit(確認) する
objIE.Document.forms(0).getElementsByTagName("input")(11).Click '←★この部分で止まる時があります。

While objIE.readystate <> 4
While objIE.busy = True
DoEvents
Wend
Wend

Wait_Time = DateAdd("s", 6, Now())
Do While Now() < Wait_Time
DoEvents
Loop

For Each link In objIE.Document.Links
If link.href = "http://" Then
link.Click

End If
Next

While objIE.readystate <> 4
While objIE.busy = True
DoEvents
Wend
Wend

Wait_Time = DateAdd("s", 7, Now())
Do While Now() < Wait_Time
DoEvents
Loop
objIE.Quit '.Quitで閉じる

End Sub

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

少し辛口コメントですが、コーディングが雑すぎます。
整頓して修正候補箇所を☆印で示しておいたので参考にしてみてください。

' 同様の処理はこのようにプロシージャ化する
Sub IEWait(objIE As Object)
While objIE.readystate <> 4
While objIE.busy = True
DoEvents
Wend
Wend

Wait_Time = DateAdd("s", 6, Now())
Do While Now() < Wait_Time
DoEvents
Loop
End Sub

Sub test()

Dim objIE As Object
Dim strtitle As String '☆strCOMMENTは変数しているのにstrtitleが宣言されていないので・・・
Dim strCOMMENT As String
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://"

IEWait ' IEの読み込みを待つ

'データをセットする
'htmlドキュメント フォーム(0番目) アイテムに転記(代入)する
objIE.Document.forms(0).Item("username").Value = "11111"
objIE.Document.forms(0).Item("password").Value = "11111"

IEWait ' IEの読み込みを待つ　　☆ここは不要では？

'objIE.Document.all.subm.Click
objIE.Document.forms(0).Submit ' ☆フォームに対してSubmitを実行したほうがよいです。

IEWait ' IEの読み込みを待つ

For Each link In objIE.Document.Links
If link.href = "http://" Then
link.Click
Exit For ' ☆ほかのリンクをクリックしないようにForから抜け出しましょう。
End If
Next

IEWait ' IEの読み込みを待つ

'タイトル・コメントの読み込み
strtitle = Sheets("sheet1").Range("k7")
strCOMMENT = Sheets("sheet1").Range("k9")

Application.WindowState = xlMinimized

'IEWait ' IEの読み込みを待つ　　☆IEに変更を加えていないので不要

objIE.Document.forms(0).Item("title").Value = strtitle
objIE.Document.forms(0).Item("comment").Value = strCOMMENT

IEWait ' IEの読み込みを待つ　　☆ここもおそらく不要だと思います。

'objIE.Document.all.Submit.Click
objIE.Document.forms(0).Submit ' ☆前述と同様。

IEWait ' IEの読み込みを待つ

'フォーム(0番目)を .Submit(確認) する
'objIE.Document.forms(0).getElementsByTagName("input")(11).Click '←★この部分で止まる時があります。
objIE.Document.forms(0).Submit ' ☆Submitするのならこれで良いです。

IEWait ' IEの読み込みを待つ

For Each link In objIE.Document.Links
If link.href = "http://" Then
link.Click
Exit For ' ☆前述と同様。
End If
Next

IEWait ' IEの読み込みを待つ

objIE.Quit '.Quitで閉じる

End Sub

補足

色々厳しくご指導有難うございます。
初心者ですので、なかなかうまくいきませんでしたが、
教えて頂いた様に修正してみました。
止まる箇所は、上記の所ですが、色々見てみたら、
その前にある、
For Each link In objIE.Document.Links
If link.href = "​http://"​ Then
link.Click
Exit For ' ☆ほかのリンクをクリックしないようにForから抜け出しましょう。
End If
Next
の部分で、ページの移動ができる時とできない時があり、
ページが変わっていないので、次のエラー（ストップ）になる事がわかりました。
上記でページを移動させていますが、ページが移動するまで
何度もクリックする事はできますか？
移動したら、その次の動作に移り、移動できなかったら繰り返す様な処理は、どうすればいいのでしょうか？