TABLE WebのJRA３連単オッズ表二重のテーブルからデータ取得のテスト

３連単のオッズ取得にチャレンジしてみたいと思います。

多くの、と言っても二名ですが、
下記のようなメッセージをいただいています

>宜しければ今一番売れている馬券種の3連単を取り上げて頂けませんでしょうか。
>例えば、、
>3連単の全てのオッズ収集後に指定した人気を購入する。
>理由、3連単は性質上、多点買が基本で一点100円を100点以上購入する事もある為です。

など、３連単のリクエストをいただいてます。
単勝の次は馬連かなぁと
思いつつも、
リクエストが来たので、
先に３連単のオッズ取得にチャレンジしてみたいと思います。

下記、いつもの右往左往しているライブ解説動画です。。。
JRA ３連単オッズ取得プログラム作成前の確認をライブで Ken3 ライブプログラミングテスト中 - YouTube
www.youtube.com

1.現物の確認

実際のHPを見たり、
ソースを見たりして、
TABLEの構造を探ります。

1.1 自作のIE TABLE確認ツールのデバッグを兼ねて探ってみる
少し前テストで作成した
ken3memo.hatenablog.com
↑自前のTABLE取り出しツールのデバッグを兼ねて、
３連単の構造を探ってみたいと思います。

該当テーブルは、
<table class="santanOddsHyo">
  <tbody><tr>
    <th class="rank">1着</th>
    <th class="ubn2">2</th>
    <th class="ubn2">2</th>
一行目 TR 一着、
二行目 TR 二着
三行目 TR三着
      ここに二重のテーブルが続く
      <tr>
        <td class="rank">3着</td>

        <td class="jikubetuOdds">
              <table class="oddsTbl">
                <tbody><tr>
                  <th class="ubn3 Top">1</th>
                  <td class="oddsData Top">---</td>
                </tr>
                <tr>
                  <th class="ubn3">3</th>
                 <td class="oddsData">  14516.8</td>

                </tr>
↑この処理、仕掛けを考える。

クラス名の取り出しは、
.classNameで可能なので、
If objTABLE.className = "santanOddsHyo" Then
で、判断しました。

下記、ライブのデバッグで作成したソースです。
※変数名など変な感じですが、
　処理の参考となれば幸いです。

Private Sub CommandButton2_Click()
    '３連単 データ取得のテスト
    
    '選択されていたら、作業シートに書き込む
    Dim 最終行 As Integer  '急に漢字の変数使うなよ・・・
    
    Sheets("作業").Select  'データセット先に切り替える
    
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
    
    最終行 = 1
    
    
    'テーブルを探す
    'タグの取出しが、.getElementsByTagName("TABLE")で 可能なので、
    
    '表をDATAシートに書き出す
    Dim x As Integer  '列の管理
    Dim y As Integer  '行の管理
    Dim n As Integer  'TABLEの管理
    
    Dim yy3 As Integer 'オッズ、縦
    
    Dim objTABLE As HTMLTable  'HTMLのテーブル
    Dim obj3TABLE As HTMLTable '子供のテーブル、三着、オッズ入り
    
    Dim strWORK As String
    
    Dim 買い目1 As String
    Dim 買い目2 As String
    Dim 買い目3 As String

    Dim オッズ As String
    
    'TABLEタグを複数取り出す
    'テーブルすべてを なめる 全件チェック
    For Each objTABLE In IE.document.getElementsByTagName("table")
        'クラス名が のテーブルを処理する <table class="santanOddsHyo">
        Debug.Print "objTABLE.className=" & objTABLE.className
        If objTABLE.className = "santanOddsHyo" Then
            
            '一行目 TR 一着、 買い目は動かない
            買い目1 = objTABLE.Rows(0).Cells(1).innerText

            '三着 <table class="oddsTbl"> ← ここに やっと オッズ
            x = 0 '列のループ
            For Each obj3TABLE In objTABLE.getElementsByTagName("table")
            
                '親のテーブル 二行目が二着ですよ
                'objTABLEs(テーブル).Rows(行).Cells(列).テキスト値
                x = x + 1
                買い目2 = objTABLE.Rows(1).Cells(x).innerText

                'ここの 二列目からが ３連単
                For yy3 = 0 To obj3TABLE.Rows.Length - 1 '行の数 ループ
                    'objTABLEs(テーブル).Rows(行).Cells(列).テキスト値
                    買い目3 = obj3TABLE.Rows(yy3).Cells(0).innerText  '馬番
                    オッズ = obj3TABLE.Rows(yy3).Cells(1).innerText  'オッズ
                    'オッズが---だったら、無しなのでスキップ
                    If オッズ <> "---" And Len(Trim(オッズ)) > 0 Then  '数値が入っていたら、シートに書き込む
                        Cells(最終行 + y, "A") = "'" & 買い目1 & "-" & 買い目2 & "-" & 買い目3
                        Cells(最終行 + y, "B") = オッズ
                        'セット位置を増やす
                        y = y + 1
                    End If
                Next yy3
            Next
            
            '行を増やす
            Cells(最終行 + y, 1).Select
            DoEvents
            
        End If
    Next
  
    '書き込み終了メッセージ
    MsgBox "シートに書き込みました、確認してください"
    
End Sub