三流君 ken3のmemo置き場

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

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

XXXXさん の検索結果:

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サンプルファイルの公開を一時中止しました

…ていただいている XXXXXさん サンプルファイルの公開を一時中止しました。 この対応でOKですか?OKの場合、コメント欄やメッセージフォーム、メールでの注意喚起などやめていただけるとありがたいです。 以上、よろしくお願いします。 三流プログラマー Ken3 ※ファイルがどうしてもほしい人は、個別に対応するので、Twittweや ken3.org のメッセージ欄、ここのコメント欄などで連絡ください。 多数のメッセージ、無視していたわけではありません。 このブログのように他の質…

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 '変数…

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

朝からデバッグ Excel リストボックスのイベントについて実験したみた。朝からデバッグ VBA Excel UserForm リストボックスのイベントについて実験する・・・三流プログラマー の 独り言 ライブ プログラミングほか テスト中 - YouTube www.youtube.com1.質問の理解 ユーザフォーム(テキストBOX)からセルに書き込みを行う際、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人のグループ…)が乗るのを待っている時に、順番に乗り込んでいきますが、常…

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

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

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

>Outlookでファイルを添付する件で送信先を固定せずにアドレス帳から任意に選択することは可能でしょうか?アドレス関係は軽く追加とかしか、やったことはないのですが、VBA Outlook アドレス帳 連絡先選択 で検索すると、 https://qiita.com/Q11Q/items/c5ae5cbc1744905f3288 https://msdn.microsoft.com/ja-jp/vba/outlook-vba/articles/display-names-fro…

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単勝取り込みサンプルプログラムの作りが悪くご迷惑をおかけしてスミマセン。

下記の質問をいただく 単勝オッズの取得20170820.xlsmを回答して実行しましたが、動きません。 MENUシートのB2に入れた、「2回新潟9日 リンクが見つかりませんでした」 のMSGBOXが出てオッズを取得できません。こちらの環境はExecl 2013です。もう一つのサンプルで、「三流君VBAでIEのリンクを操作 Document.Linksを探る」 試したのですが、JRAのHBのリンク数は13個でした。JRA側が2017/08から何か変更したのでしょうか? 私のサン…

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

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

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

私も苦戦してますね・・・できたぁ・・の報告じゃなくてスミマセン。Outlook オブジェクト モデルでルールを管理する https://msdn.microsoft.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…

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

例)Outlook2016 自動仕分けで旧機能 アプリケーションの起動 スクリプトの実行を使用したい時にレジストリを設定するOutlook2016の自動仕分けで 過去のバージョンにあった アプリケーションの起動 や スクリプトの実行 を設定したいときは(選択を出したかったので) レジストリをいじってみます。 【Outlook2016】自動仕分けで旧機能 アプリケーションの起動 スクリプトの実行を使用したい時にレジストリを設定する【三流君】 - YouTube www.yout…

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

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

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

私のサンプルを改造した視聴者様から下記の質問をいただいたので、 チャレンジしてみたいと思います。土曜日のレース中にテストチャレンジ 下記のグダグダ修正を笑ってくださいね。 JRA サイトから レース結果をExcelに取り込む・・・三流プログラマー の 独り言 ライブ プログラミングほか テスト中 - YouTube www.youtube.com 下記の質問をいただきました。 JRAのオッズ取り込みを改造して レース結果を取り込むことにチャレンジしていますが 中々、思うように…

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 = …

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

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

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

Outlook 予定表 分類を探りたかったので、Outlook 予定 https://msdn.microsoft.com/ja-jp/library/cc446751.aspx のプロパティから分類 カテゴリー?なんてプロパティがあるので、AppointmentItem.Categories プロパティ (Outlook) https://msdn.microsoft.com/ja-jp/vba/outlook-vba/articles/appointmentitem-ca…

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作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



Googleを使用して検索する

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

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


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

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

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


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