banner2.gifブログランキング・にほんブログ村へ
クリックよろしくお願いします.

2009年03月28日

エクセルで競馬予想3

前回はweb上から馬の出走データを取り込む流れについて説明しました.

今回は
?A貼り付けた出馬表における馬番が1番の馬のハイパーリンクから,その馬のページに行きデータを取り込む.

について説明します.
まず,外部からデータを取り込むマクロを記録します.

やり方は,エクセルの「ツール」→「マクロ」→「新しいマクロの記録」を選択します.
この時点で,次から行う操作は,「記録終了」をするまで,すべてマクロに記録されます.
ここからは,実際にデータを取り込む操作を記録します.

・まず,データを貼り付ける場所のセルをクリックします.
・次に「データ」→「外部データの取り込み」→「新しいwebクエリ」を選択します.
・別ウインドウでwebページが表示されるのでアドレスバーにnetkeibaの馬のアドレスを書きます.
・そうすると,各馬のページにジャンプします.そこで取り込みたい場所の「⇒」マークをクリックし,一番下の取り込みボタンを押します.
・取り込めたら,「ツール」→「マクロ」→「記録終了」をクリックすると記録完了です.

例として,ディープインパクトの出走データを,セルA20に取り込むという記録をとってみると以下のようになります.


Sub Macro1()
Range("A20").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://db.netkeiba.com/horse/2002100816", Destination:=Range("A20"))
.Name = "2002100816"
.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 = "35"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

となります.

ここで,

WebDisableDateRecognition = False

の部分は
WebDisableDateRecognition = True

に変更しておいてください.
確か,これはセルの書式を固定するためだったと思います(間違ってるかもしれません).

あと
.WebTables = "35"

の部分の番号は「webページのどの場所をとりこむか」ということを表しています.
しかしこれが厄介なことに,馬によって,たとえば掲示板への書き込み量や広告の量などによって数字が変わってきます.
これの解決策については後日説明します.

これでとりあえず「webからデータを取り込むということは出来ました」
ただし,この方法は「webページのアドレスを自分で入力してデータを取り込む」という方法でしかありません.

実際には出馬表に載っているハイパーリンクをたどって,各馬のページに移動し,データを取り込まなければなりません.

次回は「ハイパーリンクをたどって」webからデータを取り込む方法を説明します.
posted by YSM at 14:16| 大阪 ☁| Comment(0) | TrackBack(0) | 日記 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。

この記事へのトラックバック
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。