三流君 ken3のmemo置き場

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

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

CreateObject の検索結果:

QA2010-06-20 1.OutlookのVBAから、EXCELを起動する

…ことは、OutlookのVBAから、EXCELの特定セルの情報をどのように取得するかです。 を処理したいので、 アウトルックからエクセルを起動する、そんな方法を調べてみます。動画解説やテスト結果www.youtube.com 動画元: QA2010-06-20 1.OutlookのVBAから、EXCELを起動する - YouTube 動画区分・リンク 三流君 VBA 2010-06-20 Outlook CreateObject Excel.Application テスト動画

VBA(vbs)でパワーポイントの操作 マクロ記録ほか入り口

…2003までで、PowerPoint2007からは無くなったみたいです。※残念です。。。 マクロ記録を使って スライドショー の 自動実行にチャレンジしてみました。動画解説やテスト結果www.youtube.com 動画元: VBA(vbs)でパワーポイントの操作 マクロ記録ほか入り口 - YouTube 動画区分・リンク VBA CreateObject PowerPoint.Application パワーポイント マクロ記録 三流君 Ken3 テスト 2010-06-10

XXXXさんへ VBS IE操作でBlogにログイン ブログの入力・登録処理

…t objIE = CreateObject("InternetExplorer.application") objIE.Top = 100 objIE.Left = 100 objIE.Width = 1024 objIE.Visible = True 'ページを開く(.Navigateで表示する。) objIE.Navigate "http://blog.so-net.ne.jp/" Wscript.Sleep 1000 '1000で1秒 '読み込み完了となるまで、ループ…

BUG0822 VBAでIE操作 IEのOpen Closeを繰り返すと落ちる

…いて閉じて、を単純にCreateObject("InternetExplorer.Application") と .Quit 繰り返しているから メモリの解放やタイミングかなぁ? 負荷テストを行わないで、自分の贅沢な環境で動いたから、、、or テストプログラムは小さくて、実データが付いていないから、たまたま動いた、全体のソースと解説は http://www.ken3.org/guchi/backno/guchi205.html のNo.205 負荷テストの重要性 IEのOpe…

XXXXさんへ VBS IE操作で alt="ログイン"のボタンを探して押す方法

…t objIE = CreateObject("InternetExplorer.application") objIE.Top = 100 objIE.Left = 100 objIE.Width = 1024 objIE.Visible = True 'ページを開く(.Navigateで表示する。) objIE.Navigate "http://blog.so-net.ne.jp/" Wscript.Sleep 1000 '1000で1秒 '読み込み完了となるまで、ループ…

001 参照設定をしましよう。 三流君 VBA IE操作

…InternetExplorer 'IEオブジェクト参照用 Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) End Sub動画解説やテスト結果www.youtube.com 動画元: 001 参照設定をしましよう。 三流君 VBA IE操作 - YouTube 動画区分・リンク 三流君 VBA IE操作 参照設定

IE8 で objIE = CreateObject("InternetExplorer.application") が 動いたのに驚く・・・

…、 objIE = CreateObject("InternetExplorer.application") で 普通に動いたので少しびっくり。。。テストしてみるもんですね(ってぉぃぉぃ) いきなり進めるとまずいので、みなさんは、もっと確認してから行ってください。。。動画解説やテスト結果www.youtube.com 動画元: IE8 で objIE = CreateObject("InternetExplorer.application") が 動いたのに驚く・・・ - Y…

Dim ie As InternetExplorer を 使いたい時は、参照設定しましょう

…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束)この三流サンプルを見た被害者が(読者が)他の掲示板などでご迷惑をかけているみたいなので、 正式な方法?行儀のいいキレイな参照設定する方法、操作を動画で説明します。※三流なゴミコードをアップしてネットのみなさんにご迷惑をおかけしてスミマセンでした。。。動画解説やテスト結果w…

Access2010 から Excelを開くコード Access2003のコードを貼り付けテスト

…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True 操作方法、テスト結果フォームのデザイン画面で ボタンを貼り付けます ここで、キャンセルを押して、ウィザードを途中で止めます。 次に、プロパティから イベントを選択し、クリックにコ…

Excel VBA から OutLookを起動して 受信メールを1つ1つ取り出す

…utlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を Set oApp = CreateObject("Outlook.Application") '呪文1 名前空間 の 指定 と言っても、.GetNamespace("MAPI")しただけ Set myNameSpace = oApp.GetNamespace("MAPI") '次は作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display) Set myFold…

Excel2003 VBA から OutLookを起動

…utlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を Set oApp = CreateObject("Outlook.Application") '呪文1 名前空間 の 指定 と言っても、.GetNamespace("MAPI")しただけ Set myNameSpace = oApp.GetNamespace("MAPI") '次は作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display) Set myFold…

Windows Vista IE7 CreateObjectで失敗した画像

…t objIE = CreateObject("InternetExplorer.application") で失敗する、そんなテスト動画です。続きの対策 手前味噌の方法は http://www.ken3.org/cgi-bin/group/vba_ie.asp#VistaIE7NG で逃げ手を考えてみましたがイマイチしっくりきてません。動画解説やテスト結果www.youtube.com 動画元: Windows Vista IE7 CreateObjectで失敗した画像 -…

Windows XP IE CreateObject テスト結果

動画で三流解説動画の簡単な説明Set objIE = CreateObject InternetExplorer.application の テストです 解説は http://www.ken3.org/cgi-bin/group/vba_ie.asp です。動画解説やテスト結果www.youtube.com 動画元: Windows XP IE CreateObject テスト結果 - YouTube 動画区分・リンク 三流君

Windows Vista IE7 + Excel2007 で起動の失敗

…Vista IE7でCreateObject("InternetExplorer.application")後.Navigateしたら空白のIEができてしまい失敗したそんな­画像です。 Windows Vista IE7 + Excel2007 で起動(.Navigate)の失敗 http://ken3-info.blog.ocn.ne.jp/code_gomibako/2008/04/windows_vista_i_d9bc.html 動画解説やテスト結果www.youtu…

テスト結果 .Top .Left のテスト

動画で三流解説動画の簡単な説明Set objSHELL = CreateObject("Shell.Application")後、For Each objWINDOW In objSHELL.Windows でループさせ、objWINDOW.Topと.Leftを表示した簡単なテストです動画解説やテスト結果www.youtube.com 動画元: テスト結果 .Top .Left のテスト - YouTube 動画区分・リンク 三流君 テスト結果 Ken3

ページを表示させ、指定位置にスクロールさせるテスト

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://oct2011.s2008day.com/test.html" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy…

BODYタグの中身を書き換える .InnerHTMLに代入

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://oct2011.s2008day.com/test.html" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy…

ページを表示させ、BODYタグの中身を表示

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://oct2011.s2008day.com/test.html" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy…

QA20110912 アウトルック 終了時の未送信確認メッセージを何とかしたい

…et oApp = CreateObject("Outlook.Application") Set myNameSpace = oApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定 myFolder.Display '表示 いつものクセで .Visible = True とやりがちだけど 'メールアイテムの作成 Set objMAIL = oApp.Creat…

暗証番号入力 confirm確認メッセージを無効にする JRA入出金メニュー

…bjShell = CreateObject("Shell.Application") Set objIE = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then If objWindow.document.…

name=MENU1 の ボタンを押す JRA入出金メニュー 入金指示

…bjShell = CreateObject("Shell.Application") Set objIE_I = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then If InStr(objWindow.d…

リンク先を調べる Aタグをチェックする

…bjShell = CreateObject("Shell.Application") Set objIE = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then If objWindow.document.…

VBS から 表示されているIEを探してみる

…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する MsgBox "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" T…

XXXXさんへ 起動済みIE、操作済み、既存の表示済みWEB画面を操作したい

…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する MsgBox "タイプは:" & TypeName(objWindow.document) Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら…

ボタンに割り当てられたJavaScriptを実行したい。

…t objIE = CreateObject("InternetExplorer.application") objIE.Top = 100 objIE.Left = 100 objIE.Width = 1024 objIE.Toolbar = False objIE.Visible = True 'テストで5050jpのルーレットを表示する 'ページを開く(.Navigateで表示する。) objIE.Navigate "http://www.5050.jp/game/ro…

楽天ツールバー使用時の自動ログイン処理をVBSでテスト/デバッグ

…= WScript.CreateObject("InternetExplorer.Application") 'オブジェクト作成 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 'ここでは、楽天のログインページを直接呼びます objIE.Navigate "https://websearch.rakuten.co.jp/login.html?tool_id=1" 'ページの表示完了を待ちます。 While o…

VBS で IEを使用して楽天市場にログインしてみた

…= WScript.CreateObject("InternetExplorer.Application") 'オブジェクト作成 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 'ここでは、楽天のログインページを直接呼びます objIE.Navigate "https://www.rakuten.co.jp/myrakuten/login.html" 'ページの表示完了を待ちます。 While objIE.R…

JRA IPATログインを例題に VBS で 新しいウインドウの処理を実験

…= WScript.CreateObject("Shell.Application") Set objNewIE = objShell.Windows(objShell.Windows.Count - 1) '最後のウインドウと決めつけセット Set objShell = Nothing 'オブジェクト変数解放で、手抜きで作ってみました。3:07〜 値をセットする新しいウインドウを(objNewIEに)取得したら、 データをセットします '名前が i,p,r にそれぞれセット…

VBA IE操作 API ShowWindowで最大化 と .FullScreen フルスクリーン表示 違いなど

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 objIE.GoHome 'ページをホームに移動する動作、メソッド objIE.FullScreen = True '画面いっぱいに表示されるので注意。 '↑意図したフルスクリーンとちょっと違うかなぁ。 'まぁ、これは、これで使う場合もあるかも。一度使ってみ…

VBSから起動したIEでイベント処理するには?

…= WScript.CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 に1つ識別子を追加します。 Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_") 'オブジェクトを作成します。 ↑IE_とオブジェクト作成時に 2番目のパラメータとして任意の名前を追加します。 ※IE_だと、味気ないけど。あとは、IE_XXXXXX …

Ken3 ホームページ 目次

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



Googleを使用して検索する

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

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


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

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

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


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