VBAのIE制御

今回は、チェックボックス・ラジオボタンの「クリック」についての解説です。
次回解説する送信・リセットなどとは別のやり方となります。
利用頻度の高さで言えば後者になりますが、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

※ドラッグ(スワイプ)すると全体を確認できます。

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

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