VBAでサイトのsubmitボタンをクリックしたい

質問

とあるサイトに自動ログインするｖｂａを作っています。
（三流君を参考にしています）

Sub ログイン()

Set ObjIE = CreateObject("InternetExplorer.application")
ObjIE.Visible = True
'**************************************************
ObjIE.navigate "https://www"
Do While ObjIE.Busy = True '表示させるまで待つ
DoEvents
Loop
Application.Wait (Now + TimeValue("00:00:03"))

ObjIE.Document.all.UserId.Value = "ID"
ObjIE.Document.all.submit_l貸出照会.Click　’ここでエラーになる
End Sub

上記のようなコードを書いているのですが
該当サイトのソースを読み取り、
「INPUT TYPE="text" NAME="userid" VALUE=""」
の部分は
ObjIE.Document.all.UserId.Value = "ID"
で出来たのですが
「<INPUT TYPE="submit" VALUE="貸出照会">」
の部分をクリックしてログインしたいのですが
ObjIE.Document.all.貸出照会.Click
だとエラーになってしまいます。

ObjIE.Document.Forms(0).item("貸出照会").Click
もダメでした。

ご教授よろしくお願い致します。
（エクセル2003）

回答No.1

うぃず（@Wizard_Zero） · ベストアンサー

ObjIE.Document.forms.(FormのID又はNAME).UserId.Value = "ID"
ObjIE.Document.forms.(FormのID又はNAME).Submit

(FormのID又はName)には、<form>タグのName属性またはID属性の値を指定します。どちらも指定されていない場合は次のように

ObjIE.Document.forms(0).UserId.Value = "ID"
ObjIE.Document.forms(0).Submit

ページにフォームが複数ある場合は、forms(0)の数値部を調整してください。

お礼

ObjIE.Document.forms(0).Submit
でできました！
ありがとうございます。