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

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

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

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

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

下記の質問をいただく Accessからエクセルのテンプレートへ１シート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伝えたい…

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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