三流君 ken3のmemo置き場

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

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

XXXXさんへ の検索結果:

XXXXXさんへ IEサポート終了後の VBA WEBからのデータ取得について キーワード Selenium で検索すると流行の方法がわかるかなぁ

>ExcelVBAでデータを集め、競輪予想を作っています。 ・ ・ ・ >さて最近、IEのサポート終了が告知されていますが >WEBからのデータ取得はどのような対処がベターなのでしょうか?ご意見をお聞かせください。ベター、ベスト、イロイロな考え方がありますが、 キーワード Selenium で検索すると流行の方法がわかるかなぁgoogle:Selenium VBA https://www.google.com/search?q=Selenium+VBA ↑で検索したりブラウザ…

XXXXXさんへ Excel VBA 1行単位 A列からE列 5つのデータをPowerPointの1スライド 縦に5個並べたテキストボックスにセットする

VBA

下記の質問をいただきました。 >パワーポイントのVBAを検索していたらこちらに辿り着きました。 >A列~E列までのデータを1枚のスライドの5か所のテキストボックスに流し込むにはどうしたら >いいでしょうか? >テキストボックスは上から下へ同じ大きさのテキストボックスが5行あるような状態です。 いつもの、あのあの、そのその?が多すぎなテスト動画です https://www.youtube.com/watch?v=ZLkCiXC0FzQ www.youtube.com1.事前準備…

XXXXXさんへ エクセル 入力禁則 ドロップダウンリスト =INDIRECTの#REF!のエラーについて

Excelのドロップダウンリストのエラーで、いくら調べてもエラーを解決できないため、どうかお力を貸して下さい。例えば、以下のような表があるとします。取扱者 契約者 被保険者 A D I A E A F I A F j A D K B G K B G L B D M C H C H N上記の様な表記に対し、それぞれの列をテーブル化し、取扱者、契約者、被保険者と名前を付けました。取扱者、契約者、被保険者をそれぞれ紐付けしたいです。取扱者のドロップダウンリストは作成できたのですが(…

XXXXXさんへ VBA IE操作 Java Script サイトのクリックの方法について 質問をいただく

下記の質問をいただいたので、google検索キーワードを紹介してみます。 Java Scriptが利いているサイトのクリックの方法について google:vba ie click javascriptなどで検索すると、解決策が出てくるかなぁ。 ↑検索結果に丸投げかよ・・・ 以下、いつもの遠回しな宣伝付き回答 ぉぃぉぃ・・・1.直接起動してみるのも手かなぁ.Script.setTimeout "javascript:関数などかけるので" ページ表示を確認後、HTMLのソースを見…

XXXXXさんへ VBA Outlook メールの移動について .ReceivedTimeで受信時刻がわかるので.Move してみただけ

下記の質問をいただく >OUTLOOKで受信したメールで作業実施日を毎朝8時とすると >そこからからマイナス15時間から朝8時の範囲で受信したメールだけを >任意のサブフォルダーに移したいときはどのようにすればよいのでしょうか。 .ReceivedTime で受信時刻がわかるので、 .Move してみただけですが下記、メール移動のサンプルコードです 参考となれば・・・ Option Explicit '2021-04-08 .Move でメールを移動させる 'カウンターを使用…

XXXXXさんへ VBA IE操作 confirm() とalert() 両方を消したい

VBA

下記の質問をいただきました。 WEBページからのメッセージに困っていましたが objIE.navigate "JavaScript:function confirm() { return true; }" のおかげで次に進む事が出来ました。 本当にありがとうございます。ただ次の問題が新たに発生しました。 実行ボタンを押すと ①confirm画面がポップアップ 特定条件にヒットすると ②confirm画面がポップアップ→alert画面がポップアップ。 となるケースがあり、 ob…

XXXXXさんへ Q: Yahoo競馬の着順情報を取りたい A: DIV Class=XXXX を.ClassNameで取り出す テスト

' objTABLE.rows(行).cells(列) Set objCELL = objTABLE.Rows(y).Cells(x) 'これがwebの列 で取り出したデータに対して、さらに、その中から、DIVタグを取り出して、名前を調べる'DIVタグを抜き classの名前を取得してみる Set objDIVs = objCELL.getElementsByTagName("DIV") '1セルの中からさらにDIVをByTagName("DIV")で取り出す。そんなテスト動…

XXXXXさんへ VBA配列での高速サーチ COUNTIFS について

>大量のデータをCOUNTIFSをで実施するとかなり時間がかかります >約1時間~2時間ぐらい?です > >ネットで色々と見て、VBAで配列でとか書いていますが >解かりりかねますので、何卒ご教示お願いいたします こんにちは。 VBA配列での高速サーチについてですが、 私も詳しくなく、お力になれずスミマセン。 >COUNTIFSをで実施するとかなり時間がかかります COUNTIFSで、毎回自動再計算がかかって、遅くなるパターンならgoogle:COUNTIFS 高速化 で検索…

XXXXXさんへ input type="image" のボタン操作 VBA IE操作で気になったこと

下記の質問をいただいたが、回答ができなかったお話。 csvをDownloadする画面に行くのですが、 そこのボタンがJavaScriptで動くように設定されているのですが、 動かすことができません。 下記がボタンのソースです。 input type="image" name="XXXXXX_SubmitCsv" src="xxxx_dl_csv.gif" style="cursor: pointer;" alt="CSVデータ保存" title="CSVデータ保存" widt…

XXXXXさんへ AccessからExcel データ転記の開始位置について

VBA

下記の質問をいただく Accessからエクセルのテンプレートへ1シート10件ごとに出力させようとしています。 件数も毎回変わります。 件数が増えるごとにテンプレートシートをコピーして増やします。(依頼書1、依頼書2・・・)「シートへデータを転記( http://www.ken3.org/vba/backno/vba100.html )」を参考になんとかシートごとに出力はできたのですが、出力開始セルがA1からでないとうまく出力できません。テンプレートなので貼付け開始セルをI21…

動画でシステム屋小話 名は体を表す 命名規則 質問のソースコード一行からイロイロと想像・妄想 我流の探り方

1.言語なので受け手PCになったつもりで、そのまま読んでみる 2.名は体を表すので、英単語や変数名などから機能や動作を想像してみては? 3.一を聞いて十を知れないので、前後の文章(コード)があるとわかりやすいかも・伝わりやすいかも。いつもの、脳内を自分語で垂れ流すので ぉぃぉぃ 参考程度に聞いてください。※一つでも心に刺されば成功です(うれしいです) www.youtube.com https://www.youtube.com/watch?v=T0EmYLBZCn8伝えたい…

XXXXXさんへ ie.Document.getElementsByName の件 ソース一行から、イロイロと想像してみた

下記の一行コードの質問をいただく。 >三流君さん、お久しぶりです。 >もし解読出来たら教えて頂きたい構文があります。 >ie.Document.getElementsByName(' routeSettingList[' & n & '].trafficCd').item(0) >です。もし解読出来ましたら教えて下さい そのまま、PC(ieブラウザ)になったつもりで見ると ie.Document.getElementsByName(' routeSettingList[' &…

XXXXXさんへ IE使用時にページ移動後のHTMLDocumentを再取得 について

下記の質問をいただく。 >IE使用時にページ移動後のHTMLDocumentを再取得したいのですができません。 >ご教授いただけないでしょうか?? >IE使用時にページ移動後のHTMLDocumentを再取得 ですが、 通常は、移動後もそのまま使えるので、 ※逆に、移動前のページのデータは書き換えられているので使えない ↑何言ってんだか、意味不明・・・パターン1:ページ表示後に検索データを入れて、検索、検索結果を処理 https://www.youtube.com/watch…

XXXXXさんへ IE操作 このサイトは安全ではありません とエラーメッセージが表示される

下記の質問をいただく。 今まで動いていたプログラムが【このサイトは安全ではありません】というエラーが出てしまいます。 このエラーメッセジが出ないようにするにはどうすればよいのでしょうか。 軽く、win10 IE vba このサイトは安全ではありませんをキーワードに検索しただけですが、google:win10 IE vba このサイトは安全ではありません で検索するとhttps://www.manageengine.jp/support/kb/OpManager/?p=9959…

XXXXXさんへ VBA IE操作 手作業で見つかるオブジェクトが見つからないパターン

デバッグ時の手作業で見つかるオブジェクトが プログラムで走らせると(実行時)見つからないパターン>> objectそのものが取得できていないエラーとなりました。 >> また、ジャバスクリプトを直接動かすほうは、実行しても、「反応しない」という状況です。よくあるのが、ページの表示待ち次がページがフレームのページ? or カーソルが進まないとデータを取得できないパターン https://youtu.be/6yo4PJnzwk0?t=1474 ↑スクロールするとデータが作られるパタ…

XXXXXさんへ debugコマンドについて コマンドプロンプトDOS窓のことなら

老害MS-DOSおじさんの私も、Debugコマンドについて詳しくなくて、 適切な回答ができなくてスミマセン。あっ、下記の動画について質問だったんですね。 バッチファイル .bat を作成してMS-DOSのコマンドを使う。 https://www.youtube.com/watch?v=w7Bc7kTuYPw >デバッグコマンドとかはつくれますか? もしかして、下記のdebugコマンドなら、無くなった?ので、実行できないかも。debugコマンド(MS DOS) https://…

XXXXXさんへ VBA IE操作 帳票ボタンをクリックしたい件について 妄想回答案です

やりたいこと サイトの中の、ID付与されているボタン(具体的には、「帳票」を示す、“LinkButton4”)をクリックしたい、というものです。 2.取得したいID(”LinkButton4”)が記載されている(と思われる)箇所のHTML。 (「要素の検査」を使ったら、表示された行です)、 <dl> <!-- Report --> <dt><img id="LinkButton4" src="../Images/ico_report.png"onclick="javascri…

XXXXXさんへ InStr関数などで文字があるか?チェックして、あったらE列にセットするとか?

質問お願いします VBA IE にてテーブル取得するのに 上記例ですが 『お菓子』が含まれているせるがそれぞれA~C列に10行目まであります A列の1行目からC列10行目まで 順番にさぐり 『お菓子』が含まれていれば セルの内容をそのままE列にコピーする ようにしたいです ご教示どうぞよろしくお願いいたします HP上のテーブル ナンバー__1__________2_________3 1_______お菓子です__山田さん___食べた 2_______須崎さん____お菓子…

XXXXXさんへ IE ダイアログボックス 処理について 2019-06-20返信

VBA

当店人気のIE操作質問がくるも・・・ >ダイアログボックスが2~3回開く業務系では上記の処理がsendkeysメソッドでしかできません。 >ご存じの通りsendkeysメソッドは不安定で度々エラーが発生し業務使用するのは厳しい状況です。 >何か良い方法はありますか?せっかく良いネタ・メッセージをいただいたのですが、 ダイアログ処理は私もなかなかスッキリできなくて困っています。 なので、かっこつけた回答ができなくてスミマセン。自分やみなさんが困っている処理は、 需要がありとても…

XXXXXさんへ Win10クリーンインストールの件 私も怖くて尻込みします

こんにちは。Win10クリーンインストールの件 トラブルで不安な中(そんなに不安じゃなかったらスミマセン) 返信遅れて、すみません。>windows10がおかしくなってクリーンインストールをしたいです。 なかなか、難しい質問ですね。 クリーンインストールかぁ。>けれど難しそうで尻込みしてしまい 私も同じです。 失敗した時のリスクが怖くて、しり込みしてしまう案件ですね。実際、遠隔指示でやると、クリーンインストールの待ち時間が長くて、 連絡体制が難しいかなぁと思ったり。最近は、か…

Outlook VBA 添付ファイル写真の取り出し はてなの質問にチャレンジしてみた。テストしてみた

はてなの質問 q.hatena.ne.jp にチャレンジしてみた。テストしてみた >【指定フォルダ or 指定件名を含むメールの本文内の画像をエクセルに貼り付け】 >複数人からiPhoneのメールで送られてくる画像を >1クリックでエクセルにまとめて貼り付けしたいです Outlook VBA で メールに添付された写真をExcelに貼る処理のイメージがあっているか、わからないが、 下記の用に作成してみましたhttps://www.youtube.com/watch?v=SF9…

XXXXXさんへ 入院中で返信できなくすみません

入院中で返信できなくすみません。 石が移動して詰まってしまい、処置観察中で退院日はまだ決まってません… ではまたぁ ※内視鏡入れて処置するのに同意書を書いたけど帰って来れるよな…

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

下記のメッセージをいただく。 >単勝、馬連、馬単、三連複、三連単、出馬表 >の各データの各開催場の9~12Rの生データを >エクセルシートにコピペし(午前中に3度行い)、 >この物をエクセル上でマクロ、VBで加工し、 >各レース毎のシートへ送りオッズ表を作成してますが、 ・ ・ ・ >貴兄のIE使用の単勝オッズ表取得の解説を見て感動しましたが >表記サンプルは稼働不能でした。 >やはり、JRAHPサイトの都合によるProg.変更等により不都合が生ずるものなのでしょうか。 >マ…

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さんへ Access 更新処理 エラーについて 指導者の先輩が作成したサンプルと違いを見てみては?

>エラーが出ているのは中盤の更新ボタンクリックのあたりです。 急いでいるみたいなので、(※急いでいない人はそもそも質問しないかスミマセン) ざっと見た感じ勝手にコメント付けてみました。理解の手助け、参考になれば。 Private Sub 更新ボタン_Click() Dim b As Recordset Dim buppincord As String 'ここでレコードセット作成 Set b = CurrentDb.OpnRecordset("select * from 物品机…

親切なXXXXXさんへ ご指摘のIEサンプルファイルの公開を一時中止しました

私のIEサンプルを使用中に(も)※通常のブラウズ中にも最近、広告表示から フィッシングサイト や 偽のアプリケーションのインストールサイトなどに 自動でリダイレクトしてしまうことが多いみたいです。強制遷移される例 はてなさんのブログを紹介 staff.hatenablog.comや 私のページでも ken3memo.hatenablog.com上記みたいに 通常のブラウズ中にも 発生していますと、私なりに丁寧に説明した(つもりなのですが)、 Ken3のサンプルファイルを使用し…

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

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

XXXXXさんへ ページが変わるたびにset mi=objie.documentとしなくてもよいのでしょうか?

IEのDocumnetについておしえてください。 以下のようなプログラムいおいて、①でmiに OBJIE.documnetをいれてますが、ページが変わって miをウオッチでみると変わったページのプロパティ要素が取得されてます。これは、ページが変わる(次のリンク先を読み込む)と自動的にmiにdocumentプロパティーの要素がはいるってこ とでしょうか? ページが変わるたびにset mi=objie.documentとしなくてもよいのでしょうか? 宜しくお願いいたします。 ーー…

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

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

Ken3 ホームページ 目次

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



Googleを使用して検索する

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

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


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

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

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


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