« 【競馬予想】2/19(日) | トップページ | メロンが届きました。 »

2006年5月 5日 (金曜日)

日刊コンピをTargetの外部ファイルに取り込む

競馬データベースソフト「Target」の外部指数機能に日刊コンピを取り込むEXCELファイルをアップします。
素人の駄作(マクロ)ですので、ご使用になりたい方は自由にお使い下さい。
また、マクロ部分も全て公開してありますので、ご自由に変更・修正下さい。
「compi_to_target_ex.lzh」をダウンロード

【使用方法】

ウルトラ!ニッカンスポーツ・コムの会員でコンピ指数(htmlファイル)のダウンロードが出来ることが前提です。

事前に
C:\Compi  (マクロのOutput4のモジュール内を変えれば変更も可能)
C:\Temp   (マクロのnikkan  のモジュール内を変えれば変更も可能)
のフォルダを作成しておいて下さい。

1.データクリアを押し、過去のデータをクリアします。
2.DLした日刊コンピのファイルを読み込みます。(開催ごとに1日目から)
  csv.csvファイルへの変更を保存しますか? → いいえ として下さい。

   -開催の途中まででも問題ないです。
   -2002/10までと以降で日刊コンピのフォーマットが変わっているので読み
    込みを分けています。
   -一時的に提供されたローカル版には対応できていません。
   -1日目or3日目のデータを読み込まないとファイル名が生成されません。

3.日刊コンピの読み込みが完了したら、データ変換を押す。
4.データ出力を押す。
   -既にファイルがある場合は置き換えますか → はい
   -変更を保存しますか → はい

【Targetの設定】
外部指数の設定は、
パス・ファイル名:C:\Compi\compi%Y1%K1%P1.csv
ファイル形式;レース単位・CSV形式
内容:指数+順位
レースID:旧仕様
とします。

|

« 【競馬予想】2/19(日) | トップページ | メロンが届きました。 »

コメント

はじめまして、こんばんは。ゴルといいます。Target-clubからこちらを拝見させて頂き、EXCELファイルをDLし、コンピ指数を取り込ませて頂きまして、ありがとうございます。念願のコンピの外部指数は本当に嬉しいです。ご厚意でしかも無料でアップされている状態で、こんな事を言うのもなんですが、2002/10以降は何の問題も無く取り込めますが、2002/10以前を取り込む際に1日目をクリックすると、【マクロ“Compi to Target_ex.xls’!nikkan11’が見つかりません】と出て取り込めません。初日を無視して、2日目から取り込もうとすると、【この場所に'c:¥temp¥csv.csv'という名前のファイルが既にあります。置き換えますか?】と出ます。ここで置き換えて2日~8日目を取り込むと初日が抜けますが、大丈夫です。ですが、2002/7/14以前のコンピはフォーマットが違うらしく、全く取込めません。どうしたらよいのでしょうか?

投稿: ゴル | 2006年5月14日 (日曜日) 18時38分

ゴルさん、こんばんは。むらけんです。

2002/10以前の1日目の件ですが、現象再現しました。
久しくこのボタンを使ってなかったので、バグっていたようです。
対処方法は以下の通りです。
①1日目のボタンにカーソルを合わせ右クリック。
②マクロの登録をクリック。
③2行目の['Compi to Target_ex.xls'!nikkan11.nikkan11]をクリック。
④OKをクリック。これで使えるはずです。

2件目の7/14以前ですが、私の方ではうまく行きます。現象的にわからないのですが、なんらかの原因でコピーペーストがずれているかも知れません。
このEXCELの1日目~8日目までのボタンは、コンピのhtmlファイルをEXCEL上で開き、日刊スポーツ1~8のシートに貼り付けているだけですので、手間はかかりますが、マニュアルで貼り付けても問題はないはずです。
貼り付け後にデータ変換すればできると思います。

もし、この方法でうまく行ったらですが、マクロのコピー範囲を直すとうまく行くかも知れません。
ツール→マクロ→Visual Basic Editorを選択して、標準モジュールのnikkan11等をダブルクリックします。
下記のマクロがあると思いますが、Rangeの範囲を修正すればいけるかも知れません。

'
' ソート マクロ
' マクロ記録日 : 2002/11/22 ユーザー名 : Muraken
'
'
Sub nikkan11()
Application.Dialogs(xlDialogOpen).Show
ActiveWorkbook.SaveAs Filename:="c:\temp\csv.csv", FileFormat _
:=xlCSV, CreateBackup:=False
Range("A10:AE51").Select

↑ここの範囲を正常に動くものに変更する。

Selection.Copy
Windows("Compi to Target_ex.xls").Activate
Sheets("日刊スポーツ1").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Windows("csv.csv").Activate
ActiveWindow.Close
Kill ("c:\temp\csv.csv")

Sheets("MENU").Select
Range("A1").Select

End Sub

nikkan11~18:2002/10以前の1日目~8日目
nikkan21~28:2002/10以降の1日目~8日目
に対応しています。

また何かあれば遠慮なく質問して下さい。

お互いに競馬で良い結果が得られるといいですね。

投稿: むらけん | 2006年5月15日 (月曜日) 23時28分

こんばんは、ゴルです。お答えありがとうございます。2002/10以前の1日目の件ですが、むらけんさんの言う通りにするとうまくいきました。2件目の7/14以前の件は駄目ですねぇ。マニュアルで貼り付けても集計の所のB3位置の黄色部分の枠内に指数が入っても、右側の枠内には反映されません。当然データ変換しても駄目です。なのでマクロでRangeの範囲を修正しても全て#REF!と出ます。思ったのですが、2002/10以降を取り込んだ後の集計のB3位置黄色部分の枠内、B列がレースナンバー、C列が馬番指数、D列以降に数字が入りますが、2002/10以前は馬番指数の文字が無く、左側に寄ってしまいます。またまた行き詰ってしまいました。諦めようかな~

投稿: ゴル | 2006年5月17日 (水曜日) 01時21分

はじめまして、ビルと申します。パソコンは詳しくありません。コンピ指数(htmlファイル)をDLして手順の通りやりましたが、Targetに指数を表示できません。理解できないのは事前にC:Compi (マクロのOutput4のモジュール内を変えれば変更も可能)
とC:Temp (マクロのnikkan のモジュール内を変えれば変更も可能)のフォルダの作成です。この意味がわかりません。申し訳けありませんが、教えてください。

投稿: ビル | 2008年1月31日 (木曜日) 00時27分

ビルさん、むらけんです。
アップしていたファイルの外部指数の出力先のフォルダ指定が間違っていました。
自分で使用しているファイルとアップしているファイルでフォルダ指定が違っていたので、新しい記事として、再度、アップしました。
そちらを使用してみて下さい。

投稿: むらけん | 2008年1月31日 (木曜日) 01時37分

初めまして、さくらといいます。エクセルは初心者なんですけど、日刊コンピをTargetに取り込もうとしたら、マクロがブロックしてどうにもなりません。どうすれば開きますか?

投稿: さくら | 2009年5月24日 (日曜日) 20時03分

さくらさん、こんばんは。
むらけんです。

EXCELファイルを開いた際にセキュリティ警告のポップアップがでますか?
出る場合は、マクロを有効にするで開けば使用できると思います。

ポップアップが出ない場合は、EXCELを先に立ち上げて、ツール→マクロ→セキュリティで設定を中にして下さい。そうすれば、上記の方法で開けると思います。
私は、EXCEL2003なので、他のバージョンの場合はヘルプでマクロのセキュリティ設定を調べてみて下さい。

参考までですが、EXCELを使用しない方法として蛸坊主さんのHPでスクリプトを使用する方法も紹介されています。http://takobouzu.la.coocan.jp/

なにか不明点がありましたらコメント下さい。ではっ<(_ _)>

投稿: むらけん | 2009年5月25日 (月曜日) 21時30分

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/124414/9912026

この記事へのトラックバック一覧です: 日刊コンピをTargetの外部ファイルに取り込む:

« 【競馬予想】2/19(日) | トップページ | メロンが届きました。 »