エクセルで土日の出走馬から自分の注目している馬の確認方法

質問

これまでのＪＲＡのホームページ右上に表示されていた、出走馬名表で木曜日の１６：００頃に土、日の全出走馬が１つのページで１日１場の全レースの出走馬名が表示されていましたが、ホームページのリニューアルでそれがなくなってしまいました。

そのページをctrl＋aで全選択してエクセルファイルにコピーして（３場開催の場合この作業×６回）、ハイパーリンクで自分の注目している馬が出ているかであぶりだしていました。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1431816
ここで教えてもらいました。

リニューアルされて１ページに１レースと細かくなったのでこの作業ができなくなってしまいました。（やろうと思えばできますが、１レースに１つのページになってしまったので６回の作業が×１２で７２回の作業になってしまいます）

どうすればこのような作業ができるようになりますでしょうか？出走しているか確認したい馬が２００頭程いるので１頭ずつ確認はとてもできません。
http://race.netkeiba.com/?id=c1007
例えば↑のページで各レースの２歳未勝利とかをクリックするとリンク先にそのレースの出走馬の名前が全頭出たページに行くのですが、リンク先ページをまとめてババーッとひとつのエクセルに貼り付けたりできたら１レースずつ選択貼り付け、選択貼り付けの作業をしなくてもいいのですが、そういうのは可能でしょうか？

有料のサービス以外で注目馬の出走確認をしたいのですが、できるだけ軽い作業でできる方法を教えてほしいです。よろしくお願いします。

回答No.4

web2525 · ベストアンサー

【A1】セルに［西暦］［開催地コード］［開催数］［開催日］01と入力
【B2】セルにその日の最終レース番号を入力
※開催地コード
札幌 01
函館 02
福島 03
新潟 04
東京 05
中山 06
中京 07
京都 08
阪神 09
小倉 10
※開催数・開催日は4回東京2日目の場合はそれぞれ”04””02”と2桁で。
※最後に”01”を付け足す。

例：明日の東京なら200605040101、日曜の京都なら200608050201となります。

【C3】セルに１Rから順に表示されます。

注意：テストしてて気がついたのですが、枠順が決まると枠番馬番データが追加されるので、金曜日に枠番が決まる重賞レースがあると並びが乱れます。
連続しての実行はできないので、他開催のデータを取得するときは、シートを替えてください。

不都合があれば、また直します。
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

お礼

回答ありがとうございます。
バッチリできました。
あと取り込む情報なのですが、出馬表の一覧の部分だけと書きましたが、

10/08(日) 5回 京都 2日目
6R 500万下
3歳上 牝□指(定量) ダ1800m 15頭発走：13:00
本賞金：740、300、190、110、74万円

↑この日付、レース番号、距離、発送時刻などの部分も一緒に取り込みたいです。よろしくお願いします。

補足

http://oshiete1.goo.ne.jp/qa2046491.html
過去にこういう質問もしていたのですが、今回教えてもらって出せた出馬表でも同じようなのができますでしょうか？よろしくお願いします。

回答No.3

web2525

とりあえず中間報告
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)

というのが２４個Ａ～Ｘまで挿入されたのですが、
うまくできません。
１レースから１２レースまでの出馬表を取り込みたいのですが、やり方が間違っているのでしょうか？

体裁は横に取り込んでいったのですが、
馬名が挿入される位置を同じ列にしたいので縦に挿入さすのはできないでしょうか？

マクロが全く分からないので次週以降も取り込む場合どの部分を変更して実行すれば取り込めるのかも教えて欲しいです。よろしくお願いします。

回答No.2

web2525

抽出してエクセルに取り込むのは、
１．出馬表の一覧部分だけ。
２．ページすぺて

２であれば取り込みは割と容易かと思われます。

そのページのアドレス
http://race.netkeiba.com/?pid=race&id=c200608050102
の最後の数字の部分の
2006＝開催年
08　＝開催競馬場
05　＝開催回数
01　＝開催日
02　＝レース番号
ですから、競馬場の識別番号と第何回の回数と何日目の何レースかを指定すればそのページを開く事ができます。
とりあえずマクロでなんとかなるか検証してみます。

お礼

web2525様
親切でしていただいたのにgooに削除されてしまいました回答の方も本当にありがとうございました。

補足

回答ありがとうございます。
取り込むのは出馬表の一覧部分だけの方がいいです。

回答No.1

pbforce

エクセルのVBAでIEを操作することが可能ですから比較的簡単に実現可能だと思います。

お礼

回答ありがとうございます。比較的簡単とは希望が出てきました。やり方を教えて頂けないでしょうか？よろしくお願いします。