「ExcelVBA」タグアーカイブ

📌【初心者でもExcelだけでOK!】JRA-VANから競馬オッズを自動取得する方法

ExcelでJRA-VANの競馬オッズを自動取得する方法を解説する初心者向けプロモーション画像📌 はじめに|Excelだけでオッズが取れる時代へ

「Accessがないと無理?」
そんな心配は不要です。JRA-VANのオッズデータは、Excelだけで簡単に取得できます!

この記事では、JRA-VAN SDKとExcel VBAを使ったオッズ自動取得の方法を、
30分もあれば誰でも始められる3ステップでわかりやすく解説します。


✅ STEP 1|JRA-VANとExcelをつなぐ準備

1 JRA-VANに登録

2 Data Lab.アプリをインストール

  • ID登録後、案内に従ってData Lab.本体をインストール

3 SDKを導入(超重要)

  • SDKページから最新版をダウンロードして実行
  • ExcelとJRA-VANをつなぐ“接着剤”になります

💡 SDKとは?
JRA-VANの競馬データとExcelを直接連携させるための開発キットです。


✅ STEP 2|ODBC設定でExcelとデータベースを接続

  1. スタートメニューで「ODBC」と検索 →「ODBC(32ビット)」を選択
  2. 「ユーザーDSN」タブに「JRADataLabDB」があればOK
  3. なければ「追加」→「JRADataLabDB」→名前を入力して登録

🧐 ODBCとは?
ExcelがJRA-VANデータを読み込むためのデータ接続口です。


✅ STEP 3|VBAでオッズデータを自動取得

Excel画面+VBAエディタが開いている操作中のイメージ1 Excelでの作業手順

  1. Alt + F11 でVBAエディタを開く
  2. 「挿入」→「標準モジュール」→ 以下のコードを貼り付け
Sub GetJRAOdds()
    
Dim conn As Object, rs As Object
    
Dim sql As String, row As Integer

    
Set conn = CreateObject("ADODB.Connection")
    
conn.Open "DSN=JRADataLabDB;UID=あなたのID;PWD=あなたのパスワード"

    
sql = "SELECT UMA_NO1, ODDS, NINKI FROM ODDS_TBL " & _
          "WHERE TOUBETU = '01' AND NEN = 2025 AND JOCD = '08' " & _
          "AND KAISU = 2 AND NICHIME = 1 AND RACENUM = 10"

    
Set rs = conn.Execute(sql)
    
row = 2
    
Do Until 
rs.EOF
        
Cells(row, 1).Value = rs("UMA_NO1")
       
Cells(row, 2).Value = rs("ODDS")
        
Cells(row, 3).Value = rs("NINKI")
        
rs.MoveNext: 
row = row + 1
    
Loop

    
rs.Close: 
conn.Close
MsgBox "取得完了!"

End Sub
  1. F5キーで実行 → Excelのシートにオッズが表示されますシートに貼り付けられたオッズ一覧表のキャプチャ風イラスト

📌 まとめ|Excelだけでできる!データ競馬の第一歩

ここまでできれば、もう**「数字で競馬を読む」ステージへ突入**です。

  • 偏差値化で“買い”パターンを見つける
  • 人気とオッズから回収率の高いレースを抽出
  • 日々の予想を自動でテンプレ化

💡 しかも、すべてExcelだけで完結できます!


✅ 次に読むお勧め記事

📌【競馬は“投資”に変えられる】票数の偏差値で見えてきた、勝てるレース

 

 

【検証】<VBA自動投票>地方競馬(5/12~5/25)

回収率は150.0%であった。

最近2週間の戦績はどうでしたか?

回収率は150.0%であった。

単勝購入の成績はどうでしたか?
単勝購入の成績はどうでしたか?

単勝率が25.0%、回収率は187.5%であった。

複勝購入の成績はどうでしたか?
複勝購入の成績はどうでしたか?

複勝率が50.0%、回収率は112,5%であった。

次回の検証予定はいつですか?
次回の検証予定はいつですか?

2週間後を予定している。

「<VBA自動投票>地方競馬」を実践するにはどうすればいいですか?
「<VBA自動投票>地方競馬」を実践するにはどうすればいいですか?

「【ExcelVBA】<地方競馬自動投票>今さら聞けないExcelVBA(ログイン)」以降シリーズで掲載中である。

「<VBA自動投票>地方競馬」の検証はこれからも続けて行く。

これでOK!

Ameba

【検証】<VBA自動投票>地方競馬(4/28~5/11)

回収率は63.0%であった。

最近2週間の戦績はどうでしたか?

回収率は63.0%であった。

項目投票レース数購入額回収額回収率
単勝複勝計5R5,000円3,150円63.0%
単勝購入の成績はどうでしたか?
単勝購入の成績はどうでしたか?

単勝率が20.0%、回収率は66.0%であった。

項目投票レース数的中レース数 購入額回収額回収率
単勝計5R1R 2,500円1,650円66.0%
複勝購入の成績はどうでしたか?
複勝購入の成績はどうでしたか?

複勝率が40.0%、回収率は60.0%であった。

項目投票レース数的中レース数 購入額回収額回収率
複勝計5R2R 2,500円1,500円60.0%
次回の検証予定はいつですか?
次回の検証予定はいつですか?

2週間後を予定している。

「<VBA自動投票>地方競馬」を実践するにはどうすればいいですか?
「<VBA自動投票>地方競馬」を実践するにはどうすればいいですか?

「【ExcelVBA】<地方競馬自動投票>今さら聞けないExcelVBA(ログイン)」以降シリーズで掲載中である。

「<VBA自動投票>地方競馬」の検証はこれからも続けて行く。

これでOK!

Ameba

【45歳から】始めたいExcelVBA競馬自動投票<オッズ情報(単複)>

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

▼ 競馬は“投資”に変えられる
票数の偏差値で見えてきた、勝てるレースの本質
まだ「偏差値で競馬を読み解く」基礎ロジックを知らない方はこちら
何か準備しておくものはありますか?

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

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

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

【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倍を意味する

私でもできた!次のステップへ進もう!
次のステップは何ですか?

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

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

これでOK!
次回は、「【45歳から】始めたいExcelVBA競馬自動投票<オッズ情報(出走馬)>」で出走馬情報を取得するVBAマクロを紹介します。

Ameba

【検証】<VBA自動投票>地方競馬(4/14~4/27)

回収率は100.3%であった。

最近2週間の戦績はどうでしたか?

回収率は100.3%であった。

項目投票レース数購入額回収額回収率
単勝複勝計15R15,000円15,050円100.3%
単勝購入の成績はどうでしたか?
単勝購入の成績はどうでしたか?

単勝率が46.7%、回収率は120.7%であった。

項目投票レース数的中レース数 購入額回収額回収率
単勝計15R7R 7,500円9,500円120.7%
複勝購入の成績はどうでしたか?
複勝購入の成績はどうでしたか?

複勝率が60.0%、回収率は80.0%であった。

項目投票レース数的中レース数 購入額回収額回収率
複勝計15R9R 7,500円6,000円80.0%
次回の検証予定はいつですか?
次回の検証予定はいつですか?

2週間後を予定している。

「<VBA自動投票>地方競馬」を実践するにはどうすればいいですか?
「<VBA自動投票>地方競馬」を実践するにはどうすればいいですか?

「【ExcelVBA】<地方競馬自動投票>今さら聞けないExcelVBA(ログイン)」以降シリーズで掲載中である。

「<VBA自動投票>地方競馬」の検証はこれからも続けて行く。

これでOK!

Ameba