VBAでフレーム内formに値を選択するためのサブルーチン「frameFormSelect」

VBAのIE(InternetExplorer)制御に便利なサブルーチンを紹介しています。

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

　'フレームのオブジェクトを取得する
　Set objFrame = objIE.document.frames

　For i = 0 To objFrame.Length - 1
　　'フレームドキュメントのオブジェクトを取得する
　　Set objFrameDoc = objFrame(i).document

　　'セレクトボックスの選択
　　For Each objTag In objFrameDoc.getElementsByTagName("select")

　　　If objTag.name = nameValue Then

　　　　For Each objOption In objTag.getElementsByTagName("option")

　　　　　If InStr(objOption.outerHTML, tagValue) > 0 Then

　　　　　　objOption.Selected = True

　　　　　　GoTo label01

　　　　　End If

　　　　Next

　　　End If

　　Next

　Next

label01:

End Sub

「objIE」はオブジェクトを入力します。
「nameValue」はname属性の値を入力します。
「tagValue」には、選択するoptionタグ内の一意のキーワード文字列を入力します。