メッセージボックスを表示させないとエラーが出る理由

「オブジェクトが必要です」と表示される理由は何でしょうか。

Private Sub CommandButton3_Click()
Dim ie As InternetExplorer

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://www.XXXX.jp/a/auth"
Do While ie.Busy Or ie.ReadyState < READYSTATE_COMPLETE
    DoEvents
Loop

ie.document.all("login_id").Value = Range("C8")
ie.document.all("password").Value = Range("C9")
ie.document.forms(0).submit


Application.Wait (Now + TimeValue("00:00:05"))


Set objShell = CreateObject("Shell.Application")
Set ie2 = objShell.Windows(objShell.Windows.Count - 1)

Dim objA As Object
For Each objA In ie2.document.all.tags("A")

'ココのメッセージボックスを表示させないと、submitの部分でエラー
MsgBox "Aタグテキスト名：" & objA.innerText
If objA.innerText = "お知らせ" Then
        objA.Click
        Exit For
    End If
Next

Set ie = Nothing

Application.Wait (Now + TimeValue("00:00:10"))

'ココの部分で、エラー「オブジェクトが必要です」と表示される。
ie2.document.forms(0).submit

Set input_Text = ie2.document.getElementsByTagName("input")(0)
MsgBox input_Text.Value


Set objA = Nothing

End Sub

Tak1wa

2015/04/25 07:24

URLが不明なため、机上のみで検証していませんが、メッセージボックス無しでデバッグ実行した場合は問題なく成功しますか？それともエラーになりますか？

naow9y

2015/04/25 07:49

メッセージボックスの行を削除しましたが、同じ「オブジェクトが必要です」のエラーでした。

Tak1wa

2015/04/25 07:58

デバッグ実行で「If objA.innerText = "お知らせ" Then」にて一度ブレークポイントで止めて、その後１行づつステップ実行しても同じでしょうか？

naow9y

2015/04/25 08:08

ご指示の通りブレークポイントを作って、１つづつ実行したところ実行可能でした！

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

回答1件

ベストアンサー

メッセージボックスまたはデバッグモードでのステップ実行で成功するとのことなので、
メッセージボックス出力行を「DoEvents」に変更してみてください。

lang
1'MsgBox "Aタグテキスト名：" & objA.innerText
2DoEvents    '<- ADD
3If objA.innerText = "お知らせ" Then
4        objA.Click
5        Exit For
6    End If
7Next

このケースは、イベント制御を一度OSに移してやればうまく動く可能性が高いです。

投稿2015/04/25 08:20

編集2015/04/25 08:23

Tak1wa

総合スコア4791