| |
次の様に2014年の阪神競馬のオッズを取得しようとしているのですが、レース識
別情報のみが取得されてしまいます。
1週間オッズは提供されると思われるので取得可能かとおもうのですが、なぜ取
得できないのでしょう。
開発環境はExcel2010です。
retval = JVLink1.JVRTOpen("0B35", "201403090902"
;)
Dim mRaData As JV_O1_ODDS_TANFUKUWAKU
Dim i As Integer
i = 0
retval = 1
While retval <> 0
'JVRTOpenで指定したデータを１レコードずつ取り込み
retval = JVLink1.JVRead(buff, 200000, filename)
'JVData構造体にRAのレコードをセットする
Call SetData_O1(buff, mRaData)
'Sheet1の表示箇所に表示
Sheet1.Cells(5 + i, 2) = mRaData.id.Year
Sheet1.Cells(5 + i, 3) = Left(mRaData.id.MonthDay, 2)
Sheet1.Cells(5 + i, 4) = Mid(mRaData.id.MonthDay, 3, 2)
Sheet1.Cells(5 + i, 5) = mRaData.id.JyoCD
Sheet1.Cells(5 + i, 6) = mRaData.OddsWakurenInfo(35).Kumi
Sheet1.Cells(5 + i, 6) = mRaData.OddsWakurenInfo(35).Odds
Sheet1.Cells(5 + i, 6) = mRaData.OddsWakurenInfo(35).Ninki
i = i + 1
Wend |
