これまでのJRAのホームページ右上に表示されていた、出走馬名表で木曜日の16:00頃に土、日の全出走馬が1つのページで1日1場の全レースの出走馬名が表示されていましたが、ホームページのリニューアルでそれがなくなってしまいました。
そのページをctrl+aで全選択してエクセルファイルにコピーして(3場開催の場合この作業×6回)、ハイパーリンクで自分の注目している馬が出ているかであぶりだしていました。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1431816
ここで教えてもらいました。
リニューアルされて1ページに1レースと細かくなったのでこの作業ができなくなってしまいました。(やろうと思えばできますが、1レースに1つのページになってしまったので6回の作業が×12で72回の作業になってしまいます)
どうすればこのような作業ができるようになりますでしょうか?出走しているか確認したい馬が200頭程いるので1頭ずつ確認はとてもできません。
http://race.netkeiba.com/?id=c1007
例えば↑のページで各レースの2歳未勝利とかをクリックするとリンク先にそのレースの出走馬の名前が全頭出たページに行くのですが、リンク先ページをまとめてババーッとひとつのエクセルに貼り付けたりできたら1レースずつ選択貼り付け、選択貼り付けの作業をしなくてもいいのですが、そういうのは可能でしょうか?
有料のサービス以外で注目馬の出走確認をしたいのですが、できるだけ軽い作業でできる方法を教えてほしいです。よろしくお願いします。
No.4ベストアンサー
- 回答日時:
【A1】セルに[西暦][開催地コード][開催数][開催日]01と入力
【B2】セルにその日の最終レース番号を入力
※開催地コード
札幌01
函館02
福島03
新潟04
東京05
中山06
中京07
京都08
阪神09
小倉10
※開催数・開催日は4回東京2日目の場合はそれぞれ”04””02”と2桁で。
※最後に”01”を付け足す。
例:明日の東京なら200605040101、日曜の京都なら200608050201となります。
【C3】セルに1Rから順に表示されます。
注意:テストしてて気がついたのですが、枠順が決まると枠番馬番データが追加されるので、金曜日に枠番が決まる重賞レースがあると並びが乱れます。
連続しての実行はできないので、他開催のデータを取得するときは、シートを替えてください。
不都合があれば、また直します。
Sub Macro()
kaisai = Range("a1").Value
resusuu = Range("b1").Value
Range("c1").Select
For Count = 1 To resusuu
ActiveCell = Count & "R"
ActiveCell.Offset(1#).Activate
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://race.netkeiba.com/?pid=race&id=c" & kaisai, Destination:=ActiveCell)
.Name = "出馬表"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "34"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("C65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1#).Activate
kaisai = kaisai + 1
Next
End Sub
この回答への補足
http://oshiete1.goo.ne.jp/qa2046491.html
過去にこういう質問もしていたのですが、今回教えてもらって出せた出馬表でも同じようなのができますでしょうか?よろしくお願いします。
回答ありがとうございます。
バッチリできました。
あと取り込む情報なのですが、出馬表の一覧の部分だけと書きましたが、
10/08(日) 5回 京都 2日目
6R 500万下
3歳上 牝□指(定量) ダ1800m 15頭発走:13:00
本賞金:740、300、190、110、74万円
↑この日付、レース番号、距離、発送時刻などの部分も一緒に取り込みたいです。よろしくお願いします。
No.3
- 回答日時:
とりあえず中間報告
A1セルに開催番号00608050101
B1セルにその日のレース数
を入れて下記マクロ実行で、レース情報が取得できます
Sub Macro1()
'
' Macro1 Macro
'
'
kaisai = Range("a1").Value
resusuu = Range("b1").Value
syutoku = kaisai + resusuu - 1
ActiveCell.End(xlUp).Activate
For CNT = 1 To resusuu
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://race.netkeiba.com/?pid=race&id=c" & syutoku, Destination:=ActiveCell)
.Name = "?pid=race&id=c200608050104"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "34"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
syutoku = syutoku - 1
Next
End Sub
マクロから作成したので余分なコードが多いです。
取得データの体裁等で何か注文があればもう一度考えます。
回答ありがとうございます。
早速やってみたのですが、
今週の注目レース
10/08(日)
東京 毎日王冠(G2)
京都 京都大賞典(G2)
というのが24個A~Xまで挿入されたのですが、
うまくできません。
1レースから12レースまでの出馬表を取り込みたいのですが、やり方が間違っているのでしょうか?
体裁は横に取り込んでいったのですが、
馬名が挿入される位置を同じ列にしたいので縦に挿入さすのはできないでしょうか?
マクロが全く分からないので次週以降も取り込む場合どの部分を変更して実行すれば取り込めるのかも教えて欲しいです。よろしくお願いします。
No.2
- 回答日時:
抽出してエクセルに取り込むのは、
1.出馬表の一覧部分だけ。
2.ページすぺて
2であれば取り込みは割と容易かと思われます。
そのページのアドレス
http://race.netkeiba.com/?pid=race&id=c200608050 …
の最後の数字の部分の
2006=開催年
08 =開催競馬場
05 =開催回数
01 =開催日
02 =レース番号
ですから、競馬場の識別番号と第何回の回数と何日目の何レースかを指定すればそのページを開く事ができます。
とりあえずマクロでなんとかなるか検証してみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
三連単はいつ始まったのですか?
-
競馬の通過順位について
-
地方競馬のメインレースとは?
-
あるレースで全馬がレース途中...
-
千葉競輪場の開催時の前売り開...
-
競馬はなぜ一日12レースなん...
-
BS11競馬中継とグリーンチ...
-
ロイヤルコペンハーゲン フル...
-
NHKマイルC
-
GI馬ってGIレース出走馬?
-
G1開催日に特別競争が多い理由...
-
下手より上手い方がいいですよ...
-
英語で西暦を読む時の質問です。
-
皐月賞や朝日杯に牝馬は出れな...
-
宝くじで前後賞あわせてとはど...
-
次週の登録馬(JRA)を確認でき...
-
競馬のゲートの幅は何cm?
-
馬の手前の替え方
-
中央競馬のレース結果画面で先...
-
Autonomous Sensory Meridian R...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
競馬の J G1って何ですか? 普...
-
15:01発走の理由
-
ボートレースは20歳からですよ...
-
JRAの過去レースビデオ保存する...
-
GI馬ってGIレース出走馬?
-
圧倒的1番人気馬がいるレースで...
-
三連単はいつ始まったのですか?
-
地方競馬のメインレースとは?
-
ロイヤルコペンハーゲン フル...
-
競馬用語 ただもらいについて
-
2回新潟2日目。最終レースは18...
-
JRAでの高額配当の的中者が...
-
競馬はなぜ一日12レースなん...
-
JRA I-PAT内の出馬表を連続印...
-
【競馬】オグリキャップはG1レ...
-
競馬の12レースに意味があるのか?
-
サラブレの穴ぐさという企画に...
-
競馬の通過順位について
-
エイシンフラッシュが勝った今...
-
宝塚記念はいつからGI格の大レ...
おすすめ情報