【DocumentComplete】がうまくいかない (ID:83070)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

何度も申し訳ありません。失礼致しました。

Private Sub Form_Load()
    intFlag = 0
    With wbrTest
        .Navigate2 "(URL)"
        Do While .Busy = True And .ReadyState <> READYSTATE_COMPLETE
            DoEvents
        Loop
        .Document.Forms(0).elements(3).Click
        Do While .Busy = True And .ReadyState <> READYSTATE_COMPLETE
            DoEvents
        Loop
    End With
End Sub

Private Sub cmdTest_Click()
Dim objA As Object
    intFlag = 1
    With wbrTest
        Set objA = .Document.frames(0).Document.getElementsByTagName("A")
        objA(6).Click
        Do While .Busy = True And .ReadyState <> READYSTATE_COMPLETE
            DoEvents
        Loop
    End With
End Sub

Private Sub wbrTest_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim objTable As Object
    If intFlag = 1 Then
        Set objTable = wbrTest.Document.frames(1).frames(1).Document.getElementsByTagName("TABLE")
        txtForm.Text = objTable(0).rows(1).cells(0)
    End If
End Sub

としたのですが、「Withブロック変数〜」のエラーが出てしまいます

←解決時は質問者本人がここをチェックしてください。

戻る