VBAでformを選択するためのサブルーチン「formSelect」

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

「formSelectサブルーチン」の詳しい説明は以下よりご確認ください。
フォーム選択
Sub formSelect(objIE As InternetExplorer, _
               nameValue As String, _
               tagValue As String)

　'セレクトボックスの選択
　For Each objTag In objIE.document.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

label01:

End Sub
引数名データ型内容値の事例初期値省略
objIEInternetExplorerIEオブジェクトobjIE,objIE2×
nameValueStringname属性の名前文字列"pref"×
tagValueString選択するoptionタグ内の一意のキーワード文字列"福岡"×
formSelect("IEオブジェクト","name属性の名前文字列","選択するoptionタグ内の一意のキーワード文字列")

こちらは、formTextサブルーチンと同じですね。
「objIE」はオブジェクトを入力します。
「nameValue」はname属性の値を入力します。
「tagValue」には、選択するoptionタグ内の一意のキーワード文字列を入力します。