「Webスクレイピング」タグアーカイブ

VBAによる地方競馬の自動投票（オッズデータ傾向分析）の実力を検証する。

最近２週間の戦績はどうでしたか？

回収率は82.9％であった。

項目	投票レース数	購入額	回収額	回収率
単勝複勝計	14R	14,000円	11,600円	82.9％

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

回収率は76.4％であった。

項目	投票レース数	購入額	回収額	回収率
単勝計	14R	7,000円	5,350円	76.4％

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

回収率は89.3％であった。

項目	投票レース数	購入額	回収額	回収率
複勝計	14R	7,000円	6,250円	89.3％

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

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

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

「【ExcelVBA】＜地方競馬自動投票＞今さら聞けないExcelVBA」シリーズで継続的に紹介して行く予定である。

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

Ameba

ミドルシニアの趣味の世界

【45歳から】始めたいExcelVBA競馬自動投票＜ログイン＞

2022年2月14日かっちゃん

（楽天）地方競馬情報サイトへのログインを自動化します

何か準備しておくものはありますか？

「楽天競馬」への会員登録＆IE（Internet Explorer）の確認を済ませてください

事前に準備するものは次の２点です。

①「楽天競馬」への会員登録
地方競馬のレース情報を取得するために、「楽天競馬」への会員登録を済ませてください。

②IE（Internet Explorer）の確認
PCにIE（Internet Explorer）がインストールされていることを確認してください。

何かExcelで準備しておくものはありますか？

マクロ有効ブック＆開発タブ＆ログイン情報

Excelでの準備は次の３つです。

1	マクロ有効ブックの新規作成・Excelを立ち上げ、[新規][空白のブック]を選択します。・[ファイル][名前を付けて保存]を選択し、[ファイルの種類]で[Excelマクロ有効ブック（*.xlsm）]を選択して保存します。　[ファイル名]は任意です。（推奨：rakuten_keiba.xlsm）
2	開発タブの表示確認・Excelファイルを開いた時、上部のタブの中に「開発」が表示されていることを確認します。・表示されていない場合は、次の手順で表示されます。（[ファイル][その他][オプション]を選択し、[リボンのユーザー設定] で [開発]のチェックボックスをオンにします）
3	（楽天競馬サイトへの）ログイン情報の設定・ワークシートの名前を「Parameter」に変更してください。・Excelシートに次のように「楽天競馬」サイトへのログイン情報を設定しておきます。＜ID＞あなたの「楽天競馬」サイトのログイン・ユーザID ＜PASS＞あなたの「楽天競馬」サイトのログイン・パスワード＜URL＞https://keiba.rakuten.co.jp/
3	・各「設定値」（ExcelのC列）には名前を定義してください。　この場合、セルC3には「ID」、セルC4には「PASS」、セルC5には「URL」と名前を定義します。　（名前の定義の仕方は、該当セルを選択し、[数式][名前の定義]で名前を入力します）。

どうすれば「楽天競馬」サイトへ自動ログインできますか？

自動ログインVBAマクロを作成します

「楽天競馬」サイトへ自動ログインするには次の設定を行ってください。

1	自動ログインマクロ実行ボタンの設置 Excelシートに次のように「ボタン」を設置し、自動ログインマクロを作成します。・[開発][挿入][フォームコントロール]の中から[ボタン（フォームコントロール）]を選択し、シートに貼り付けます。
2	マクロの作成・「マクロの登録」ダイアグラムで[新規作成]ボタンをクリックします。・「マクロ名」を「rakuten_login_Click」にします。
2	・（下段の）「★自動ログインマクロ」のすべてコピーし、すべてを（上書き）貼り付けます。　ダイアグラムを閉じます（右上×をクリックします）。
3	ボタンの名前変更・ボタンが設置されます。名前をログインに変更します。

★自動ログインマクロ

（上段の）「２．マクロの作成」で、次のVBAマクロをすべてコピーしすべてを貼り付けて使用してください。

Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)

Sub rakuten_login_Click()
‘==================================================
‘rakuten競馬ログイン
‘==================================================

Dim id As String
Dim pass As String
Dim url As String

‘ID/PASS/URL取得
With Worksheets(“Parameter”)
id = .Range(“id”).Value ‘ID
pass = .Range(“pass”).Value ‘PASS
url = .Range(“url”).Value ‘URL
End With

‘ie起動
Set objIE = CreateObject(“InternetExplorer.Application”)

‘Rakuten競馬
With objIE
.Visible = True
.navigate url
‘インターバル
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
End With

‘マイページクリック
For Each objinp In objIE.document.getElementsByTagName(“a”)
If Mid(objinp.textContent, 26, 5) = “マイページ” Then
objinp.Click
Exit For
End If
Next

‘インターバル
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop

‘楽天会員ログイン
‘ID入力
For Each objinp In objIE.document.getElementsByTagName(“Input”)
If objinp.Name = “u” Then
objinp.Value = id
Exit For
End If
Next
Sleep (1000)

‘PASS入力
For Each objinp In objIE.document.getElementsByTagName(“Input”)
If objinp.Name = “p” Then
objinp.Value = pass
Exit For
End If
Next
Sleep (1000)

‘ログイン
For Each objinp In objIE.document.getElementsByTagName(“Input”)

If objinp.Name = “submit” Then
objinp.Click
Exit For
End If
Next

‘インターバル
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
Sleep (1000)

End Sub