![見出し画像](https://assets.st-note.com/production/uploads/images/103440978/rectangle_large_type_2_f56431a692447c10b0f078c8c890d29b.png?width=1200)
【競馬】VBA で JRA-VAN DataLab. のデータを取得する(事前準備編)
VBA で JV-Link を操作することにより、JRA-VAN DataLab. が提供する競馬データを取得することができます。
今回は VBA を使って競馬ソフトを作るための事前準備について説明していきます。
1. 動作環境
OS : Windows
ソフトウェア : Microsoft Excel (32bit 版)
※ OS は 64bit 版でも良いですが、Excel は 32bit 版である必要があります。
どこまで古いバージョンで動作するかは分からないですが、Windows 10、Excel 2016 以降であれば問題ないはずです。
私の使っている環境は
Windows 11 Home (64bit 版)
Microsoft 365 Apps for business (32bit 版)
です。
2. JV-Link のインストール
こちらのページの [動作確認 (JV-Link)] のタブからインストーラーをダウンロードしてインストールおよび初期設定を行って下さい。
※ 使用するには JRA-VAN DataLab. の会員登録が必要です。
3. 動作確認
プログラミングパーツ・開発支援ツール提供コーナーの VBA サンプルプログラムから Microsoft Excel 2019 のリンクをクリックすると Excel2019-parts-sample.zip という名前の圧縮ファイルがダウンロードできます。
ZIP ファイルを解凍すると、e2019parts-sample.xlsm という名前のマクロ付き Excel ファイルが出てきます。
ファイルを開くとセキュリティの警告が表示されるので、[コンテンツの有効化] ボタンをクリックしてマクロの実行ができる状態にしましょう。
![](https://assets.st-note.com/img/1681958139854-w4SwhEoY2P.png?width=1200)
[JVLink 呼び出し] ボタンをクリックすると、初回実行時には「このアプリケーションは、安全でない可能性のある ActiveX コントロールを初期化所要としています。」とメッセージが出るので、[OK] ボタンをクリックします。
![](https://assets.st-note.com/img/1681887848318-kKv8YDEDqb.png)
UserForm1 という名前のフォームが表示されるので、[JVData 取り込み開始] ボタンをクリックします。
![](https://assets.st-note.com/img/1681887857821-hq5E5NO4w0.png)
10 数秒程時間をかけてデータのダウンロードが行われ、Excel のシートにデータが表示されます。最後に「読み込みが終了しました。」と表示されれば OK です。
![](https://assets.st-note.com/img/1681887866061-GGycO2Z0Gg.png?width=1200)
このファイルの実行が正常に行えない場合は
JV-Link が正しくインストールできていない
JV-Link の設定が正しく行えていない
64bit 版の Excel を使っている
などが考えられます。
4. Excel の初期設定
Excel を起動し、新規の空白のブックを開きます。
![](https://assets.st-note.com/img/1681896903528-P7OhDMkQ2L.png?width=1200)
[ファイル] タブを開き、左下の [オプション] をクリックします。
![](https://assets.st-note.com/img/1681958182766-iTe6GtogPq.png?width=1200)
Excel のオプション画面が開いたら、左側の [リボンのユーザー設定] をクリックします。
![](https://assets.st-note.com/img/1681958205894-avVJXgOOev.png?width=1200)
画面右側の [リボンのユーザー設定] で [メイン タブ] を選択した状態で [開発] にチェックを入れて [OK] ボタンをクリックします。
![](https://assets.st-note.com/img/1681958226176-jWNwUVEsBm.png?width=1200)
リボン部分に [開発] タブが表示されれば OK です。
![](https://assets.st-note.com/img/1681958241209-mg1sgvNzOo.png?width=1200)
[開発] タブを開き、[Visual Basic] をクリックします。
![](https://assets.st-note.com/img/1681958256956-Je91sghH9I.png?width=1200)
Microsoft Visual Basic for Application の画面が開いたら、[挿入] > [ユーザー フォーム] をクリックします。
![](https://assets.st-note.com/img/1681958269325-YR4uNdh5wQ.png?width=1200)
新規のユーザーフォームが作成されたら、[ツール] > [その他のコントロール] をクリックします。
![](https://assets.st-note.com/img/1681958282642-aueHIOywxL.png?width=1200)
コントロールの追加画面が開いたら、利用可能なコントロール一覧から [JVLink Class] にチェックを入れ、[OK] ボタンをクリックします。
![](https://assets.st-note.com/img/1681958294035-IlklJ24TO6.png)
ツールボックスに JV-Link のアイコンが表示されれば OK です。
![](https://assets.st-note.com/img/1681898577580-2oPEwKOV41.png?width=1200)
ここまでの設定は Excel のブックを保存せずに閉じても残ります。
次回は簡単な競馬ソフトを作っていきたいと思います。