コーディングメモ

忘れっぽい自分に

【VBScript】IEで自動的にボタンをクリックする方法

Dim ObjIE
Set ObjIE = CreateObject("InternetExplorer.application")
ObjIE.Visible = True
ObjIE.Navigate "https://www.google.co.jp"

Do While ObjIE.Busy = True
WScript.sleep(250)
Loop

Dim InputObj2

For Each InputObj2 in ObjIE.document.all.tags("INPUT")

    msgbox InputObj2.Value

    If InputObj2.Name = "BtnSubmit" then
        InputObj2.Click
        Exit For
    End If
Next

IE起動までは、こちらを参照ください。

1. INPUTタグを取得する

For Each InputObj2 in ObjIE.document.all.tags("INPUT")で、ObjIEから取得したHTMLデータから、INPUTタグを取得します。 INPUTタグの数だけループします。

2. INPUTタグのVALUEプロパティを取得する。

msgbox InputObj2.Valueで、VALUEプロパティをメッセージボックスに表示します。

3. NAMEプロパティで条件に合致するINPUTタグを取得します。

If InputObj2.Name = "BtnSubmit" thenで、NAMEプロパティで条件判断します。

4. 取得したINPUTタグのCLICKメソッドを実行します。

InputObj2.Clickで、ボタンクリックと同じ動作を実行します。