Web上のFormの入出力をExcel VBAで自動化したいです

Question

前提・実現したいこと

excelのvbaを使って
https://www13.info-mapping.com/uq/ppmap/search.aspx?pf=1&S=500%2c928&L=0%2c0
のサイトに住所を入力し、表示された検索結果(〇や×など)をセルに入力したいです。

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

IEは開くが入力ができない

<form id="form1">
<input type="text" class="form-control" placeholder="キーワードを入力して選んでください">
<div id="gc-container1" class="gc-container" style="display: none;"></div></form>

上記が入力するフォームの要素になります。

該当のソースコード

Sub IE操作()
'定数の宣言
Const URL = "https://www13.info-mapping.com/uq/ppmap/search.aspx?pf=1&S=500%2c928&L=0%2c0"
Const FIRST_ROW_NUM = 2
'インターネットに接続してブラウザを開く
    Dim objIE As InternetExplorer
    Set objIE = New InternetExplorerMedium
    objIE.Visible = True

'インターネットの特定のページを開く
    objIE.navigate URL
    Call IEWait(objIE)

Dim condition As Boolean
condition = True
Dim i As Integer
i = FIRST_ROW_NUM

Do While condition
    
    
    '---IEに自動で文字入力
    objIE.document.getElementById("ksaddr").Value = Range("A2")

試したこと

IDやcalss名の指定、tagで指定などを試してみましたが入力がうまくいきませんでした。

https://qiita.com/nakajima_1995/items/c9c9b8e77138a33bbe78
のサイトのソースコードを参考にしています

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

excel 2016

Answer 1

以下のコードでいかがでしょうか。

objIE.Document.getElementById("form1").Item(0).Value = Range("A2")

Comments

[M_Y]

うまくできました！ありがとうございます！