2R を 選択する OPTIONタグから レースを探し .Selected = True
単勝の表、オッズがとれたので、
あとは、繰り返し処理なんだけど、
その前に、調べ事が。
流れとしては、
1Rの表を表示
1Rのオッズをシートに取り込む。
2Rの表を表示 ←※1
2Rのオッズをシートに取り込む。
3Rの表を表示
3Rのオッズをシートに取り込む。
・
・
・
って、感じなんだろうけど。
オッズをシートに取り込む は できたので(つなげてないけど、)
※1の2Rの切り替えを先にテストしてみます。
Private Sub CommandButton1_Click()
Debug.Print Me.WebBrowser1.Document.URL
Debug.Print Me.WebBrowser1.Document.Title
Dim n As Integer
Dim strRACE As String
strRACE = InputBox("どのレース?に切り替える?", "TEST", "2R")
'OPTION タグからレースを 選択
Dim tagOPTION As Object 'タグ保存用
Dim nOPTION As Integer '見つけたOPTIONタグを保存する変数。
Set tagOPTION = Me.WebBrowser1.Document.all.tags("OPTION") 'OPTIONのタグを抜き出す
nOPTION = -1 'エラーの-1で初期化する
For n = 0 To tagOPTION.Length - 1 'OPTIONのタグを頭から探る
If tagOPTION(n).InnerText = strRACE Then 'レース番号を探す、OPTIONのテキストで比較する
nOPTION = n '見つけた番号をセットする。
Exit For '見つけたのでループを抜ける。
End If
Next n
'エラーの判断
If nOPTION = -1 Then '-1のまま、見つからなかったら、エラーにする。
MsgBox strRACE & "レースが見つかりません、システム管理者に連絡してください"
Exit Sub '関数を抜ける
End If
'OPTIONをセレクト、選択する。
tagOPTION(nOPTION).Selected = True '見つけたオブション(レース)を選択状態にする
'上の階層、Formを探して、.Submitする。
Dim objOYA_TAG As Object '親のオブジェクトを入れる
Set objOYA_TAG = tagOPTION(nOPTION).parentElement '見つけたOPTIONの親を代入
While objOYA_TAG.tagname <> "FORM" 'タグの名前がFORMになるまで(FORM以外の間まわる)
Set objOYA_TAG = objOYA_TAG.parentElement 'さらに、一つ上の親タグを代入
Wend
objOYA_TAG.Submit '上へ行き、見つけたフォームを.Submit 送信処理
'Stop 'とめる
End Sub
↑ポイントは
Set tagOPTION = Me.WebBrowser1.Document.all.tags("OPTION")
で、OPTIONのタグを抜き出し
For n = 0 To tagOPTION.Length - 1 'OPTIONのタグを頭から探る
If tagOPTION(n).InnerText = strRACE Then
でレース番号を探します(OPTIONのテキストで比較する)
無事見つけたら、
tagOPTION(nOPTION).Selected = True
で、オブションを選択状態にする
あとは、親のタグがFORMになるまで上に行き、
.Submitで送信、無事レースが切り替わります。
こんな感じです。