三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

JRA の検索結果:

XXXXXさんへ お坊ちゃんプログラムで申し訳ない IE操作 JRAオッズ取り込みが動作しない件

…でした。 >やはり、JRAHPサイトの都合によるProg.変更等により不都合が生ずるものなのでしょうか。 >マクロ上で次ボタン押して次レースのデータ自動的に取得してゆくことは難しい事なのでしょうか >教えていただけませんか。 >また別にそうでないとすれば、 >馬単オッズ表(馬番順)だけでもマクロの基本モジュールをご紹介願いませんでしょうか。 メッセージありがとうございます。 他の方たちからも、 指定時間に自動実行したい や 他の種類の取り込み・・・ 競馬ファンの人たちは熱い志…

XXXXXさんへ 形の違うweb上の表・テーブル から指定された 項目・列を取得したい

… Sheet2です JRA競馬のオッズ取得だと、 表の左上 .Rows(0).Cells(0).innerText = "〇〇"で判断しているが、 形の違う表から(テストで現在3パターン) ゼッケン,名前,前回1,前回2,前回3,前回4,前回5 の列を探して取得したい、指定した列を取得したい。そんな感じかな。 SQL文ならSelect ゼッケン,名前,前回1,前回2,前回3,前回4,前回5 From Web上の表1Select ゼッケン,名前,前回1,前回2,前回3,前回4,…

JRA単勝オッズ取得でIEを前面にして IEスクロール SendKeysとjavascript:scrollToを使ってみた

…ださい エイターの jra の単勝2取得であの午前中の時刻テストという形であの 清酒あの修正したんですけどあの自国の人がはの後に修正したんであの 13実が3分とかの すいません現在4つの取得ですねこれはあのそのままの君家であの n っていうか あの花の現在おっつー カラーの6持ち引いて6文字取り出すって感じであの 時刻を決め打ちであの13時03分とかの6文字決め打ちで取り出してたんですねで これが 午前中の場合あの例えばの3:03と母の 御餅となってあの風合いになるか どうか…

実験 テキストのHTMLソース TABLEテキストをコピペ Excelへ貼り付けてみた

…le> キッカケは、JRA単勝取り込みのデバッグしたライブ デバッグ JRA単勝オッズの取り込みに失敗 バグの再現と修正 Excel2016 VBA IE表の取り込み - YouTube の終わりに、 チャットのコメントで テーブルのOuterhtmを貼り付けたほうが簡単だよ と アドバイスをいただいたことです。58:27 ​テーブルのOuterhtmをクリップボードに取り込んで PasteSpecial Format:="テキスト", NoHTMLFormatting:=T…

バグ修正 .Document.body.innerTextから発走時刻とオッズの時刻をMidで抜き出す デバッグ Excel VBA JRAオッズ取り込み

昨日修正したJRA 単勝オッズ 取り込みサンプル下記 ken3memo.hatenablog.com ですが、発走時刻とオッズ時刻が正しくない と連絡を速攻でいただく。最後まで、確認をしていなくてスミマセン。すぐに修正をしてみます。 ※またまた、ライブネタにして、恥を重ねてみます。。。いつものライブ デバッグ動画 VBA IE操作 バグ修正 発送時刻とオッズの時刻が変 JRA単勝オッズの取り込み デバッグ ・・・ ライブ プログラミングほか テスト - YouTube www…

デバッグ JRA HP表示変更で単勝オッズの取り込みに失敗 F12で要素を確認して修正する

…います。 12/5にJRAがHPの仕様を変更したためだと思うのですが、 単勝オッズ取り込みが出来なくなってしまいました。 「枠番のテーブルが見つかりません」 というメッセーッジボックスが出るので 単勝オッズ取り込みができない はやくなおせカス などなど、氷山の一角でこれだけ反応があったので、 怖いなぁ・・と思いつつ、デバッグを開始する1.バグ・不具合の再現2.原因の特定 処置・対策2.1 レース番号が押されていない strRACE = nRACE & "R" 'R1など 文字…

XXXXXさんへ JRA単勝取り込みサンプルプログラムの作りが悪くご迷惑をおかけしてスミマセン。

…」 試したのですが、JRAのHBのリンク数は13個でした。JRA側が2017/08から何か変更したのでしょうか? 私のサンプルがご迷惑をかけたみたいです ※プログラムの作りが甘いからかも・・・やってみたら、動いてしまったのですが、 不具合を再現するために、イロイロと操作をしてみたら原因が判明・・・再現手順: ホームページから開催日を反転させて(範囲指定して)手動でコピーすると 2回新潟9日 と後ろにスペースや改行が入って ExcelのB2セルにコピーされてしまいます。この状態…

XXXXXXさんへ JRA サイトから レース結果を取り込む

…笑ってくださいね。 JRA サイトから レース結果をExcelに取り込む・・・三流プログラマー の 独り言 ライブ プログラミングほか テスト中 - YouTube www.youtube.com 下記の質問をいただきました。 JRAのオッズ取り込みを改造して レース結果を取り込むことにチャレンジしていますが 中々、思うようにいきません質問させていただきます ①JRAのレース結果取り込みです (※前提として、競馬開催の当日で12Rまで終わっていない場合) 最終レースまで終わっ…

(未解決あとで検索する) XXXXXさんへ IE操作(JRA-IPAT) selectタグが動作しない件について

…ツール?ライブラリをJRAが使い始めた?>JRA-IPATのメニューが新しくなり これって?最近の話なのですか? ※私自身、昔のサンプル放置していて・・・すみません。単純な、 SELECTタグの選択じゃなくなったとすると、 少し難しいかもしれません。https://app.codegrid.net/entry/angular-tips-1 は、 そのツール?ライブラリの中での話で、 VBA側とは違いそうですし、、、私も、無知で、ヒントすらだせなくてスミマセン。excel vb…

XXXXXさんへ IE操作「Webページからのメッセージ」(Javascriptのalert)を消す方法

…セージを無効にする JRA入出金メニュー ken3memo.hatenablog.com や VBA IE操作 ニセのpromptとalert() を 挿入する そんな実験 ken3memo.hatenablog.com で '暗証番号を入れ、実行する '確認メッセージで はい を 答えたい ≠≒ 確認を必ず はい(true)にする Dim ele 'エレメント(script)を1つ作りたいので。 Set ele = objIE_I.document.createElemen…

XXXXXさんへ JRAオッズ取得 Excel2016でテストしたブックを保存しました

…ッセージありがとう。JRAオッズ取得の テストで使用したExcelブックを http://ie.vba-ken3.jp/test/20170820.zip に保存しました。アレンジして使ってみてください。コードだけで、動くブックを保存していなくてすみませんでした。 次回から、あるていどまとまったら、ブックを公開してみようと思います。 ken3memo.hatenablog.com ken3memo.hatenablog.com 2017 JRA 単勝オッズをExcelへ取り込…

TABLE WebのJRA3連単オッズ表 二重のテーブル からデータ取得のテスト

…解説動画です。。。 JRA 3連単オッズ 取得プログラム作成前の確認をライブで Ken3 ライブ プログラミング テスト中 - YouTube www.youtube.com1.現物の確認実際のHPを見たり、 ソースを見たりして、 TABLEの構造を探ります。1.1 自作のIE TABLE確認ツールのデバッグを兼ねて探ってみる 少し前 テストで作成した ken3memo.hatenablog.com ↑自前のTABLE取り出しツールのデバッグを兼ねて、 3連単の構造を探ってみ…

Excel Formから起動済みのIEを選択 テーブルを取得するテスト

前回 ken3memo.hatenablog.com の続きです。XXXXXさんより、下記の質問が来ました。 > 【VBA IE操作】テーブル単体を取り出す にて勉強中の老人です。 > 上記サンプルはURLを記述して表示して >WEBページにテーブルの内容を取得しておりますが、 >当方も目的はページを次から次に切り替えて >その都度にテーブルの内容をEXCLEに蓄積したいと思っ > てます。(手動で開いたページのテーブル等) と、 既存IEを手動で操作して、データを抜く、 そ…

テスト JRA単勝オッズをレース別に複数蓄積する

…イブ動画です・・・ JRA単勝オッズをレース別に複数蓄積する VBA IE操作 Ken3 ライブ プログラミング テスト中 - YouTube www.youtube.comポイントは、 単勝順のオッズを一時的に Sheets("作業用") に書き込む次に、 1.初回は、馬番 馬の名前を書き込む 2.二回目以降は、時刻とオッズを書き込む 上記をポイントに処理を行ってみたいと思います。初回のチェックは、 一枠一番の馬名が変化したかを単純にチェックしました。 あとは、単純にデータ…

JRA オッズの発表時間を取得します 蛇足で.getElementsByClassNameのテスト

…説が長かったり、、 JRA オッズ取得 時刻の取得 最終オッズの判断 VBA IE操作 Ken3 ライブ プログラミング テスト中 - YouTube www.youtube.com次は、 最終オッズ や 99:99(XX時XX分) などの、 オッズの集計時間を取得してみたいと思います。1.現物の確認 レースが終了していると、 <td class="cTtl headerOdds"> 2017年7月30日(日)&nbsp;2回新潟2日&nbsp;&nbsp;<span cla…

JRA 単勝オッズ取得 いただいた要望 開催日とレースの指定にチャレンジ

…わせてみてください 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 '右端の"…

JRA オッズ取得 Click処理を共通化後 単勝オッズ人気順にチャレンジ

…【VBA IE操作】JRA オッズ取得 Click処理を共通化後 単勝オッズ人気順にチャレンジ - YouTube www.youtube.com1.ドキュメントのリンク オブジェクトを押す処理を共通化.Document.Links(i) のリンクを探して押す処理を外側に出してみます。 ※サブルーチン化してみますパターン的には、 表示中のIE と 条件を渡し クリックさせる2.共通化のサブ関数ができたので、 これを使い、 人気順の単勝オッズ取得を作成してみる ※簡単にいくとい…

JRA 単勝オッズ取得 コードまとめ と Sleep DoEventsの違いをテスト

…e_test() 'JRA 単勝オッズの取り込み テスト 'IEの起動 Dim objIE As InternetExplorer '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = Fal…

JRA HP から 単勝オッズの取り込み 開催場所でループ

…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 'ページが表示されたので、表…

IE操作 Web上の表 取り込み rowspan の対応を少し考えてみた

JRAオッズの取り込みで、 枠番の取り込みが正しくなく、 データがズレてセットされてしまった前回 ken3memo.hatenablog.com の続きです。下記、まだ慣れてない ライブ プログラミング動画。 単勝表の取り込み バグ修正 VBA IE操作 JRA Ken3 ライブ プログラミング テスト中 です・・・ - YouTube www.youtube.com簡単な解説 と コード単勝取り込みテスト現在単勝の表を下記のコードで取り込むと、 'Webの表をシートへ転記(…

ライブ配信でIE操作の参照設定など JRAオッズ取得できなかったけど・・

… 問い合わせの多い JRA オッズ取得 IE操作の参照設定などを解説してみました。 ※JRA単勝オッズぐらいは取得・・と思ったが、 約二時間かかって、こんなもんかぐらいしかできなかった ぉぃぉぃ参照設定とデバッグ風景 VBA IE操作 JRA Ken3 ライブ プログラミング ・・・ - YouTube www.youtube.com ↑が配信したYouTubeライブのアーカイブです。動画で作成した、途中まで作成したテスト用のソース Sub ie_test() 'IEの表示を…

XXXXXさんへ If TypeName(objWindow.document) = "HTMLDocument" のチェックを残してみては?

….Title = "JRAホームページ" Then '指定したURLか? ''----------------------------------------------- '************************************************* 'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In…

XXXXXさんへ 最近レスポンスが遅かったり、対応できなくてスミマセン

…タンを押す方法 と JRA 本家のページから オッズを取得したい上記二つが特に多いですあとは、 あまりやったことがないOutlookの質問が比較的 多いかなIE操作で ポップアップ OK は APIの PostMessageA FindWindow で探す方法など、 私は詳しくなくて、 適切なアドバイスができなくてすみません。JRA正規のページから 競馬のオッズをEXCELシートへ 上記は 人気が出そうな良いネタ And 私のサイトは土日が弱いので ネタとしてはよさそうなので…

テスト JRA IPAT 8.2 開催地・競馬場単位でループさせる

…Click_VALUE(objIE, "決定") '決定を押し、開催地を切り替える '表示を待つ※競馬場・開催地の切り替えを待つ Call IE_WAIT1R-12Rのレース 終了後、 メインメニューへ戻るのを忘れずに。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 8.2 開催地・競馬場単位でループさせる - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS

テスト JRA IPAT 8.1 1Rから最後まで 次のレースを選択 繰り返す

…、頭から終わりのレースまでループさせる For r = 0 To nR - 1 '上↑で保存したレース数分まわる でまわし、 レースの選択、決定を繰り返しながら1R-12Rまでのオッズを出力します。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 8.1 1Rから最後まで 次のレースを選択 繰り返す - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS 繰り返し

テスト JRA IPAT 7.3 単勝のオッズをカンマ区切りで出力してみた

…出力してみます。ポイントは、 .Rows.Length で 行数、 .Rows(y).Cells.Length で 列数 が取得できるので、単純にループで回してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 7.3 単勝のオッズをカンマ区切りで出力してみた - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS .Rows .Cells .Length

テスト JRA IPAT 7.2 テーブルの左上のデータを確認する

…).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

テスト JRA IPAT 7.1 テーブルのソースを探る

…Document.getElementsByTagName("TABLE") .Lengthで個数のチェック、 中身(.OuterHTML)をWscript.ECHOで出力してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 7.1 テーブルのソースを探る - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS .getElementsByTagName

テスト JRA IPAT 5.SELECTタグ レースの選択と種類

…複・枠連オッズを代入 Set objSELECT = Nothing 'オブジェクト変数解放↑こんな感じで書くこともできるので、使ってみてください。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 5.SELECTタグ レースの選択と種類 - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS IE操作 .SelectedIndex .Value SELECTタグ

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



Googleを使用して検索する

読者の声:三流君の説明・解説じゃ よくわからなかったから、Googleを使って、自分で検索します。
三流君:残念です。あっ、下記にGoogleの検索窓を設置しました。
いろいろ指定して試してみてください。

Google
探す言葉:気になる単語や,オブジェクト(Document),プロパティ(.Busy)やメソッド(.Navigate)などを入れて検索してみてください。


言語を指定:見つからない時は指定無しで探す

サイト指定:人気QAサイト や 一次情報MS本家を指定する
一次情報・二次情報まとめから探る
QAサイトの質問から探る
検索実行: ←オプション確認後に検索ボタンを押してください

期間指定:情報の鮮度も大切?
検索実行: ←オプション確認後に検索ボタンを押してください


本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)