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

ここまで、formの「入力」「選択」「クリック」について、サブルーチン化させてきました。
今回はformのinputに対するクリックだけでなく、全てのタグに対してクリックできるサブルーチンを解説していきます。
こちらはformのsubmit・reset・button・imageをクリック処理にも使えますし、aタグなどにも利用できます。
ほとんどのクリック処理はこちらで対応できますので、前回のクリックより汎用性の高いサブルーチンとなります。

タグクリックのサブルーチン

Sub tagClick(objIE As InternetExplorer, _
             tagName As String, _
             tagStr As String)

　'タグをクリック
　For Each objTag In objIE.document.getElementsByTagName(tagName)

　　If InStr(objTag.outerHTML, tagStr) > 0 Then

　　　objTag.Click

　　　Call ieCheck(objIE)

　　　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 tagClick(objIE, "input", "送信")

　'取り消しボタンをクリック
　call tagClick(objIE, "input", "取り消し")

　'ボタンをクリック
　Call tagClick(objIE, "input", "buttonのボタンが押されました")

　'ボタン2をクリック
　call tagClick(objIE, "input", "ボタン2が押されました")

　'画像ボタンをクリック
　call tagClick(objIE, "input", "画像ボタンが押されました")

End Sub

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

実行結果

こちらの処理でそれぞれのボタンが次々にクリックされていきます。
引数は以下の3つが設定されています。

「objIE」はオブジェクトを入力します。
「tagName」はタグ要素(input,a,tableなど)を入力します。
「tagStr」には、クリックする一意のキーワード文字列を入力します。

となっており、「ボタンが押されました」で処理すると送信ボタンが該当するため、こちらが処理されていたということです。
こういうことはよくあることですが、1つ1つ紐解いていくと簡単に原因が分かるので、焦らずに対応しましょう。
それでは、1つずつ解説していきます。

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

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

If InStr(objTag.outerHTML, tagStr) > 0 Then
（省略）
End If

こちらはお馴染みの一意のキーワードが含まれているエレメントをチェックします。

objTag.Click

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

Exit For

最後に処理が完了したので、ループから脱出します。
中身は「formClickサブルーチン」と変わらない仕様となっておりますが、どんなタグにも対応しているので、非常に便利なサブルーチンです。

次回は「【まとめ】サブルーチンを利用したフォームの操作」では、フォームのサブルーチンを利用した処理についておさらいします。