03/29 SELECTタグ 単・複・枠連オッズ を 選択

03/29 SELECTタグ 単・複・枠連オッズ を 選択 VBA IE操作 単勝表取込み
http://www.youtube.com/watch?v=RDrrHMwQ4Ho

<object width="445" height="364"><param name="movie" value="http://www.youtube.com/v/RDrrHMwQ4Ho&hl=ja&fs=1&color1=0xcc2550&color2=0xe87a9f&border=1"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube.com/v/RDrrHMwQ4Ho&hl=ja&fs=1&color1=0xcc2550&color2=0xe87a9f&border=1" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="445" height="364"></embed></object>

単・複・枠連オッズ を 選択する
次は、単・複・枠連オッズ の 選択です。

<SELECT name="g">
<OPTION value="Ota01">単・複・枠連オッズ</OPTION>
<OPTION value="Oum01" selected>馬連オッズ</OPTION>
<OPTION value="Out01">馬単オッズ</OPTION>

↑ここから、単・複・枠連オッズ を 選択したいです。

タグがSELECTで名前が"g"かぁ

手前味噌サンプルですが、
http://www.ken3.org/cgi-bin/group/vba_ie_form.asp#Select_Value
で
'Form(0) の アイテム(名前がKUBUN) の 値(.Value) を 24Hにする(24Hを選択する)
objIE.Document.Forms(0).Item("KUBUN").Value = "24H"
でセットできました。

これを応用して、

'SELECT タグから 単・複・枠連オッズ を 選択
Dim tagSELECT As Object 'タグ保存用
Set tagSELECT = Me.WebBrowser1.Document.all.tags("SELECT") 'SELECTのタグを抜き出す
tagSELECT.Item("g").Value = "Ota01" 'アイテム g に Ota01 を セット、選択されている値を直接代入で変更

で、セットしました。

次は、決定ボタンを押したいので、決定ボタンのフォームを探します。
わざわざ、難しくすることも無いのですが、
<Form>
<タグA>
<タグB>
<SELECT name="g">
<OPTION value="Ota01">単・複・枠連オッズ</OPTION>
みたいに、階層構造になっているので、
tagSELECT.Item("g") の 上、上、上、と<FORM>まで、親のオブジェクトをたどります。
※これも手前味噌なんだけど、
[No.180 IE操作 .parentElement で親のタグを参照？]
http://www.ken3.org/vba/backno/vba180.html
で、 .parentElement で親のタグを参照できたので、
　.TagNameが"FORM"となるまで、探り、.Submitしてみます。

'上の階層、Formを探して、.Submitする。
Dim objOYA_TAG As Object '親のオブジェクトを入れる
Set objOYA_TAG = tagSELECT.Item("g").parentElement
While objOYA_TAG.tagname <> "FORM" 'タグの名前がFORMになるまで(FORM以外の間まわる)
Set objOYA_TAG = objOYA_TAG.parentElement 'さらに、一つ上の親タグを代入
Wend
objOYA_TAG.Submit '上へ行き、見つけたフォームを.Submit 送信処理

↑なんか、無理やり 作った感があるなぁ・・・
※後で直しておこう。。今回も無理やり .parentElement を使いました。