人生の中間点

（楽天）地方競馬情報サイトのオッズ情報（単勝・複勝）を自動取得します

（楽天）地方競馬情報サイトへの自動ログインとレース情報取得は済ませておいてください。

今までにご紹介した「（楽天）地方競馬情報サイトへの自動ログイン」と「（楽天）地方競馬情報サイトのレース情報取得」は済ませておいてください。

まだの方は、以下の記事をご覧になってくださいください。

●【ExcelVBA】＜地方競馬自動投票＞今から聞けないExcelVBA（ログイン）

●【ExcelVBA】＜地方競馬自動投票＞今から聞けないExcelVBA（レース情報）

オッズ情報取得VBAマクロを作成します

「楽天競馬」サイトから自動でオッズ情報（単勝・複勝）を取得するには次の設定を行ってください。

①レース情報取得マクロ実行ボタンの設置

1	前回作成したExcelブック「rakuten_keiba.xlsm」を開きます。）
2	オッズ情報取得マクロの購入 右のExcel VBAマクロボタンをクリックし、「オッズ情報取得マクロ」を購入します。	Excel VBAマクロ
3	「オッズ情報取得ボタン」の設置 [開発][挿入][フォームコントロール]の中から[ボタン（フォームコントロール）]を選択し、ログインボタンの下にボタンを設置します。「マクロの登録」ダイアグラムで[新規作成]ボタンをクリックします。
	マクロの貼り付け 「オッズ情報取得マクロ」のすべてをコピーし、すべてを上書きでペースト（貼り付け）します。 ダイアグラムを閉じます（右上×をクリックします）。
4	ボタン名の変更 作成したボタン名を「オッズ情報取得」に変更します。
5	マクロの登録 「オッズ情報取得ボタン」を右クリックし、「マクロの登録」をクリックします。 「rakuten1_Click」を選択し、「OK」をクリックします。
6	新しいシート「RealData1」の追加 シート最下段の右横の「＋」をクリックし、シートを追加します。 追加したシート名を「RealData1」に変更します。

②オッズ情報取得の実行

「オッズ情報取得」ボタンをクリックします。

「楽天競馬」の「オッズ情報」が取り込まれます。

シート「RealData1」に全レース情報が取り込まれます。

単勝（馬番・倍率（下1桁が小数点以下）・人気）、複勝（馬番・倍率（下1桁が小数点以下）・人気）の順で表示される。
※「倍率」：123は12.3倍を意味する

次回は分析の考え方を紹介します

次回、分析の考え方を紹介します。