VBAでIEを操作したい。getElementByIdでIdは合ってるはずが操作できない。

Question

前提・実現したいこと

VBA初心者で、いろいろ試してはいるのですが、
なかなか上手くいかず、苦戦しています。

所々、気になる部分もあるかと思いますが、
知恵を貸してくださると幸いです。

実現したいことは「VBAでIEを操作する」です。
①ログインを行う
②シートの文字列を検索し、実行
③検索結果をExcelに記入
④繰り返す
といった感じです。

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

ログインまでは問題なく動いていますが、
検索の過程でつまずいているのが現状です。

その為、まずは検索できることを目標としたいです。

実行時エラー
オートメーションエラーです。
エラーを特定できません。

該当のソースコード

Sub IE操作()

'定数の定義
Const URL = "URL"
Const FIRST_ROW_NUM = 2
    
    'IEオブジェクト生成
    Dim objIE As InternetExplorer
    Set objIE = New InternetExplorer
    
        'IEを表示
        objIE.Visible = True
        objIE.navigate URL
    
    'IE待機
    Call waitIE(objIE)

    'HTMLオブジェクト生成
    Dim htmlDoc As HTMLDocument
    Set htmlDoc = objIE.document
    
    'ログイン処理
    With htmlDoc
    
        'IDとPassを入力
        .getElementById("username").Value = "ID"
        .getElementById("password").Value = "Pass"
        
            'ログインボタンはIDを持たないため、クラスから指定する
            For Each Button In objIE.document.getElementsByClassName("button")
            If Button.Value = "ログイン" Then
                    Button.Click
                Exit For
            End If
        Next
    End With
    
    '待機
    Call waitIE(objIE)
    
    Set objIE = Nothing
    Set objIE = CreateObject("internetexplorer.application")
    
    'HTMLオブジェクト破棄
    Set htmlDoc = Nothing
      
    '新しく表示されたページのHTMLオブジェクト取得
    Set htmlDoc = objIE.document
    
    '待機
    Call waitIE(objIE)
    
    Dim condition As Boolean
        condition = True
    Dim i As Integer
        i = FIRST_ROW_NUM
            
            Do While condition
                
                '文字列をExcelから取得
                Dim src
                    src = Cells(i, 1)
                
                '検索実行
                With htmlDoc
                    Dim ser As IHTMLInputTextElement
                    Set ser = htmlDoc.getElementById("SearchInput")(0)
                        ser.Value = src
                    .getElementById("SearchButton").Click
                End With
            
            'IE待機
            Call waitIE(objIE)
        
                            '結果を取得
                            
                                '完了をセルに記載する
                            
    Loop
    
    'IEを閉じる
    objIE.Quit
    Set objIE = Nothing

End Sub

Function waitIE(ByRef objIE As Object)

    Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
        DoEvents
    Loop
    
End Function

試したこと

With htmlDoc
    .getElementById("SearchInput").Value = "Test"
    .getElementById("SearchButton").Click
End With

当初は、検索を実行させる際、こちらのコードで実行させました。
しかし、IDは合ってるはずなのですが、なぜか入力されません。
この時のエラーメッセージは

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

となっていました。

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

Imacorossを使ってIDを調べてみました。

TAG POS=1 TYPE=INPUT:TEXT FORM=ID:SearchForm ATTR=ID:SearchInput CONTENT=Test
TAG POS=1 TYPE=INPUT:BUTTON FORM=ID:SearchForm ATTR=ID:SearchButton

Answer 1

下記の3行が不要では。

    略

    '待機
    Call waitIE(objIE)

    Set objIE = Nothing '←不要
    Set objIE = CreateObject("internetexplorer.application") '←不要

    'HTMLオブジェクト破棄
    Set htmlDoc = Nothing '←不要

    略

ログイン後に'waitIE'で読み込み完了したIEを破棄して、新規に空のIEを開くことになりますので、何も取得できません。

---

あと、検索実行の部分のコードを下記のように修正してみてください。

                '検索実行
                With htmlDoc
                    Dim ser As HTMLInputElement
                    Do
                        Set ser = htmlDoc.getElementById("SearchInput")
                        DoEvents
                    Loop While ser Is Nothing
                    ser.Value = src
                    .getElementById("SearchButton").Click
                End With

Comments

[OugaiMori]

ご回答ありがとうございます。
この場合、ログイン後のページのIEを取得する処理が
必要になると言うことでよろしいでしょうか？
```VBA
略
Call WaitIE(objIE)
Set objIE = Nothing
'新しく取得する処理を追加
.
.

略
```

[hatena19]

'←不要 とコメントをつけたコードを削除すればいいということです。
実際に手動で操作するときのことを考えてください。
IDとパスを入力してログインボタンをクリックした後に、IEを閉じますか。閉じませんよね。
ページ遷移するのをそのまま待ちますよね。
Set objIE = Nothing はIEを閉じるのと同じことです。

[OugaiMori]

返答ありがとうございます。
仰る通り、確かに、閉じません。
新しいページに移動し、改めて取得することで、
動作できると考えていたのですが、考えを改めます。

不要となったコードを消去した結果ですが、
”オブジェクト変数またはWithブロック変数が指定されていません。”
となってしまっています。
長々と申し訳ないですが、この点についてはいかがでしょうか。

[hatena19]

どの行でそのエラーが出ますか。

[OugaiMori]

ご返答が遅れてしまい、申し訳ございません。
エラーが出る行は
With htmlDoc
Dim ser As IHTMLInputTextElement
Set ser = htmlDoc.getElementById("SearchInput")(0)
ser.Value = src
.getElementById("SearchButton").Click
End With
です。この場合、エラーメッセージは”オブジェクト変数またはWithブロックが設定されていません。”
となります。ただ、少し内容を変更して
With htmlDoc
.getElementsByTagName("INPUT")(0).Value = "Test"
としたところ、実行時エラー'70'　”書き込みできません。”
となる場合があり、調べているところです。

[hatena19]

htmlDoc.getElementById("SearchInput")(0) という記述は間違いです。
htmlDoc.getElementById("SearchInput") が正解です。
htmlDoc.getElementById と getElementsByTagName でElementが単数形と複数形の違いに留意してください。
.getElementsByTagName("INPUT")(0)が書き込みできないというのは、それが目的にテキストボックスでないと思われます。最初のINPUTタグの要素という意味になりますので。

[OugaiMori]

ご返答ありがとうございます。
テキストボックスではない要素には入力できないため、エラーとなるということですね。
その場合、どのようにして対処すれば良いのでしょうか？
確かに検索ボックスなのに、書き込みができない理由とはどの様な理由があるのでしょうか？

[hatena19]

htmlDoc.getElementById("SearchInput") で検索ボックスは取得できないですか。IDがあっているなら取得できるはずです。
もし、取得できないなら、動的なサイトで検索ボックスが生成されるのに時間がかかっているのかも知れませんので、私の回答の2番目のコードで取得できるまで繰り返してください。

[OugaiMori]

ご返答ありがとうございます。
仰った通り、生成されていないのに、取得していた様です。
ただし、”書き込みできません。”のエラーメッセージが出ました。
その為、
ser.Value = src　→　ser.Value = "TEST"
としたところ、問題なく実行できました。
調べている最中ですが、アクセス許可の問題があるのではと考えています。

Answer 2

'IE11であれば、ブラウザ待機処理に以下を使用してみてください。

Sub waitIE(ByRef ie As Object)
    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

[OugaiMori]

ご回答ありがとうございます。
環境を追記しておらず、申し訳ございませんでした。
試してみましたが、こちらの方法でも解決しませんでした。
ですが、IE11での動作の場合、こういった処理が必要になるというのは
知らなかったので、参考になりました。

追記にはなりますが、
Set ser = htmlDoc.getElementById("SearchInput")(0)
の部分を
with htmlDoc
.getElementsByTagName("INPUT")
といった形に変更したところ、エラーメッセージは
実行時エラー'70'　”書き込みできません。”
になっていました。何故こうなったか少し考えてみます。