VBA IE操作 メルカリの検索窓に入力できません

質問

お世話になります。

Win7/エクセル２０１０/IE１１　使用です

エクセルVBAよりIEでメルカリ（https://www.mercari.com/jp/）の
検索窓にテキスト文字を入力させたいのですが、入力できません。

Sub GoogleSearch()

Dim objIE As Object
Dim objInpTxt1 As HTMLInputElement
Dim objInpTxt2 As HTMLInputElement
Dim URL1 As String
Dim myKey As Variant

myKey = "あ"

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

objIE.navigate "https://www.mercari.com/jp/"

Call IEWait(objIE)

Set objInpTxt1 = objIE.document.getElementsByName("keyword")(0)

objInpTxt1.Value = myKey　　　　’テキストが入力されません

'objIE.document.forms(0).submit　’検索ボタンを押すコードが知りたいです

objIE.Quit

Set objIE = Nothing
End Sub

'IEを待機する関数
Function IEWait(ByRef objIE As Object)
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
End Function

--------
メルカリの検索窓のInputタグのtypeがtextではなくsearchとなっていますが
何か関係がありますでしょうか？

あと、できましたら
上記のコードでは、コメントアウトしている
検索ボタンをクリックするコードも教えてもらえると幸いです
<i>タグの意味がよくわかりません。
<i class="icon-search"></i>

お手数をおかけしますが
よろしくお願いします

回答No.1

ushi2015 · ベストアンサー

こんにちは
Set objInpTxt1 = objIE.document.getElementsByName("keyword")(0)
ではなくて、
Set objInpTxt1 = objIE.document.getElementsByName("keyword")(1)
では？

お礼

月朝からすいません。
解決しました

Index番号確認ミスでしたm(__)m
ボタンの同じく解決いたしました。

ありがとうございました！

回答No.2

ushi2015

検索実行も有りましたね。
'objIE.document.forms(0).submit　’検索ボタンを押すコードが知りたいです
を
objIE.document.forms(1).submit
で。