三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
Ken3三流君の連絡先:
[google formsで連絡する]
上記の問い合わせフォームに質問・感想など気軽に書き込んでください

よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

XXXXXさんへ JRA単勝取り込みサンプルプログラムの作りが悪くご迷惑をおかけしてスミマセン。

下記の質問をいただく

単勝オッズの取得20170820.xlsmを回答して実行しましたが、動きません。
MENUシートのB2に入れた、「2回新潟9日 リンクが見つかりませんでした」
のMSGBOXが出てオッズを取得できません。

こちらの環境はExecl 2013です。

もう一つのサンプルで、「三流君VBAIEのリンクを操作 Document.Linksを探る」
試したのですが、JRAのHBのリンク数は13個でした。

JRA側が2017/08から何か変更したのでしょうか?

私のサンプルがご迷惑をかけたみたいです
※プログラムの作りが甘いからかも・・・

やってみたら、動いてしまったのですが、
不具合を再現するために、イロイロと操作をしてみたら原因が判明・・・

再現手順:
ホームページから開催日を反転させて(範囲指定して)手動でコピーすると
2回新潟9日

と後ろにスペースや改行が入って
ExcelのB2セルにコピーされてしまいます。

この状態で実行すると、リンクが見つからないのエラーがでます。
B2にテストで入れる時
[2回新潟9日]
で、前後のスペースや改行を入れないで実行すると動作すると思います。。。。

テスト時は、手入力していたのかなぁ、それとも、、、う~ん。
実際の操作だと、開催場所はコピペするのが自然な操作かなぁ。

※さらに手入力でも、
 2回 9日 など数字が全角でも動かなかったりするし、
 動作チェックが甘かったみたいです。

なので、

>JRA側が2017/08から何か変更したのでしょうか?

変更はなく、半角で入れると動作するみたいです・・・

一度、B2のセルをクリアしてから、
2回新潟9日と半角で入れ、
前後のスペースが無いか確認してください。
※私も、HPからコピーした開催地を貼り付けたら、動作しませんでした・・・

サンプルプログラムの作りが悪くご迷惑をおかけしてスミマセン。 三流プログラマー Ken3

問題のサンプルは下記のページです・・・
ken3memo.hatenablog.com


質問・感想・クレームなど、
気軽にコメント欄に書いてもらえるとうれしいです。

[Googleフォームにコメントを残す]
↑質問・コメントの入力フォームです、気軽に書いてください


フッター:最後にKen3Videoの動画一覧を紹介します

YouTubeにアップした動画です。他の動画を一瞬でも見てもらえるとさらに嬉しいです。
再生リスト:[三流君Ken3の最新動画]←リストの一覧形式で表示する


また、ブログを見に来てくださいね。ではまたぁ~