通販サイトをVBAでアクセスして検索しますが検索クリックが機能しません。

Question

ものたろうという通販サイトでVBAでアクセスして検索クリックしたいのですが
検索文字の入力までは上手くいくのですがClickが働きません。
但し、エラーにならず素通りしてしまいます。
id="keywords" がクリックだと思いますがいかがでしょうか?
お詳しい方ご教授願えないでしょうか。
宜しくお願いします。

//サイト側HTMLコード抜粋

</div> <div class="globalMenu__searchBox__input" data-js="globalMenu__searchBox__input"> <div class="globalMenu__searchBox__inputContainer"> <div id="combo_keywords" data-js="combo_keywords"> <input type="text" name="q" id="keywords" data-js="keywords" value="" maxlength="256" autocomplete="off" placeholder="商品名、キーワード、商品番号"> </div> </div> </div>

//VBAコード
Sub IESub()

Dim keyword As String
keyword = InputBox("キーワードを入力してください")

Dim objIE As InternetExplorer
Set objIE = New InternetExplorer

objIE.Visible = True
objIE.Navigate "https://www.monotaro.com/?displayId=104"

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

Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document

With htmlDoc

    .getElementById("q").Value = keyword
    .getElementById("keywords").Click
    
End With

End Sub

Comments

[1T2R3M4]

>id="keywords" がクリックだと思います
どういう意味でしょうか。
要件に沿ってご自身で書いたコードではないのでしょうか。

Answer 1

id="keywords" がクリックだと思いますがいかがでしょうか?

要素が違っていると思います。恐らく赤枠の部分ではないかと。

なお、サイトによってはスクレイピングを禁止している所があるかと思いますので留意下さい。

Comments

[ABBA]

態々、画像まで載せて頂き恐縮でございます。
CX20さまのお陰で無事解決しました。
ありがとうございました。

[cx20]

ご存じかもしれませんが、要素を確認する場合は、
Chrome デベロッパーツールの DOM インスペクタ機能（Ctrl+Shift+C）が便利です。
マウスカーソルを要素に当てるとその箇所を教えてくれます。

[ABBA]

ウェーブ系は全く詳しくなく、上から検索でinputで検索していました。
こんな便利な機能があったのですね。
参考になりました!

Answer 2

CX20さんのおかげです。
以下のコードで解決しました。
ありがとうございました。

// 以下抜粋

htmlDoc.getElementById("q").Value = keyword

For Each button In objIE.document.getElementsByClassName("globalMenu__searchBox__btn--btn")

If button.Value = "" Then
        
    button.Click
    Exit For
    
End If

Next