検索ボタン押下時に、検索ボックスに入れた値が消える

質問

ｉｅ操作ですが、

検索ボックスに文字を入れて、検索ボタンを押すことは出来たのですが
検索ボタン押下時に、検索ボックスに入れた値が消えてしまい、結局何も検索ボックスに入れてない状態で検索されてしまいます。

検索ボックスに値を入れても文字の色が灰色です。
手作業で検索ボックスに文字を入れると黒で表示されます。

コードはこちらです。

Sub ヒトサラ()

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://hitosara.com/"

Do While objIE.Busy = True
DoEvents
Loop

For Each myObj In objIE.Document.all.tags("input")
If myObj.Name = "keyword" Then
myObj.Value = "検索文字"
Exit For
End If
Next

For Each myObj In objIE.Document.all.tags("input")
If myObj.alt = "検索" Then
myObj.Click
Exit For
End If
Next

End Sub

myObj.Value = "検索文字"
これが間違ってる気がするのですが
どのように修正すればよいでしょうか？

回答No.1

kumatti1 · ベストアンサー

objie.Document.Forms(0).Item("keyword").Value = "検索文字"
とされるとか。

お礼

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