VBAでIEのformクリックサブルーチン化する方法

今回は、チェックボックス・ラジオボタンの「クリック」についての解説です。
次回解説する送信・リセットなどとは別のやり方となります。
利用頻度の高さで言えば後者になりますが、formのサブルーチンということですので念のためご紹介します。
ただし、こちらの方がより確実な方法ですので、もし後者で対応できない場合は、こちらで処理をしましょう。

フォームクリックのサブルーチン

Sub formClick(objIE As InternetExplorer, _
              nameValue As String, _
              tagValue As String)

　'form要素のクリック
　For Each objTag In objIE.document.getElementsByTagName("input")

　　If objTag.Name = nameValue And objTag.Value = tagValue Then

　　　objTag.Click

　　　Exit For

　　End If

　Next

End Sub

フォームクリックマクロ

Sub sample()

  Dim objIE  As InternetExplorer

  'テスト用フォームページを表示
  Call ieView(objIE, "http://www.vba-ie.net/code/test.html")

　'性別をクリック
　call formClick(objIE, "sex", "女")

　'好きな色をクリック
　call formClick(objIE, "lcolor", "赤")
　call formClick(objIE, "lcolor", "黄")

End Sub

テスト用フォームページのソース

実行結果

こちらの処理で「性別」「好きな色」を自動クリックします。
引数について以下の3つを設定しています。

こちらは、おなじみの内容です。
「objIE」はオブジェクトを入力します。
「Name」はname属性を値を入力します。
「tagValue」には、クリックする値を入力します。

For Each objTag In objIE.document.getElementsByTagName("input")
（省略）
Next

まずは、input要素を取得します。ここから1つずつループでデータをチェックしていく処理です。

If objTag.Name = Name And objTag.Value = tagValue Then
（省略）
End If

こちらでは、name属性とクリックする値が一致した場合に次の処理へ進む形になります。

objTag.Click

「Clickメソッド」で該当するエレメントをクリックします。

Exit For

最後に処理が完了したので、ループから脱出します。

次回は「タグクリック」について解説していきます。