XXXXXさんへ
熱い、紹介、転載不可の
メッセージありがとう。
JRAオッズ取得の
テストで使用したExcelブックを
test/20170820.zip
に保存しました。アレンジして使ってみてください。
コードだけで、動くブックを保存していなくてすみませんでした。
次回から、あるていどまとまったら、ブックを公開してみようと思います。
ken3memo.hatenablog.com
ken3memo.hatenablog.com
2017 JRA 単勝オッズをExcelへ取り込むVBA - YouTube
www.youtube.com
要望には、すべてこたえられないと思いますが、
気長に、温かい目でお待ちを・・・ではまたぁ。
下記の質問をいただく
単勝オッズの取得20170820.xlsmを回答して実行しましたが、動きません。
MENUシートのB2に入れた、「2回新潟9日 リンクが見つかりませんでした」
のMSGBOXが出てオッズを取得できません。こちらの環境はExecl 2013です。
もう一つのサンプルで、「三流君VBAでIEのリンクを操作 Document.Linksを探る」
試したのですが、JRAのHBのリンク数は13個でした。JRA側が2017/08から何か変更したのでしょうか？
私のサンプルがご迷惑をかけたみたいです
※プログラムの作りが甘いからかも・・・
やってみたら、動いてしまったのですが、
不具合を再現するために、イロイロと操作をしてみたら原因が判明・・・
再現手順:
ホームページから開催日を反転させて(範囲指定して)手動でコピーすると
2回新潟9日
と後ろにスペースや改行が入って
ExcelのB2セルにコピーされてしまいます。
この状態で実行すると、リンクが見つからないのエラーがでます。
B2にテストで入れる時
[2回新潟9日]
で、前後のスペースや改行を入れないで実行すると動作すると思います。。。。
テスト時は、手入力していたのかなぁ、それとも、、、う～ん。
実際の操作だと、開催場所はコピペするのが自然な操作かなぁ。
※さらに手入力でも、
２回 ９日 など数字が全角でも動かなかったりするし、
動作チェックが甘かったみたいです。
なので、
>JRA側が2017/08から何か変更したのでしょうか？
変更はなく、半角で入れると動作するみたいです・・・
一度、B2のセルをクリアしてから、
2回新潟9日と半角で入れ、
前後のスペースが無いか確認してください。
※私も、HPからコピーした開催地を貼り付けたら、動作しませんでした・・・
サンプルプログラムの作りが悪くご迷惑をおかけしてスミマセン。 三流プログラマー Ken3
