Excel VBAで、IEの検索窓にキーワードを入力したい。

Question

前提・実現したいこと

Excel上でボタンを押すと、InputBoxでダイアログが表示され、キーワードを入力すると
IEが立ち上がり検索するシステムを作っています。
IEは立ち上がりましたが、検索するときに問題が生じました。

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

実行時エラー'91:
オブジェクト変数またはWithブロック変数が設定されていません。

該当のソースコード

Dim keyword As String
keyword = InputBox("キーワードを入力してください")
    
Dim objIE As InternetExplorer
Set objIE = New InternetExplorer
    
objIE.Visible = True
objIE.Navigate "https://www.yahoo.co.jp/"
    ' IEの読み込みが完了することを待つ処理
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
    DoEvents
Loop
    
Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document
    '検索ボックスにキーワード入力
    '検索ボタンをクリック
With htmlDoc
    .getElementById("srchtxt").Value = keyword
    .getElementById("srchbtn").Click
End With

試したこと

デバッグした結果With以降に問題があると思いますが分かりませんでした。
ネットで調べましたが、できませんでした。

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

Excel 2016

Answer 1

getElementById("srchtxt").Valueの箇所でエラーになっていますね。
原因は、srchtxtというIDの要素が存在しないからです。

Comments

[oUGOZWlDU5q8JvF]

回答ありがとうございます。
srchtxtというIDの要素が存在しないというヒントを貰い、もう一度調べなおしました。
調べなおすことで解決することが出来ました。