ＶＢＡでチェックボックスの選択（IE）

Question

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub authorize()
Dim objie As InternetExplorer
Set objie = CreateObject("InternetExplorer.Application")
objie.Visible = True
objie.Navigate "URL"
Do While objie.Busy Or objie.ReadyState < READYSTATE_COMPLETE
Debug.Print objie.Busy; ":"; objie.ReadyState
DoEvents
Loop
SendKeys "{Tab 17}{Enter}"
Sleep 4000
SendKeys "{Tab 3}{Enter}"
Sleep 9000
objie.Document.getElementById("purchaseOrders").Checked = True

End Sub
コード
```
チェックボックスがあるページまではいけるのですが、チェックボックスの要素を取得してチェックを入れるところが上手くいきません。
「オブジェクト変数またはWithブロック変数が設定されていません。」と表示されて、デバックをクリックすると「check.Click」が黄色でハイライトされます。



Dim check As HTMLInputElement
Set check = objie.Document.getElementById("purchaseOrders")
check.Click

どこがおかしいかご教示いただけないでしょうか。
よろしくお願い致します。

Answer 1

以下にて、正常動作しますでしょうか。
objie.Document.getElementById("purchaseOrders").Checked = True

＜追記＞
もしかすると、ページ遷移が速すぎてオブジェクトを取得できていないのかもしれません。
以下のIEブラウザ待機処理を試してみてください。

'IEブラウザ待機処理
Private Sub IEwait(ByRef ie As InternetExplorer)
    Dim timeout As Date
    Dim cnt As Integer: cnt = 0

    timeout = DateAdd("s", 50, Now())
    Do
        'IE11対策でステータス連続50回一致確認
        If ie.Busy = False And ie.readyState = 4 Then 'READYSTATE_COMPLETE = 4
            DoEvents: DoEvents
            cnt = cnt + 1
            If cnt >= 50 Then
                Exit Do
            End If
        Else
            cnt = 0 'リセット
        End If
        'タイムアウトチェック
        If timeout < Now() Then Exit Sub
        DoEvents: DoEvents
    Loop

    timeout = DateAdd("s", 10, Now())
    Do While ie.Document.readyState <> "complete"
        DoEvents: DoEvents
        'タイムアウトチェック
        If timeout < Now() Then Exit Do
    Loop
End Sub

Comments

[33sansan]

返信ありがとうございます。
同じエラーメッセージが出てしまいます。。

[TanakaHiroaki]

デバック中、イミディエイトウィンドウで以下を実行すると何かわかるかもしれません。
Debug.Print TypeName(objie.document.getElementById("purchaseOrders"))
Debug.Print objie.document.getElementById("purchaseOrders") Is Nothing

[33sansan]

イミディエイトウィンドウに直接入れてエンターを押したところ、
「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」と表示されました。

何かやり方を勘違いしていたら申し訳ございません。

[TanakaHiroaki]

よくわからないですね。
チェックボックスの要素取得に失敗しているように思います。

[TanakaHiroaki]

IEブラウザ待機処理を工夫してみてください。コードを追記しました。

[33sansan]

※質問にコード全体を追記しました。

ありがとうございます。
追記したコードの通り、一応既に一つのアクションごとに待機時間は長めにとっています。
仰る通り、要素取得に成功したことがないので、そこが原因だと思います。
タブキーが連続しているところも、Classで取得ができなかったので仕方なくそうしました。
コードのどこかに原因がありそうでしょうか？

[TanakaHiroaki]

すみません。お手上げです。

[33sansan]

大変お手数をおかけいたしました。
アドバイスいただき誠にありがとうございます。