三流君 ken3のmemo置き場

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

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

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

VBA の検索結果:

クリップボード から テキスト取得して選択セルに追記してみた

…をもらってしまった。VBA クリップボードで検索する とイロイロなページがヒットします。 ExcelのVBAで、クリップボードのデータ形式を確認する。〜パソコンの小技・備忘録 Office TANAKA - Excel VBA Tips[クリップボードを操作する(1)] クリップボードとデータのやりとりをする:Excel VBA|即効テクニック|Excel VBAを学ぶならmoug上記を参考にして、参照設定で 「Microsoft Forms 2.0 Object Libra…

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

… 最終オッズの判断 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 class="headerOdds2">最終オッズ(馬番…

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 '右端の"日"を条件に判断する If Right(o…

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

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

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

…Eventsの違い VBA IE操作 Ken3 ライブ プログラミング テスト中 です・・・ - YouTube www.youtube.com1.共通のコードをまとめましょう 泥縄式でコードをコピペ、 テスト 実行 修正 再テスト・・・を繰り返していると、 コードが長くなるし、 メンテもしにくいので、 共通のコードはまとめましょう。2.ページの表示待ちをまとめる リンクなどをクリックした後 必ず ページの表示を待っています、 ここを まず まとめてみます。 まとめ方は Ca…

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

…催場所のループ処理 VBA IE操作 Ken3 ライブ プログラミング テスト中 です・・・ - YouTube1.開催日を取り出す 開催日を取り出します ※日曜日は前日の土曜日があるので、 単純にはいかないけど、今回はすべて取り込む2.開催日のループを作成 12Rまで取得終了したら、 次の開催地のオッズへ移動 1Rから取得を 開催日がなくなるまで行う onclick="return doAction('/JRADB/accessO.html','pw15oli00/6D')…

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

…取り込み バグ修正 VBA IE操作 JRA Ken3 ライブ プログラミング テスト中 です・・・ - YouTube www.youtube.com簡単な解説 と コード単勝取り込みテスト現在単勝の表を下記のコードで取り込むと、 'Webの表をシートへ転記(代入する) For y = 0 To objTABLE.Rows.Length - 1 '行のループ For x = 0 To objTABLE.Rows(y).Cells.Length - 1 '列数分ループ ' o…

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

…設定とデバッグ風景 VBA IE操作 JRA Ken3 ライブ プログラミング ・・・ - YouTube www.youtube.com ↑が配信したYouTubeライブのアーカイブです。動画で作成した、途中まで作成したテスト用のソース Sub ie_test() 'IEの表示をテストする。 'IEの起動 Dim objIE As InternetExplorer '変数を定義します。 Set objIE = CreateObject("InternetExplorer.A…

XXXXXさんへ outlook 予定表 日本語のプロパティ・メソッドページの紹介ありがとう

…るのかなあ ぉぃぉぃ 実力者が気持ちよく 活躍できる QAサイトがあるといいのかな?なんてね。 ※おっと、人力検索があるじゃないか・・・VBA Outlook 予定表 日本語のページ https://msdn.microsoft.com/ja-jp/library/office/ff869026.aspx も 参考にしてみてください。XXXXXさんへ 今度は直接 ブログにコメントに書いてくれればいいのになんて。 ※書き込み ありがとうございます。助かります。勉強になりました。

XXXXXさんへ .Sensitivity = olPrivate VBA Outlook 予定表 非公開設定について

…おります。 マクロ(VBA)で追加する予定を、非公開設定にしたいのです。 2週間あちこちwebを検索しましたが、 どのプロパティ(?)に何をセットすればいいのか、 まだわかりません。ご教示願えませんでしょうか。 以上、よろしくお願い致します。 こんにちは。 .Sensitivity = olPrivate 'olPrivate=2 非公開 プライベート で目的の処理になるとよいのですが。 Dim aITEM As Outlook.AppointmentItem '予定、アポ …

Amazon プライムデー で Fire HD8とFire TVを購入してしまった。。。

ホームページが一時つながりにくくなるほどの人気の Amazon プライムデー で Fire HD8 と Fire TV を購入してしまった。。。折り返しのメールを見ると、 注文日: 2017/07/10 Fire HD 8 タブレット (Newモデル) 16GB、ブラック ¥ 11,980 Fire TV Stick (New モデル) ¥ 4,980 商品の小計: ¥ 16,960 配送料・手数料: ¥ 0 割引: -¥ 8,000 注文合計: ¥ 8,960 一瞬、えっ、…

XXXXXさんへ もしかして、OPTIONタグに.FireEvent ("OnChange")は無いのかも?

…xt 単純に 三流君VBA:IE操作 .parentElement で親のタグを参照? http://www.ken3.org/vba/backno/vba180.html で動作するかわかりませんが、 For Each Obj In ObjIE.Document.getElementsByTagName("OPTION") If Obj.Value = "Black Gunmetal" Then Obj.Selected = True Obj.parentElement.F…

XXXXXさんへ 未解決 あとで調べる ◆質問「VBAのIE操作でリスト選択時にFireEventが効かない」

…みる・・・ ◆質問「VBAのIE操作でリスト選択時にFireEventが効かない」〇VBAコーディングFor Each Obj In ObjIE.Document.getElementsByTagName("OPTION") If Obj.Value = "Black Gunmetal" Then Obj.Selected = True Obj.FireEvent ("OnChange") Exit For End If Next 上記質問に対して、の 回答がイベントが発生し…

未解決 あとで調べる XXXXXさんへ VBA OUTLOOKの予定表の本文(Body)の一部を太字にしたい

…べる >EXCELのVBAで生成したOUTLOOKの予定表の本文(Body)の一部を太字にしたいです。 ひと目、HTMLメール リッチテキストメールと勘違いしてしまったが、 予定表なんですよね。。。 ^^^^^^^※メールなら、HTML形式やリッチテキスト形式のサンプルが少しは見つかりますが、少し、予定表やoutlook vba 文字色を探ってみましたが、 よいページをgoole検索などで見つけることができませんでした。AppointmentItem.RTFBody プロパテ…

XXXXXさんへ IE操作 msgBox を 入れて、デバッグする 三流な方法?

…バッグ動画です。 【VBA IE操作】デバッグでMsgBox を 入れて、デバッグする 三流な方法? 【三流君】 - YouTube www.youtube.com下記のような質問をいただきました。 >http://inquiry.daihatsu.co.jp/gradeweb/default.aspx >ダイハツのグレード検索で、 >最初の同意するのボタンを押した後の >テキストへ2か所Tableタグで取得できたのですが、 >マクロで再起動させるとタグが見つからずエラーがし…

XXXXXさんへ VBA IE操作 1ページに複数のテーブルがある場合

…さいね。ぉぃぉぃ。#VBA #IE操作 #TABLE #デバッグ風景 #getElementsByTagName #Lengthテストで使用したソースファイルhttp://ie.vba-ken3.jp/test/20161101j1j2.html ↑テストの表 ここから 下記のコードでデータを抜く・・・ Option Explicit Sub le_test20161206_複数テーブルを取得() 'IE起動 Dim objIE As Object 'IEオブジェクト参照用 …

Acronis True Image WD Edition を使いHDDのクローンを作成

作業内容:ノートパソコンのHDDを換装 交換してみました。ノートPC 内蔵された300GのHDDを、 新規に購入したウェスタンデジタルの1TのHDDに換装 交換したかったので、 今回は、WDで無料使用可能なツールを使用して作業を行ってみます。 ※本当は、SSDに換装したかったけど、 HDD300→SSD240とサイズダウンするので(じゃ480買えよ...) 無難に容量アップでHDD 1テラにしました。 簡単にOS全体を移行したかったので、 HDDのクローンを作成する方法で作業…

YouTube アナリティクス リアルタイム 分析でニヤニヤ?したいなぁ

…動画で システム系 VBAの小話 https://www.youtube.com/watch?v=0i7mehG4A-s上記二本をアップしたので、アクセス数を確認してみます。クリエイターツールから、 アナリティクス リアルタイム を選択して、確認と意外と簡単に確認できます。 実際の操作確認動画: 【YouTube】アナリティクスで分析 リアルタイムを使ってみた 【三流君】 - YouTube www.youtube.com過去2日間 48時間 を 1時間単位の棒グラフ と 過…

システム屋小話 目的地にたどり着くにはイロイロな方法があります

…あったりします。Q.VBAを使って、文字列(HTMLのソース)から .gifの画像ファイル名を探し、そのファイル番号を取り出す。 ファイル名は0.gif 1.gif ... 9.gif と 数字1文字+.gifです例) データ1 下記のテストデータの場合、3.gifの3を取り出す <img src="../img/3.gif" width="20" height="20" />データ2 下記のテストデータの場合、5.gifの5を取り出す <img src="../img/5.…

XXXXXさんへ IE操作 img src の ファイル名を取得したい

…です。 【IE操作 VBA】データ取得の基本?.InnerTEXT.OuterHTML For Each で回す【三流君】 - YouTube www.youtube.com ※質問・ソースとあわせてみてください。 テストで、 http://ie.vba-ken3.jp/test/20160706/test20160706.html に↑テスト用ページを作成しました、 下記の質問をいただきました。 web上のテーブルデーターからExcelで計算可能なもののみを抜き出したいので…

VBA IE操作 オートメーションエラー .Busy .ReadyStateで表示を待ちましょう

…Events '処理をOSシステムへ渡す 重いので嫌いな人居るけど。 Wend Debug.Print Now & " 10秒チェック 処理終了" End Sub いつもの操作動画 【VBA IE操作】オートメーションエラー .Busy .ReadyStateで表示を待ちましょう 【三流君】 - YouTube www.youtube.comいろいろ試して、遊んでみてください。 IE操作,オートメーションエラー,.Busy,.ReadyState,表示待ち,TEST,デバッグ

熱心な読者さんに VBA IE操作の本とサイトを教えていただきました

… 熱心な読者さんに VBA IE操作の本とサイトを教えていただきました。Excel VBAでIEを思いのままに操作できるプログラミング術Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応作者: 近田伸矢,植木悠二,上田寛出版社/メーカー: インプレス発売日: 2013/04/19メディア: 単行本(ソフトカバー)この商品を含むブログ (7件) を見るExcel VBAでIEを思いのままに操作できるプログラミ…

動画でしゃべらせたい AI Talk 3 が安かったけどyoutube収益化で使用不可なのかぁ残念・・・

機械にしゃべらせようとして、 いろいろと遊んでいる今日この頃、 みなさんはいかがお過ごしでしょうか?amazonでAITalk3が安かったけど(今は元に戻ってそこそこの金額です、キャンペーンでもやってたのか?それともマーケットプレイスで特攻隊価格だったのかなぁ?)かんたん!AITalk 3 -5話者パック出版社/メーカー: AHS発売日: 2015/12/17メディア: DVD-ROMこの商品を含むブログを見るかんたん! AITalk 3 [ダウンロード]出版社/メーカー: …

マウスコンピュータの タブレットPC と スティックPC を 購入

こんにちは。BTOで有名な マウスコンピュータ ( http://www.mouse-jp.co.jp/ ) から、 タブレットPC と スティックPC を 購入してしまった。とくに狙いや構想は無いのですが、 (↑それを衝動買いと人は言うのかなぁ・・・)8.0型 Windows 10 搭載タブレットPC「WN802」 http://www.mouse-jp.co.jp/luvpad/wn802/8.0型タブレットでOffice Mobile と Office 365サービス一…

XXXXXさんへ IE操作 .getElementsByTagNameで集め .NextSiblingで次を取得してみては?

VBA IE操作で下記の質問をいただきました。 >とあるサイトから、TEL番号を取得したいのです。 >EXCELファイルのB列にURLが100件以上並んでいます。 >そのURLを開いて、TEL番号を取得し、C列に記載…という処理をURLの個数分行うマクロで苦戦しています。>対象のソースの一部です。 <div class="clContent"> <!--infoBottom--> <div class="infoBottomArea"> <dl class="clear"> …

XXXXXさんへ 自動操作除け 画像のボタンを押す方法について

…e/2009/07/vba_ie_input_ty.html が似ている問題だと思います。テスト http://ken3-info.blog.ocn.ne.jp/test/2007/02/_input_type_ima_3f58.html ↑のイメージボタンを押してもらうと、自動操作防止の流れが見えてくると思います。ボタンの真ん中を押したように見せかけたいのですが、 私も まだ うまい方法を発見していなかったり (2009年から 先送りしていたり)お力になれずスミマセン。 時…

XXXXXさんへ TypeNameでエラーの件 未解決でお力になれずスミマセン。

…、 参照設定 三流君VBAでIE操作 まずは、参照設定から http://www.ken3.org/cgi-bin/group/vba_ie_object.asp だったらいいのですが、 別に参照設定していなくても、使えていたような気がするので、違う原因だとは思います...せっかく問い合わせをいただいたのですが、 TypeNameでエラーになってしまう件は、 私もわからなくって、お力になれず すみません。エラーなので、使わない?避けて通ってみる? 根本的な解決策じゃないのです…

XXXXXさんへ 古いExcelのダイアログシートが表示されていない(シートが非表示)なら

…いものらしくて 1)VBAProjectを開いてみると、シートオブジェクトと標準モジュールはあるのですが、フォームが表示されません。 でも、実際の動きをみると、入力用のフォームなどは表示されます。 2)良く見ると(Sheet表示を全部見ると)、シートオブジェクトに表示されないものがあって、そこにX1DG,X2DG・・・という名前のダイアログシートがあって、そのシート上にフォームがありました。 3)Macroを動かすいわゆるボタンはなくて、リボンの中のアドインを選ぶと、”ユーザ…

Windows8 が もうすぐ発売ですね。

アップグレード価格 Windows 8 Pro アップグレード 日本語版が6千円台の記事 Windows8 Proのアップグレードは6080円 新キャラ窓辺ゆうと窓辺あいも登場 - 週刊アスキー にびっくりしてたら、(ぉぃぉぃ、情報遅いって)隣の記事、 『Windows 8 Pro 発売記念優待版』DL版は3300円! - 週刊アスキー の3千円にさらにびっくりしたり...まぁ、困っていないなら変えなくてもいいんだけど、 1台くらいは 話のタネにアップグレードしとこうかなぁ。…

XXXXXさんへ IEのWithEventsを使ったイベント処理

…http://ie.vba-ken3.jp/Events/DocumentComplete/ みたいに使っていたり、解決の糸口となれば幸いです。 三流プログラマー Ken3 広告 やってはいけない風水 生きる悪知恵 かつくら vol.3 2012夏 屋久島癒しの清流音CDブック アクセル ワールド 12 赤の紋章 ネクレボ FP技能検定試験2級 FIFA 13 ワールドクラス サッカー PS Vita版 高光沢抗菌防指紋保護フィルム PlayStation R Vita 3G…

Ken3 ホームページ 目次

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

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



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