三流君 ken3のmemo置き場

メモ書きレベルでまとまっていませんがヨロシク

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


VBA の検索結果:

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

…ackno/guchi084.html上記は置いといて、9~12Rの生データ 他の方からの要望も多い、自動時間取得と組み合わせがよさそうなので、 何かの機会にとは思いますが、お約束はできない状態です。最新版は http://ie.vba-ken3.jp/test/20181209.zip ↑ですが、こいつが動かない感じですよね?他の掲示板やサイトなどで解決策や良いサンプルが見つかるといいのですが。動作不良の対応策もない返信メッセージですがご勘弁を。 三流プログラマー Ken3

XXXXXさんへ VBA IE操作 リモート サーバーがないか、使用できる状態ではありません について

>実行時エラー '462': >リモート サーバーがないか、使用できる状態ではありません。 > とでます。 >デバッグでは、 > objIE.Navigate strURL >ここでとまります。 >何か特別な参照設定がひつようなのでしょうか? >リモート サーバーがないか、使用できる状態ではありません連続実行をしていると、 ( Create と .Quit などを繰り返していると) たまに発生したりしますが、Googleでエラーメッセージをそのまま検索すると、https://…

XXXXXさんへ IE操作 シートの値でURLを作り処理を行う

質問をいただきました、最近、返信遅くてスミマセン。 Dim objIE As Object 'IEオブジェクト参照用 Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定した文字列のURLを開く objIE.Navigate "https://www.boatrace.jp/owpc/p…

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

…記の質問をいただく VBA IEでHP等から表をエクセルに抜き出したい場合ですが 以前に競馬の表の取り込み例として'TABLEタグを抜き 複数のテーブルをセット Set objTABLEs = objIE.document.getElementsByTagName("TABLE") '↑で代入したオブジェクトからテーブルデータを取り出す。 Set objTABLE = Nothing 'オブジェクトを空にする For i = 0 To objTABLEs.Length - 1…

Excel VBA A列から .Charactersで Font 色や太字を判断してHTMLタグを作成する

…を追加する。 そんなVBAをライブで作成して、 マクロ記録で太字のFont.Boldを探せなかったり、 追加したタグがクロスしてしまうバグ・不具合を発見しました。いつものデバッグ風景です。ライブは怖いので録画で ぉぃぉぃ。 https://www.youtube.com/watch?v=V7ZTH8ymryU www.youtube.com ※録画なのに↑失敗してます・・・だめだこりゃ・・・1.太字の判断 太字・強調表示の判断は Font.Bold = True/False …

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

VBAから表示したIEの画面をスクロールさせてみました。 SendKeysとjavascript:scrollToを使ってみたhttps://www.youtube.com/watch?v=jHnqqQP3FC4&start=470 youtu.be ※前半は先週のテストなので、IEのスクロール処理は 7:55 ~ 動画を見てください。 https://www.youtube.com/watch?v=jHnqqQP3FC4&start=4701.先週の修正結果の確認 先週修正…

XXXXXさんへ VBA IEで二つのページを表示 .Navigate2 メソッド &H800指定で新規タブ 隣のタブ

…をいただきました。 VBAでIEをヤフーとAmazonを同時に開く事は可能でしょうか。 また開くソースを教えて頂けますでしょうか。 お手数ですが、 宜しくお願い致します。 単純に二つの変数を使って起動したパターン と 隣のタブに表示するパターン 二つを作成してみました。www.youtube.com 【VBA IE操作】.Navigate2 メソッド &H800指定で新規タブ 隣のタブ表示のテスト【三流君】 - YouTube Option Explicit '変数を二つ使っ…

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

…Excel2016 VBA IE表の取り込み - YouTube の終わりに、 チャットのコメントで テーブルのOuterhtmを貼り付けたほうが簡単だよ と アドバイスをいただいたことです。58:27 ​テーブルのOuterhtmをクリップボードに取り込んで PasteSpecial Format:="テキスト", NoHTMLFormatting:=True で貼り付けたら楽なんじゃ?アドバイスをいただけるって、ありがたいですね。以上、私だけかもしれないけど、びっくりして…

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

…イブ デバッグ動画 VBA IE操作 バグ修正 発送時刻とオッズの時刻が変 JRA単勝オッズの取り込み デバッグ ・・・ ライブ プログラミングほか テスト - YouTube www.youtube.com1.バグ・不具合の再現 発走時刻とオッズの時刻が変2.原因の特定 処置・対策HPの表示内容が変更になったので、 発走時刻のセット、取得方法を変更しました。.Document.body.innerText から、 文字を探して、Midで抜き出しただけです。 Public F…

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

…Excel2016 VBA IE表の取り込み - YouTube www.youtube.com一つでもデバッグ時の参考となれば幸いです。修正したExcel2016のブックを http://ie.vba-ken3.jp/test/20181209.zip ↑からダウンロードして遊んでみてください。 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'IEオブジェクトを受け取り、表示を待つ Sub I…

にしむくさむらい 月末最終日 日付の判断 西向く侍(士)って何?知ってた?

…から-1(前日)が2018年12月の末また、意味不明なこと書いたけど、 4.1 復習 Excelで日付-1をテストしてみよう 4.1.1 2018/1/1 ~ 2018/12/1 をオートフィルで入力してみて 4.1.2 =来月の日付-1 の計算式を入れてみて 4.1.3 表示形式の練習、表示形式をddにしてみて考えながら解説予定を書いていたら、長くなったので、 VBAの日付関数はまた今度ぉぃぉぃ ※今度時間がある時に飲みに行きましょう・・・と同じで、いつになるやら ぉぃぉぃ

XXXXXさんへ Excel VBA セルに書き込み時にLISTBOXのChangeイベントが発生について

…た。朝からデバッグ VBA Excel UserForm リストボックスのイベントについて実験する・・・三流プログラマー の 独り言 ライブ プログラミングほか テスト中 - YouTube www.youtube.com1.質問の理解 ユーザフォーム(テキストBOX)からセルに書き込みを行う際、listboxのChangeイベントが発 生しうまく値を書き換えることができません。(値の変更をフォームより行いたいのですが、セルに書き込み時 にLISTBOXのChangeイベント…

XXXXXさんへ Excel VBA Asc関数 Chr関数 Offsetを使った泥縄デバッグ実演 仕様変更?追加依頼された時

Excel VBAでAsc関数 Chr関数 Offsetを使って 処理を変更してみました。前回作成のサンプル ken3memo.hatenablog.com に追加の要望がきました。追加の要望: 前回の質問時は満足していたのですが 本日色々と試してみると ランダム数値の区分がグループ分けした後 確認できればと思ってしまいました 後出しですみませんが、 引き続きご教示よろしくお願いします 【問題】 班 人数 A 20 B 15 C 8 D 90 E 16 【答え】 班 人数 1…

XXXXXさんへ Excel VBA 質問にチャレンジ。デバッグ F8でステップ実行したり

…した。 質問ですが、VBAで数値の足し算をしたいと思います。 内容は A列に上から 20 15 8 90 16 とランダムに配列した数値を上から順に足し算していくのですが、ある一定の数値(33とします)になるくくりで数値を出していきます 説明がうまくできませんが、33人乗りのジェットコースターが来た時に、グループ毎にいる人たち(20人のグループ.15人のグループ.8人のグループ…)が乗るのを待っている時に、順番に乗り込んでいきますが、常に33人乗り満杯で発進したい場合 グルー…

Excel VBA Worksheet_Changeイベント内でセルを変更すると再度Changeイベントが発生する

…と、苦しまないようになると思います。 ※.Column <> 5で列をチェックテスト・蛇足の解説してみました デバッグ Excel VBA Worksheet_Changeイベントでシート内容を書き換えると再度Changeイベントが発生する - YouTube www.youtube.com お時間のある時に見て、笑ってください。 うまく修正できることを願いつつ、失礼します。 ※恥の上塗り、再度の不具合が無いことを願いつつ・・・Excelさん、みなさん、ごめんね・・・ぉぃぉぃ

Excel VBA WorksheetのChangeイベントに処理を書いてみたテスト

…get.Row < 100 Then Cells(Target.Row, "E") = Now End If End Sub テスト・蛇足の解説してみました デバッグ Excel VBA Worksheet_Changeイベントでシート内容を書き換えると再度Changeイベントが発生する - YouTube www.youtube.com お時間のある時に見て、笑ってください。 うまく修正できることを願いつつ、失礼します。 ※恥の上塗り、再度の不具合が無いことを願いつつ・・・

XXXXXさんへ VBA Outlook グラフ送信について

….ken3.org/vba/backno/vba183.html の VBA Outlook リッチテキスト形式のメール で グラフを送る ですが、 昔作成したサンプルなので、 Office2010からメニューがリボンになったので、 貼り付けが動かないみたいです。下記のサイトで指摘されてたり(なんか恥ずかしいぉぃぉぃ) https://answers.microsoft.com/ja-jp/office/forum/office_2010-excel/excel/cf4473…

XXXXXさんへ Access VBA MAIL アドレス帳から選択・送信操作について

…ことはないのですが、VBA Outlook アドレス帳 連絡先選択 で検索すると、 https://qiita.com/Q11Q/items/c5ae5cbc1744905f3288 https://msdn.microsoft.com/ja-jp/vba/outlook-vba/articles/display-names-from-the-address-book https://detail.chiebukuro.yahoo.co.jp/qa/question_deta…

XXXXXさんへ IE操作 SELECTタグで動的に変化するページの操作について

vbaでWEBの、select操作を行いたいのですが、valueを設定するも、うまく動作しません。下記、①のselectで馬連を選択しても、②方式選択が更新されません For Each obj In ie.document.getElementsByTagName("select") If obj.Name = "betType" Then obj.Value = 5 web address https://www.oddspark.com/keiba/auth/Classi…

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

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

XXXXXさんへ プロパティの.hwndを使ってみては?IEのウインドウハンドル

こんにちは。 >IEオブジェクトからIEのウインドウハンドルが知りたいのですが、どんな方法があるでしょうか? でよく使っているのは .hwnd かな。 SetForegroundWindow (IE.hwnd) など、 IEが持っているプロパティの.hwndを渡し使っています。ken3memo.hatenablog.com ken3memo.hatenablog.comネットの流れは速いので、 もう既に解決されているかもしれませんが、 解決の糸口となれば幸いです。 三流プログ…

XXXXXさんへ Outlook 仕分けルール .exeを実行 olRuleActionStartApplication は プログラムから作成不可?

…com/ja-jp/vba/outlook-vba/articles/managing-rules-in-the-outlook-object-modelルールの処理を指定する https://msdn.microsoft.com/ja-jp/vba/outlook-vba/articles/specifying-rule-actions の表で、olRuleActionStartApplicationの 処理 olRuleActionType 定数 プログラムによる新しいル…

レジストリの変更を指示されたら? RegEdit レジストリエディタ使ってみた

…ules" を作成し、値を "1" にすると良いようです。 上記みたいな指示を受けたら レジストリエディタを ファイル名を指定して実行(Winキー+R)などで起動regeditあとは、指定したキーと値でレジストリを作成(変更)する決まり文句で ・レジストリをいじるときはバックアップしてから ・自己責任です の注釈付きかなぁさてと、手作業ができたので、VBAを探っていかないとなぁ・・・ken3memo.hatenablog.com ken3memo.hatenablog.com

XXXXXさんへ ごめんなさい Outlook 仕分けルール 私もよくわからなくて未解決です

…が、outlookのvbaで仕分けルールが自動で作成されるように組もうと思っています。件名に「三流」からメールが来たら「アプリケーションを開始する」というアクションを起こすというルール内容をマクロ起動にて作成されるようにしたいのですが、どうも「アプリケーションを開始する」コマンド?が見つかりません。。。 手動だと answers.microsoft.com のレジストリをいじると表示されるみたいですね。 VBAからセットするには、 廃止された隠しのプロパティなどあるのかなぁ…

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

…書き込んでいきます VBAがそうなっているのは、理解していますが修正がわかり兼ねます②また、上記レース結果で『枠』(gif)が整数でないことからエクセルに 書き込みされません ここから、確認作業を開始する。1.不具合の確認 Excel起動後、 コードを走らせて、 不具合を確認する。結果の出ていないレース、発走前のレース処理がおかしかった。 枠の番号が取れていなかった。2.修正 2.1 結果が出ていないレースを飛ばす処理リンクをクリックするサブ関数で結果を strRETURN …

XXXXXXさんへ Outlook送信アカウントの切り替え .SendUsingAccount についてハマったテスト結果

Outlook VBA 送信アカウントの切り替え .SendUsingAccount = Session.Accounts("アカウント名")でハマってる・・下記の質問をいただいたので、試してます。 VBAでOutlookのメールを立ち上げることに成功しました。 差出人をデフォルトではなく、 別のアカウントで使いたいのですが、 単純にsendusingaccountを入れるだけではダメなんですね。 どうすればうまくいくんでしょうか。 複数メールアドレスを登録して、 テスト中で…

XXXXXXさんへ VBA コンボボックスの初期値処理 デバッグしてみました

VBA

…往のデバッグ動画 【VBA デバッグ風景】VBA コンボボックス 初期値のセットをデバッグ 2018-07-14【三流君】 - YouTube www.youtube.comコンボボックスの初期値は、.ListIndex を使用した .ListIndex = Month(myday) - 1 のままでもOKだと思います。また、.Valueを使用した UF002.ComboBox2.Value = Month(myday) の.Valueをセットでも動くと思います。値が" "空…

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

Excel VBA を VBS に変換する作業中に 「オブジェクトでサポートされていないプロパティまたはメソッドです」 エラーが発生しました。 と 質問をいただきました。ここから下質問文※一部カット VBAで無事複数メール送信の構文が出来ました。 そして、一番の難題であるVBSへの変換ですが、 まず私はVBAのマクロをこう作りました。 Enum 列 宛先 = 1 氏名 成績 件名 添付ファイル1 添付ファイル2 添付ファイル3 End Enum Sub メール作成() Dim…

XXXXXXさんへ Outlook 予定表 分類を探る olApptItem.Categories

…com/ja-jp/vba/outlook-vba/articles/appointmentitem-categories-property-outlook 'Display the Show Categories dialog box olApptItem.ShowCategoriesDialog MsgBox olApptItem.Categories を入れて、テストしてみます。いつもの右往左往した酔っ払いテスト動画 【Outlook VBA】予定表 Appointme…

XXXXXXさんへ Outlook サンプルの件 と 他のQAサイトで質問について

> 内容は下記となっております。 > https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11192362626 detail.chiebukuro.yahoo.co.jp > > > 先に三流君様に許可をいただいてから、やるべきところを、恥ずかしながら回答者様にご指摘いただくまで、コードのライセンスという概念が無く、質問を行わせていただいておりました。 誠に申し訳ございません。 > >つきましては、現状URLの…

Ken3 ホームページ 目次

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

三流解説動画の再生リスト
https://www.youtube.com/user/ken3video/playlists

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