（楽天）地方競馬情報サイトのオッズ情報（単勝・複勝）を自動取得します。
事前に、今までにご紹介した「（楽天）地方競馬情報サイトへの自動ログイン」と「（楽天）地方競馬情報サイトのレース情報取得」は済ませておいてください。
●【ExcelVBA】＜地方競馬自動投票＞今から聞けないExcelVBA（ログイン）
●【ExcelVBA】＜地方競馬自動投票＞今から聞けないExcelVBA（レース情報）
「楽天競馬」サイトから自動でオッズ情報（単勝・複勝）を取得するには次の設定を行ってください。
●レース情報取得マクロ実行ボタンの設置
| 1 |
前回作成したExcelブック「rakuten_keiba.xlsm」を開きます。 |
 |
| 2 | オッズ情報取得マクロの購入 右のExcel VBAマクロボタンをクリックし、「オッズ情報取得マクロ」を購入します。 |
|
| 3 |
「オッズ情報取得ボタン」の設置 |
 |
| マクロの貼り付け 「オッズ情報取得マクロ」のすべてをコピーし、すべてを上書きでペースト（貼り付け）します。 ダイアグラムを閉じます（右上×をクリックします）。 |
 |
|
| 4 | ボタン名の変更 作成したボタン名を「オッズ情報取得」に変更します。 |
 |
| 5 | マクロの登録 「オッズ情報取得ボタン」を右クリックし、「マクロの登録」をクリックします。 「rakuten1_Click」を選択し、「OK」をクリックします。 |
  |
| 6 | 新しいシート「RealData1」の追加 シート最下段の右横の「＋」をクリックし、シートを追加します。 追加したシート名を「RealData1」に変更します。 |
 |
●オッズ情報取得の実行
「オッズ情報取得」ボタンをクリックします。
実行すると「楽天競馬」のオッズ情報（単勝・複勝）が取り込まれます。
シート「RealData1」に全レース情報が取り込まれます。
単勝（馬番・倍率（下1桁が小数点以下）・人気）、複勝（馬番・倍率（下1桁が小数点以下）・人気）の順で表示される。
※「倍率」：123は12.3倍を意味する
次回、分析の考え方を紹介します。
ブログ「人生の中間点」もぜひご覧ください。