JRA の検索結果:
前回 ken3memo.hatenablog.com の続きです。XXXXXさんより、下記の質問が来ました。 > 【VBA IE操作】テーブル単体を取り出す にて勉強中の老人です。 > 上記サンプルはURLを記述して表示して >WEBページにテーブルの内容を取得しておりますが、 >当方も目的はページを次から次に切り替えて >その都度にテーブルの内容をEXCLEに蓄積したいと思っ > てます。（手動で開いたページのテーブル等） と、 既存IEを手動で操作して、データを抜く、 そ…
…イブ動画です・・・ JRA単勝オッズをレース別に複数蓄積する VBA IE操作 Ken3 ライブ プログラミング テスト中 - YouTube www.youtube.comポイントは、 単勝順のオッズを一時的に Sheets("作業用") に書き込む次に、 1.初回は、馬番 馬の名前を書き込む 2.二回目以降は、時刻とオッズを書き込む 上記をポイントに処理を行ってみたいと思います。初回のチェックは、 一枠一番の馬名が変化したかを単純にチェックしました。 あとは、単純にデータ…
…説が長かったり、、 JRA オッズ取得 時刻の取得 最終オッズの判断 VBA IE操作 Ken3 ライブ プログラミング テスト中 - YouTube www.youtube.com次は、 最終オッズ や 99:99(XX時XX分) などの、 オッズの集計時間を取得してみたいと思います。1.現物の確認 レースが終了していると、 <td class="cTtl headerOdds"> 2017年7月30日（日） 2回新潟2日 <span cla…
…わせてみてください JRA オッズ取得 開催地とレースを指定 VBA IE操作 Ken3 ライブ プログラミング テスト中 - YouTube www.youtube.comもらった要望 ア.一つだけご教示お願いしたいことがあります。 '開催日を探す Dim strJYOBOX(10) As String Dim j As Integer '開催日のリンクをあさる j = 0 For i = 0 To objIE.Document.Links.Length - 1 '右端の"…
…【VBA IE操作】JRA オッズ取得 Click処理を共通化後 単勝オッズ人気順にチャレンジ - YouTube www.youtube.com1.ドキュメントのリンク オブジェクトを押す処理を共通化.Document.Links(i) のリンクを探して押す処理を外側に出してみます。 ※サブルーチン化してみますパターン的には、 表示中のIE と 条件を渡し クリックさせる2.共通化のサブ関数ができたので、 これを使い、 人気順の単勝オッズ取得を作成してみる ※簡単にいくとい…
…e_test() 'JRA 単勝オッズの取り込み テスト 'IEの起動 Dim objIE As InternetExplorer '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = Fal…
…utube.com JRA 単勝オッズ 開催場所のループ処理 VBA IE操作 Ken3 ライブ プログラミング テスト中 です・・・ - YouTube1.開催日を取り出す 開催日を取り出します ※日曜日は前日の土曜日があるので、 単純にはいかないけど、今回はすべて取り込む2.開催日のループを作成 12Rまで取得終了したら、 次の開催地のオッズへ移動 1Rから取得を 開催日がなくなるまで行う onclick="return doAction('/JRADB/accessO.…
…ttp://www.jra.go.jp/" '.Navigate メソッドで JRA表示する。 'Navigate と Navigate2 の 違いが私もイマイチわかってませんが 'ページの表示完了を待ちます。 While objIE.ReadyState <> READYSTATE_COMPLETE Or objIE.Busy = True '.ReadyState <> 4の間まわる。 DoEvents '重いので嫌いな人居るけど。 Wend 'ページが表示されたので、表…
JRAオッズの取り込みで、 枠番の取り込みが正しくなく、 データがズレてセットされてしまった前回 ken3memo.hatenablog.com の続きです。下記、まだ慣れてない ライブ プログラミング動画。 単勝表の取り込み バグ修正 VBA IE操作 JRA Ken3 ライブ プログラミング テスト中 です・・・ - YouTube www.youtube.com簡単な解説 と コード単勝取り込みテスト現在単勝の表を下記のコードで取り込むと、 'Webの表をシートへ転記(…
… 問い合わせの多い JRA オッズ取得 IE操作の参照設定などを解説してみました。 ※JRA単勝オッズぐらいは取得・・と思ったが、 約二時間かかって、こんなもんかぐらいしかできなかった ぉぃぉぃ参照設定とデバッグ風景 VBA IE操作 JRA Ken3 ライブ プログラミング ・・・ - YouTube www.youtube.com ↑が配信したYouTubeライブのアーカイブです。動画で作成した、途中まで作成したテスト用のソース Sub ie_test() 'IEの表示を…
….Title = "JRAホームページ" Then '指定したURLか？ ''----------------------------------------------- '************************************************* 'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In…
…タンを押す方法 と JRA 本家のページから オッズを取得したい上記二つが特に多いですあとは、 あまりやったことがないOutlookの質問が比較的 多いかなIE操作で ポップアップ OK は APIの PostMessageA FindWindow で探す方法など、 私は詳しくなくて、 適切なアドバイスができなくてすみません。JRA正規のページから 競馬のオッズをEXCELシートへ 上記は 人気が出そうな良いネタ And 私のサイトは土日が弱いので ネタとしてはよさそうなので…
…Click_VALUE(objIE, "決定") '決定を押し、開催地を切り替える '表示を待つ※競馬場・開催地の切り替えを待つ Call IE_WAIT1R-12Rのレース 終了後、 メインメニューへ戻るのを忘れずに。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 8.2 開催地・競馬場単位でループさせる - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS
…、頭から終わりのレースまでループさせる For r = 0 To nR - 1 '上↑で保存したレース数分まわる でまわし、 レースの選択、決定を繰り返しながら1R-12Rまでのオッズを出力します。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 8.1 1Rから最後まで 次のレースを選択 繰り返す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS 繰り返し
…出力してみます。ポイントは、 .Rows.Length で 行数、 .Rows(y).Cells.Length で 列数 が取得できるので、単純にループで回してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 7.3 単勝のオッズをカンマ区切りで出力してみた - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS .Rows .Cells .Length
…).Rows(2).Cells(2).InnerTEXT Wscript.ECHO objTABLE(n).Rows(2).Cells(3).InnerTEXT を表示して、テストしてみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 7.2 テーブルの左上のデータを確認する - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS .Rows .Cells
…Document.getElementsByTagName("TABLE") .Lengthで個数のチェック、 中身(.OuterHTML)をWscript.ECHOで出力してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 7.1 テーブルのソースを探る - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS .getElementsByTagName
…複・枠連オッズを代入 Set objSELECT = Nothing 'オブジェクト変数解放↑こんな感じで書くこともできるので、使ってみてください。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 5.SELECTタグ レースの選択と種類 - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS IE操作 .SelectedIndex .Value SELECTタグ
… objIE.Document.getElementsByTagName("INPUT") ループを作り、 If objINPUT(n).Value = "オッズ" Then ※.valueで値を見て判断、.Clickしただけです。。。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 4.オッズのボタンを押す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS
…).selected = True '単純にselectedプロパティをTrueでセレクト状態にする ※0 1 2 3なので、(2)のセレクト状態 .selected を True にしただけです。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 3.開催地を選択する SELECTタグの処理 - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS SELECTタグ
…さい。IPAT情報メインメニュー を同じように探します。また、馬鹿の一つ覚えで CreateObject("Shell.Application") から探ってみました。 おまけで、みつけたIEのFORMタグを表示してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 2.起動した情報メニューを操作する - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS
…e("A") で、 リンクのAタグを集めて、 .OuterHTMLで中身のソースを確認、 中に、情報メニューがあるか？(InStr関数で探し) InStr(objA(n).OuterHTML, "情報メニュー") で判断してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 1.2 情報メニューを押す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS
….Windows で回して、 TypeNameでHTMLDocumentか判断、 If TypeName(objWindow.document) = "HTMLDocument" Then さらに、 URLで判断(見つけてみました。)動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 1.1 情報メニューを探す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS
…/www.ipat.jra.go.jp/pw_020_i.cgi") '見つけたかチェック If objIE Is Nothing Then wscript.Echo "エラー 投票メニューが見つかりません ログインを確認してください" wscript.quit End If '↑上で見つけたIPAT 投票メニューから 情報メニュー を 押す Call IE_A_Click(objIE, "情報メニュー") 'Aタグの 情報メニューを押す Set objIE = Nothin…
…/www.ipat.jra.go.jp/pw_020_i.cgi") '見つけたかチェック If objIE Is Nothing Then wscript.Echo "エラー 投票メニューが見つかりません ログインを確認してください" wscript.quit End If '↑上で見つけたIPAT 投票メニューから 情報メニュー を 押す Call IE_A_Click(objIE, "情報メニュー") 'Aタグの 情報メニューを押す Set objIE = Nothin…
…info.ipat.jra.go.jp/p/s") > 0 Then Set objIE = objWindow '見つけたウインドウを(IE)を代入 Exit For End IF End If Next Set objShell = Nothing '見つけたかチェック If objIE Is Nothing Then msgbox "エラー IPAT情報 オッズ画面が 見つかりません" wscript.quit End If 'テーブルを抜き出す 'TABLEのタグを集…
…info.ipat.jra.go.jp/p/s") > 0 Then Set objIE = objWindow '見つけたウインドウを(IE)を代入 Exit For End IF End If Next Set objShell = Nothing '見つけたかチェック If objIE Is Nothing Then msgbox "エラー IPAT情報 オッズ画面が 見つかりません" wscript.quit End If 'テーブルを抜き出す 'TABLEのタグを集…
…info.ipat.jra.go.jp/p/s") > 0 Then Set objIE = objWindow '見つけたウインドウを(IE)を代入 Exit For End IF End If Next Set objShell = Nothing '見つけたかチェック If objIE Is Nothing Then msgbox "エラー IPAT情報 オッズ画面が 見つかりません" wscript.quit End If 'テーブルを抜き出す 'TABLEのタグを集…
…先は長いかなぁ。。。JRA IPAT単勝オッズ取得 開発の流れ と 全体の流れ は JRA IPAT 単勝オッズの取り込み - 三流君ken3のひとりグループ http://ken3hitori.g.hatena.ne.jp/bbs/30 ↑の流れを見て、笑ってください・・・ JRA IPATを操作する他のサンプル・類似処理は、 ・JRA IPAT ログイン処理 ・JRA IPAT 入金処理 - 三流君ken3のひとりグループ です。また、VBA IE操作の解説は 三流君VB…
…0で1秒 Wend JRA IPAT単勝オッズ取得 開発の流れ と 全体の流れ は JRA IPAT 単勝オッズの取り込み - 三流君ken3のひとりグループ http://ken3hitori.g.hatena.ne.jp/bbs/30 ↑の流れを見て、笑ってください・・・ JRA IPATを操作する他のサンプル・類似処理は、 ・JRA IPAT ログイン処理 ・JRA IPAT 入金処理 - 三流君ken3のひとりグループ です。また、VBA IE操作の解説は 三流君VB…
