|
吉田様
お世話になります。 1年以上前のデータ取得につきましてはoptionを「3」に変更することで取得 できました。
retval = JVLink1.JVOpen("RACE", "20040801000000",3, readcount, dlcount, lastfiletimestamp)
払い戻し情報の表示ですが、下記の変更でよろしいでしょうか?
(表示の7番目でエラーになります。)
'ファイルのダウンロード Dim mRaData As JV_RA_RACE --> Dim mRaData As JV_HR_PAY
If Left(buff, 2) = "RA" Then 'JVData構造体にRAのレコードをセットする Call SetData_RA(buff, mRaData) If Left(buff, 2) = "HR" Then 'JVData構造体にHRのレコードをセットする Call SetData_HR(buff, mRaData)
'Sheet1の表示箇所に表示 Sheet1.Cells(5 + i, 2) = mRaData.id.Year Sheet1.Cells(5 + i, 3) = mRaData.id.MonthDay Sheet1.Cells(5 + i, 4) = mRaData.id.JyoCD Sheet1.Cells(5 + i, 5) = mRaData.id.Kaiji Sheet1.Cells(5 + i, 6) = mRaData.id.Nichiji Sheet1.Cells(5 + i, 7) = mRaData.id.RaceNum Sheet1.Cells(5 + i, 8) = mRaData.PAYINFO1.Umaban Sheet1.Cells(5 + i, 9) = mRaData.PAYINFO2.Kumi 以上よろしくお願いします。 |