下記の質問がきました。 <li class="mode"><a tabindex="2" href="javascript:void(0)" onClick="send()">返信</a></li> <li class="wmode" style="display:none;"><a tabindex="3" href="javascript:void(0);" onClick="Question();">質問</a></li> <li class="dmmode" styl…

画面がオッズの画面に切り替わったら、テストで、 レース番号を選択(テストで11Rを選択) オッズの種類(一番上の 単・複 を選択) してまみす。 <SELECT name="s"> <OPTION value="3121210" selected>1R</OPTION> <OPTION value="3121220">2R</OPTION> ・ ・ <OPTION value="31212a0">10R</OPTION> <OPTION value="31212b0">11R…

本当は、レース番号のオッズボタンを押すのが正しいと思いますが、 ここでは、一番初めに見つけた オッズ の ボタンを押してみます。 ※1Rに決め打ちして、オッズの画面に切り替える処理としては、同じように .getElementsByTagName("INPUT")で集めて、 Set objINPUT = objIE.Document.getElementsByTagName("INPUT") ループを作り、 If objINPUT(n).Value = "オッズ" Then ※…

競馬場 開催地 選択のソースを見ると <FORM method=post action=http://info.ipat.jra.go.jp/p/s> <INPUT name=g value=Mnu01 type=hidden> <INPUT name=s value=0000000 type=hidden> <INPUT name=j value=6123500000 type=hidden> <INPUT name=w value=3e2c27747c352f23 typ…

IPAT情報メインメニュー https://info.ipat.jra.go.jp/p/s を探します。また、馬鹿の一つ覚えで CreateObject("Shell.Application") から探ってみました。 おまけで、みつけたIEのFORMタグを表示してみました。操作動画: http://www.youtube.com/watch?v=dwNQaLV3xD0 www.youtube.comコード 'またまた、新しく起動した IPAT情報メインメニュー を 探す 'シ…

上で見つけた、IEから、情報メニューを押したかったので、 .getElementsByTagName("A") で、 リンクのAタグを集めて、 .OuterHTMLで中身のソースを確認、 中に、情報メニューがあるか？(InStr関数で探し) If InStr(objA(n).OuterHTML, "情報メニュー") > 0 Then で判断してみました。操作動画 : http://www.youtube.com/watch?v=w5KsIonPHZ0 www.youtube.…

ここから、情報メニューが表示されているIEを探して、処理を行うには？似ている処理、入金処理からコードをコピーして使ってみます(ぉぃぉぃ)'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Application")ここから、 For Each objWindow In objShell.Windows で回して、 TypeNameでHTMLDocumentか判断、 If TypeName(objWindow.document…

インクをそんなに使用した記憶が無いけど、 ※年賀はがきも作らなかったし、カラーで印刷した記憶があまり無いんだけど 一色無くなってしまったので・・・そろそろ購入しないとなぁ。 . Canon キヤノン 純正 インクカートリッジ BCI-7e(C/M/Y) 3色マルチバック BCI-7E/3MP出版社/メーカー: キヤノン発売日: 2008/03/06メディア: Personal Computers購入: 41人 クリック: 939回この商品を含むブログ (15件) を見るCan…

下記のような質問メッセージをいただきました。 >「三流」とはおっしゃっていますが、私から見たらあなたが羨ましいかぎりです。 >どうすれば、三流君のようにスラスラプログラムが書けるのか、、、と動画を感心して観ていました。 >本当は、メールアドレスを書いて返信していただきたいのですが、現在アドレスが無いもので。。。 あっ、これですか、 4/1だけど本当のことを言うと... >スラスラプログラムが書けるのか、、、と動画を感心して観ていました。 なぜなら、その動画は成功した動画しかア…

動画で三流解説動画の簡単な説明ソースコードは http://d.hatena.ne.jp/ken3memo/20120328 を見てください(※合わせてアレンジして遊んでください。)Folderオブジェクトを受け取ったら、 受け取ったオブジェクトの名前 と フォルダー内のアイテム (ここではメールの件名) を表示してみたいと思います。動画解説やテスト結果www.youtube.com 動画元: Outlook2007 VBA 全てのフォルダーを再帰処理で触ってみた - You…

動画で三流解説動画の簡単な説明ソースコードは http://d.hatena.ne.jp/ken3memo/20120328 を見てください(※合わせてアレンジして遊んでください。)Outlookで作成したVBA マクロを Excelで動作させたいので、 移植してみます (※移植は大げさですね、移動・微調整してみます。)と言っても、 参照設定に □MicroSoft Outlook を追加して、 CreateObject("Outlook.Application") しただけ…

前回の http://d.hatena.ne.jp/ken3memo/20120328/1332887607 Outlookで受信フォルダーを下の階層まで調べるコード を Excelで動かしたくて、チャレンジしてみました。やりたいこと: Outlookで作成したVBA マクロを Excelで動作させたい 移植してみます (※移植は大げさですね、移動・微調整してみます。)参照設定に □MicroSoft Outlook を追加して、 CreateObject("Outlook.…

下記の質問をいただきました。 >ＯＵＴＬＯＯＫをエクセルで読み込むサンプルで >二階層までのループを全階層のループにしたいのですがどうしたらいいのでしょうか？ >教えて頂けたら幸いです。 再帰処理※自分自身を呼ぶ関数で試しにOutlook2007で作成してみます。folderオブジェクト(As Outlook.Folder)を受け取ったら、 受け取ったオブジェクトの名前 .Name と フォルダー内のアイテム .Items (ここではメールの件名.Subject) を表示して…

>UserForm3.web1.Document.body.innerText >で取得できました。 >ありがとうございました。 > >ところで，ken3さんのホームページでおっしゃっている，参照設定のことですが， >Microsoft Browser Helper が見つかりません。どのようにすれば表示させられるの >でしょうか？ >バージョンは２０１０です。 参照設定で Microsoft Browser Helperが見つからない件ですが、フォームにIEを貼っているので…

>さて，ひとつお聞きしたいことがあります。 >UserForm1フォームに配置したＩＥコントロールに表示した >ウェブページのソース（テキストデータ）を取得するには >どのようにすれば良いのでしょうか？ >UserForm1.web1.Document.textのようにしてみましたがダメでした。 >UserForm1.web1.Document.textのようにしてみましたがダメでした。書き方を objIE.Document.body.InnerHTML みたく ( 手前味噌…

最近 売れ筋の本です と言っても、ただ、ランキングを並べただけで、読んだ感想とか入っていないので、あまり意味ないのですが・・・ よろしくお願いします。プログラミング 関係の書籍を探す(紹介します) [4839941734]- よくわかるiPhoneアプリ開発の教科書【iOS 5＆Xcode 4.2対応版】 [4797361190]- 体系的に学ぶ 安全なWebアプリケーションの作り方 脆弱性が生まれる原理と対策の実践 [4048862588]- HTML5とJavaScrip…

一番アクセス数を稼いでいる私の玄関口(主力のIE解説) 三流君VBAでIE操作 InternetExplorer.Applicationを操作する http://www.ken3.org/cgi-bin/group/vba_ie.asp を修正。 と言っても、 説明よりも 前にサンプル リンクを上に移動させて、 内部回遊のアクセス数を稼ぐ作戦に出る。 ※この小手先修正が吉と出るか？凶と出るか？...小手先修正よりも、読みやすく短くしたり、内容を充実させたりの王道修正しないと、…

拡張子が .msg の Outlookアイテムファイル を .OpenSharedItem("ファイル名")で取り込みました。読み込み後、フォルダーの指定でエラーが発生してしまう。。。 そんな失敗サンプルです。※苦肉の策・強引に On Error Resume Next ですすめてますが・・・テスト結果下記、テスト結果の動画です Outlook VBA OpenSharedItemで取り込みテスト www.youtube.com使用したコードOutlook2007起動後、VB…

動画で三流解説動画の簡単な説明Outlookのアイテム(メール、連絡先、仕事、予定...) は、 フォルダーの下にぶら下がってます。.GetDefaultFolder で 既定のフォルダーを指定すると便利です.Display で 画面に表示します。.Items.Count でアイテム数 .Items(n) で取り出したり、.Folders("名前") で サブフォルダーを指定したり、 .Folders.Count で サブフォルダーの数がわかるので、 ループで回して、 .Fo…

３月、年度末、移動のシーズンですね。Outlook アイテムの拡張子が全て.msg？で紛らわしいけど、面白い操作方法があります。Outlookのアイテムをドラックandドロップでデスクトップに投げると、 XXXX.msg と ファイルが作られます。これ↑を逆にデスクトップからoutlookに ドラックandドロップで投げると、 アイテムが追加されます。メール、連絡先、予定表、仕事...が全て 拡張子.msg なので、 わかりにくいのですが(なぜアイコンだけが変化・区別している…

Outlookのアイテム(メール、連絡先、仕事、予定...) は、 フォルダーの下にぶら下がってます。.GetDefaultFolder で 既定のフォルダーを指定すると便利ですOlDefaultFolders 列挙 をヘルプで見ると、 現在の Outlook プロファイルで扱うフォルダ タイプを指定します。 名前 値 説明 olFolderCalendar 9 予定表フォルダ。 olFolderConflicts 19 競合フォルダ (同期の失敗フォルダのサブフォルダ)。E…

キャンセルされた質問 >> 以下の質問がキャンセルされました。 質問情報～～～～～～～～質問内容： 「 エクセル2003、2007、2010で使用するエクセルのツールを作成しています。エクセル2010、エクセル2007においてVBA（マクロ）を記述し「ファイル」ー「上書き」を非表示（使用禁止）にしたいです。エクセル2003では、以下のようにしていますApplication.CommandBars("Worksheet Menu Bar").Reset With Applica…

久しぶりに、最近の売れ筋の本を抜き出してみました。 と言っても、 いつもの、感想なしで ただ 並べただけなので、参考にならないかも(ぉぃぉぃ)プログラミング 関係の書籍を探す(紹介します) [4774149942]- WEB+DB PRESS Vol.67 [4839941734]- よくわかるiPhoneアプリ開発の教科書【iOS 5＆Xcode 4.2対応版】 [4798017973]- Excel VBAのプログラミングのツボとコツがゼッタイにわかる本―最初からそう教え…

動画で三流解説動画の簡単な説明ソースコードは http://d.hatena.ne.jp/ken3memo/20120223/1329950884 からコピーしてテストしてみてください。VBAのIE操作では、事前調査の時に 外側を含めた.OuterHTMLで確認すると便利 です。 そんな とある三流プログラマーのデバック風景 です。 笑ってやってください。その、参考にした探しにくい三流プログラマーのHPは TOP : http://www.ken3.org/cgi-bin/g…

動画で三流解説動画の簡単な説明簡単な解説は http://d.hatena.ne.jp/ken3memo/20120224 連絡先関係の手前味噌解説は http://www.ken3.org/cgi-bin/group/vba_outlook_Contact.asp を見てください。 . アウトルックの連絡先データを更新する方法を探ってみました。 小鳥遊 が 読めない おっさん(おいたん？)らしく、 右往左往している酔っ払い動画ですが、よろしくお願いします。 気分は灰色？な前…

下記のような質問をいただきました。 教えてください。 エクセル上でマクロを起動して、Outlookの連絡先をエクセルに落としデータをそのままエクセル上で編集し、 編集したものをまたOutlookの連絡先に書きに行きたいのです。 Outlook機能のエクスポートとインポートをすると手順がいっぱいあって時間が掛かるので、 マクロで、決まった項目だけ抜き出して編集し、それをまた戻すことをしたいです。 中略 実演にはInputboxから入力したものを連絡先に【追加】でしたが、既に存在…

…ll("j_password").Value = "123456789" 'フォーム(0番目)を .Submit(送信・投稿) またはClickする objIE.document.forms(0).submit 'objIE.document.forms.("LoginForm").submit 'objIE.document.all(LoginForm).Click 'Dim x As Object 'For Each x In objIE.document.forms(0…

動画で三流解説動画の簡単な説明かなりひどいソースコードと解説は http://d.hatena.ne.jp/ken3memo/20120222/1329841331 を見て笑ってください。送受信のコマンドを実行させたかったので、 ActiveExplorer.CommandBars から、ツールを探し、 次に、 .CommandBar から 送受信を探す、 さらに .CommandBarPopup から すべて送受信を探しだし、 .Execute で実行 してみました。 ※馬…

アウトルックで下記の質問をいただきました。 >EXCELのVBAでOutLookを起動し未受信のメールをサーバーから受信した後に >未読のメールをエクセルに転記、その後OutLookを終了するVBAを作りたいの >ですが、 >起動後のOutLookでメールサーバから自動的に新規メールを受信する >部分ができません。 起動後に受信したいので、 送受信のコマンドを実行させてみます。と思ったら、追記 .Session.SendAndReceive(True) で 送信OKと連絡をも…

動画で三流解説動画の簡単な説明型指定しない サンプルコードが多い私が言っても説得力が無いんだけど、 ExcelなどでOutlookの操作を作成するときは、(Excelで開発して、.VBSに移植時も) Outlook Object Library を 参照設定して使うと便利です。 . アウトルックの解説を http://www.ken3.org/cgi-bin/group/vba_outlook.asp で やっているので、よかったらみてください。動画解説やテスト結果www.y…