三流君 ken3のmemo置き場

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

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

よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

VBS

VBScriptに画像ファイルをドラッグAndドロップして パワポのスライドに図・画像を複数貼り付ける

やりたいこと パワーポイントのスライドに複数画像ファイルを貼り付ける 操作方法は、作成したVBSに画像ファイルをドロップする知恵袋 detail.chiebukuro.yahoo.co.jp の回答・ヒントになるか?自信無いが作成してテスト#VBScript #PowerPointVBA #パワポ #…

VBSで JRAオッズ自動取得Excelマクロ を10分間隔で タスクスケジューラ を使い起動したテスト

VBS

タイトル画像VBSからExcelマクロを10分間隔で タスクスケジューラ を使い起動したテスト をライブでやったが、準備不足で話が続かなくて、後半無言で垂れ流してました・・・反省。 下記、ライブのアーカイブです、コメント欄の目次で飛ばしながら、 10分間隔…

複数ファイルをドラッグAndドロップでvbsへ投げ Excelでファイル名一覧 や Wordに複数画像ファイルの貼り付け VBSのコマンドライン引数 Arguments を利用

VBS

VBS の コマンドライン引数 Arguments を使用して ドラッグAndドロップ されたファイル名を取得して、 Excelへ単純に書き込んだだけです。www.youtube.com https://www.youtube.com/watch?v=fH0F3vC3qpU ↑いつもの、あのあの、解説動画・・・ 00:00 挨拶 00:…

XXXXXさんへ Q. IE操作 Vbaとvbsの違いについて #IE操作 #VBA #VBS #業務改善 を邪魔する #老害 ぉぃぉぃ

下記の質問 Q. をいただく Vbaを、勉強中初心者なのですが、この度質問させて頂きたいことがあり、自身では調べきれずメッセー ジさせていただきました。「内容」 Vbaとvbsの違いについてです。現在、勤め先でvbaを使用し作成したxlsmファイル(150個)を作成…

XXXXXXさんへ Excel VBA コードを VBSで動作させる時にエラーが発生する件

Excel VBA を VBS に変換する作業中に 「オブジェクトでサポートされていないプロパティまたはメソッドです」 エラーが発生しました。 と 質問をいただきました。ここから下質問文※一部カット VBAで無事複数メール送信の構文が出来ました。 そして、一番の難…

コマンドライン で 引数を受け取る

vbs

VBSで コマンドラインの引数を受け取るのは、 意外と簡単で Set args = WScript.Arguments で、セット後に args.Count で 個数(スペースで区切って複数取得可能) args.item(0) 0から引数の配列として使えます下記、テストで作ったコード Set args = WScript.…

.VBSの起動場所 は WScript.Shellの.CurrentDirectoryで?

vbs

プログラムと同じ位置にファイルを作りたかったり、 同じフォルダーの設定ファイルを読みたかったり、 そんな処理で、起動場所がほしかったので、 [:title=VBS 起動場所] で検索してみました。すると、 WScript.Shell の .CurrentDirectory で 取得できそう…

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

動画で三流解説動画の簡単な説明ソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120414/1334371125 を見てください。 全体の流れは http://ken3hitori.g.hatena.ne.jp/bbs/30 を見てください。次は、開催地、競馬場単位でループさせてみます。場名…

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

動画で三流解説動画の簡単な説明ソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120414/1334362211 を見てください。 全体の流れは http://ken3hitori.g.hatena.ne.jp/bbs/30 を見てください。変数を2つ作成して、 レース番号 と オッズの種類を覚…

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

動画で三流解説動画の簡単な説明ソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120414/1334341263 を見てください。 全体の流れは http://ken3hitori.g.hatena.ne.jp/bbs/30 を見てください。目的のテーブルを If objTABLE(n).Rows(0).Cells(0).In…

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

動画で三流解説動画の簡単な説明ソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120414/1334337346 を見てください。 全体の流れは http://ken3hitori.g.hatena.ne.jp/bbs/30 を見てください。テーブルの左上が枠番となっているテーブルを探したか…

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

動画で三流解説動画の簡単な説明ソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120414/1334334236 を見てください。 全体の流れは http://ken3hitori.g.hatena.ne.jp/bbs/30 を見てください。テーブルのソースを確認したかったので、 表示済みのIE…

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

動画で三流解説動画の簡単な説明ソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120408/1333842442 を見てください。 全体の流れは http://ken3hitori.g.hatena.ne.jp/bbs/30 を見てください。画面がオッズの画面に切り替わったら、上からn番目 で …

テスト JRA IPAT 4.オッズのボタンを押す

動画で三流解説動画の簡単な説明ソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120407/1333783892 を見てください。 全体の流れは http://ken3hitori.g.hatena.ne.jp/bbs/30 を見てください。 本当は、指定したレース番号のオッズボタンを押すのが…

テスト JRA IPAT 3.開催地を選択する SELECTタグの処理

動画で三流解説動画の簡単な説明ソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120407/1333776823 を見てください。 全体の流れは http://ken3hitori.g.hatena.ne.jp/bbs/30 を見てください。 name=m の SELECTタグのOPTIONを選択 selected 状態に…

テスト JRA IPAT 2.起動した情報メニューを操作する

動画で三流解説動画の簡単な説明ソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120407/1333765522 を見てください。 全体の流れは http://ken3hitori.g.hatena.ne.jp/bbs/30 を見てください。IPAT情報メインメニュー を同じように探します。また、…

テスト JRA IPAT 1.2 情報メニューを押す

動画で三流解説動画の簡単な説明ソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120407/1333765403 を見てください。 全体の流れは http://ken3hitori.g.hatena.ne.jp/bbs/30 を見てください。見つけた、IEから、情報メニューを押したかったので、 …

テスト JRA IPAT 1.1 情報メニューを探す

動画で三流解説動画の簡単な説明ソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120407/1333765069 を見てください。 全体の流れは http://ken3hitori.g.hatena.ne.jp/bbs/30 を見てください。 'シェルのオブジェクトを作成する Set objShell = Cre…

JRA IPATで情報を取得 8.2 開催地・競馬場単位でループさせる

次は、開催地、競馬場単位でループさせてみます。場名を覚えた後にループさせてみます。'競馬場・開催地でループする。 jのループ For j = 0 To nJYO - 1 '↑上で保存したnJYOの分だけ回る でループを作り、 'name=m の オプションのj番目を選択する objSELEC…

JRA IPATで情報を取得 8.1 1Rから最後まで 次のレースを選択 繰り返す

変数を2つ作成して、 レース番号 と オッズの種類を覚えます。 Dim nR 'レース数 Dim strR_NAME(13) 'レース 通常連番だからいらないんだけど・・・ 'SELECTのタグを集める .getElementsByTagName("SELECT")を使用 Set objSELECT = objIE.Document.getEleme…

JRA IPATで情報を取得 7.3 単勝のオッズをカンマ区切りで出力してみた

目的のテーブルを If objTABLE(n).Rows(0).Cells(0).InnerTEXT = "枠番" Then で探すことができたので、 中のデータ(テキスト)を取り出し、カンマ区切りで出力してみます。ポイントは、 .Rows.Length で 行数、 .Rows(y).Cells.Length で 列数 が取得できる…

JRA IPATで情報を取得 7.2 テーブルの左上のデータで確認する 左上が枠番のテーブルを探す

テーブルの左上が枠番となっているテーブルを探したかったので、Wscript.ECHO objTABLE(n).Rows(0).Cells(0).InnerTEXT みたいな感じて、 .Rows(0)で1行目、 .Cells(0)で1列目 の .InnerTEXTで中の文字を取得できるので、 If objTABLE(n).Rows(0).Cells(0)…

JRA IPATで情報を取得 7.1 テーブルのソースを探る

テーブルのソースを確認したかったので、 表示済みのIEを探し、 .getElementsByTagName("TABLE")を使用して、テーブルを集めて、 Set objTABLE = objIE.Document.getElementsByTagName("TABLE") .Lengthで個数のチェック、 中身(.OuterHTML)をWscript.ECHOで…

5.レースの選択と種類(単勝や馬連、、)を選択する

画面がオッズの画面に切り替わったら、テストで、 レース番号を選択(テストで11Rを選択) オッズの種類(一番上の 単・複 を選択) してまみす。 <SELECT name="s"> <OPTION value="3121210" selected>1R</OPTION> <OPTION value="3121220">2R</OPTION> ・ ・ <OPTION value="31212a0">10R</OPTION> <OPTION value="31212b0">11R</OPTION> <OPTION value="31212c0">12R</OPTION> </SELECT>

JRA IPATで情報を取得 4.オッズのボタンを押す

本当は、レース番号のオッズボタンを押すのが正しいと思いますが、 ここでは、一番初めに見つけた オッズ の ボタンを押してみます。 ※1Rに決め打ちして、オッズの画面に切り替える処理としては、同じように .getElementsByTagName("INPUT")で集めて、 Set o…

3.開催地を選択する SELECTタグの競馬場を選択し決定を押す

競馬場 開催地 選択のソースを見ると <FORM method=post action=http://info.ipat.jra.go.jp/p/s> <INPUT name=g value=Mnu01 type=hidden> <INPUT name=s value=0000000 type=hidden> <INPUT name=j value=6123500000 type=hidden> <INPUT name=w value=3e2c27747c352f23 type=hidden> <TD> <SELECT size=4 name=m> </select></td></form>

JRA IPATで情報を取得 2.起動した情報メニュー(新しいIE)を操作する

IPAT情報メインメニュー https://info.ipat.jra.go.jp/p/s を探します。また、馬鹿の一つ覚えで CreateObject("Shell.Application") から探ってみました。 おまけで、みつけたIEのFORMタグを表示してみました。操作動画: http://www.youtube.com/watch?v=dwN…

JRA IPATで情報を取得 1.2 情報メニューを押す

上で見つけた、IEから、情報メニューを押したかったので、 .getElementsByTagName("A") で、 リンクのAタグを集めて、 .OuterHTMLで中身のソースを確認、 中に、情報メニューがあるか?(InStr関数で探し) If InStr(objA(n).OuterHTML, "情報メニュー") > 0 T…

JRA IPATで情報を取得 1.1 情報メニューを探す

ここから、情報メニューが表示されているIEを探して、処理を行うには?似ている処理、入金処理からコードをコピーして使ってみます(ぉぃぉぃ)'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Application")ここから、 For Each objWind…

CScript で .vbsを実行してみた

動画で三流解説動画の簡単な説明http://q.hatena.ne.jp/1146809629#a521669 など、を参考にすると、 Cscript xxxx.vbs でスクリプトを実行、 WScript.Echo で 画面表示を行っているみたいなので、 バッチファイルを作成して、テストしてみます。test.vbs WSc…

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。

  1. [VBA・マクロ プログラミング]の解説
    当店の人気はVBA系のCreateObject("XXXXXX.application")で他のアプリケーションを操作するサンプルが人気です
  2. [プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
    三流君を踏み台にする
  3. [古いクラシック ASP(Active Server Pages)]の解説。
  4. [元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



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