三流君 ken3のmemo置き場

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

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

CreateObject の検索結果:

.VBSの起動場所 は WScript.Shellの.CurrentDirectoryで?

vbs

…ファイルを読みたかったり、 そんな処理で、起動場所がほしかったので、 [:title=VBS 起動場所] で検索してみました。すると、 WScript.Shell の .CurrentDirectory で 取得できそうです。test.vbs WScript.Echo "テスト" Set ws = WScript.CreateObject("WScript.Shell") WScript.Echo ws.CurrentDirectoryんっ?なんか違和感あるけど、まぁいっか。

テスト JRA IPAT 2.起動した情報メニューを操作する

…さい。IPAT情報メインメニュー を同じように探します。また、馬鹿の一つ覚えで CreateObject("Shell.Application") から探ってみました。 おまけで、みつけたIEのFORMタグを表示してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 2.起動した情報メニューを操作する - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS

テスト JRA IPAT 1.1 情報メニューを探す

…bjShell = CreateObject("Shell.Application")ここから、 For Each objWindow In objShell.Windows で回して、 TypeNameでHTMLDocumentか判断、 If TypeName(objWindow.document) = "HTMLDocument" Then さらに、 URLで判断(見つけてみました。)動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT …

XXXXXさんへ Outlook指定したサブ フォルダー名のメールをExcelで取得したい

…et oApp = CreateObject("Outlook.Application") 'データの表示エリアをクリアする Rows("10:9999").Delete Shift:=xlUp '10行目から削除する Range("a1").Select ' NameSpace オブジェクトへの参照を取得します。 Set oNamespace = oApp.GetNamespace("MAPI") ' 既定のフォルダへの参照を取得し、フォルダを表示します。 Set oFol…

XXXXXさんへ ExcelでOutlookの受信メールを読むサンプル

…et oApp = CreateObject("Outlook.Application") 'データの表示エリアをクリアする Rows("10:9999").Delete Shift:=xlUp '10行目から削除する Range("a1").Select ' NameSpace オブジェクトへの参照を取得します。 Set oNamespace = oApp.GetNamespace("MAPI") ' 既定のフォルダへの参照を取得し、フォルダを表示します。 Set oFol…

JRA IPATで情報を取得 8.2 開催地・競馬場単位でループさせる

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

JRA IPATで情報を取得 8.1 1Rから最後まで 次のレースを選択 繰り返す

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

JRA IPATで情報を取得 7.3 単勝のオッズをカンマ区切りで出力してみた

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

JRA IPATで情報を取得 7.2 テーブルの左上のデータで確認する 左上が枠番のテーブルを探す

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

JRA IPATで情報を取得 7.1 テーブルのソースを探る

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

3.開催地を選択する SELECTタグの競馬場を選択し決定を押す

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

JRA IPATで情報を取得 2.起動した情報メニュー(新しいIE)を操作する

…、馬鹿の一つ覚えで CreateObject("Shell.Application") から探ってみました。 おまけで、みつけたIEのFORMタグを表示してみました。操作動画: http://www.youtube.com/watch?v=dwNQaLV3xD0 www.youtube.comコード 'またまた、新しく起動した IPAT情報メインメニュー を 探す 'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Appl…

JRA IPATで情報を取得 1.1 情報メニューを探す

…bjShell = CreateObject("Shell.Application")ここから、 For Each objWindow In objShell.Windows で回して、 TypeNameでHTMLDocumentか判断、 If TypeName(objWindow.document) = "HTMLDocument" Then さらに、 URLで判断(見つけてみました。) If objWindow.document.URL = "https://www.ip…

VBA マクロ Outlook2007で作成したコードをExcel2007で使う

…)と言っても、 参照設定に □MicroSoft Outlook を追加して、 CreateObject("Outlook.Application") しただけです。動画解説やテスト結果www.youtube.com 動画元: VBA マクロ Outlook2007で作成したコードをExcel2007で使う - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 VBA マクロ Outlook2007 Excel2007 参照設定 テスト 試行錯誤 ByVal

Outlook2007で作成したサンプルをExcel2007へ

…ok を追加して、 CreateObject("Outlook.Application") しただけです。怪しい実演動画参照設定を行い、Excelでコードを走らせた動画です。 ※蛇足で、後半コードを修正してハマってますが、無視してください・・・いつもの右往左往・酔っ払い解説 VBA マクロ Outlook2007で作成したコードをExcel2007で使う www.youtube.com↑と合わせて、下のコードを見てください↓作成したコード参照設定後、 Set oApp = C…

回答下書き VBSからOutlook 連絡先を探す で いいなら....

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

XXXXXさんへ Outlook VBA 連絡先 更新方法 と アドレスでITEMを検索する方法

…et oApp = CreateObject("Outlook.Application") '.GetNamespace("MAPI") Set myNameSpace = oApp.GetNameSpace("MAPI") '作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display) Set myFolder = myNameSpace.GetDefaultFolder(10) '連絡先 '----- 'Set objFolder = objS…

XXXXXさんへ IEのタグ表示は、外側を含めた .OuterHTML で 確認すると便利です。

…t objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://sec-sso.click-sec.com/loginweb/" '画面表示待ち While objIE.readyState <> 4 'READYSTATE_COMPLETE = 4 While objIE.Busy = True DoEvents '特に何もしないで.Bus…

XXXXXさんへ Outlook VBA メニュー・コマンド から すべて送受信を探し 実行

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

VBS から Outlook 起動 CreateObjectで作成

… と言っても単純に CreateObject("Outlook.Application") で作成しただけです。 http://www.ken3.org/cgi-bin/group/vba_outlook.asp で 少し三流解説(自分脳内語の垂れ流し)を行っているので、よかったら見に来てください。動画解説やテスト結果www.youtube.com 動画元: VBS から Outlook 起動 CreateObjectで作成 - YouTube 動画区分・リンク 三流君 VB…

XXXXさんへ IEで開いているexcel処理のサンプルは

…で開きたいのですが、CreateObjectではなく、自分のwindowをコピーし、 >そのwindowでリンク先を開きたいのですが、可能なものでしょうか? 私も >IEで開いているexcel を処理するのは 詳しくはわからないのですが、探しにくいと評判の過去記事を自分で探してみると(本人でも探しにくかった(笑)) 似ている処理・テストが、 ここ ○○さんへ サーバー上/IE上のExcelファイルからデータを抜き取る方法 途中まで、、、 - ken3memo (三流君) ht…

XXXXさんへ 参照設定した変数 As HTMLIFrame を使ってください。

…t objIE = CreateObject("InternetExplorer.application") objIE.Top = 250 objIE.Left = 250 objIE.Width = 800 objIE.Height = 400 objIE.Visible = True 'ページを開く(.Navigateで表示する。) objIE.Navigate "http://dec2011.top1-12.info/test0120.html" '読み込み完了となる…

STOPで止めてからウォッチ式でオブジェクト変数の中身を確認してみた

…t objIE = CreateObject("InternetExplorer.application") objIE.Top = 250 objIE.Left = 250 objIE.Width = 800 objIE.Height = 400 objIE.Visible = True 'ページを開く(.Navigateで表示する。) objIE.Navigate "http://dec2011.top1-12.info/test0120.html" '読み込み完了となる…

参照設定してAS HTMLIFrameからインラインフレームの.srcを探ってみた

…t objIE = CreateObject("InternetExplorer.application") objIE.Top = 250 objIE.Left = 250 objIE.Width = 800 objIE.Height = 400 objIE.Visible = True 'ページを開く(.Navigateで表示する。) objIE.Navigate "http://dec2011.top1-12.info/test0120.html" '読み込み完了となる…

2011年 www.ken3.org アクセス数

… Excel 連携 CreateObject("Excel.Application")でExcelを操作する記事が3位に入り、 なぜか、不明が4位。※アクセス失敗が4位? それともクッキーやjavascript Offなどで見に来たのかなぁ? 三流君VBAでIEのフォーム操作 Document.Formsを操作する 5位は、IEのフォームにデータをセットする記事です。 三流君VBA:AccessにExcelのシートをインポートする 6位はExcelのシートをAccessにイン…

VBS IE操作 表示されているIEをURLを条件に探す

…てみたいと思います。CreateObject Shell.Application で シェルのオブジェクトを作成して、 For Each objWindow In objShell.Windows で 1つ1つ取り出して、 TypeName(objWindow.document) で ドキュメントのタイプを表示させてみました。TypeName(objWindow.document) が HTMLDocument だったら、 MsgBox objWindow.document.…

VBS VBScriptを使って JRA IPAT の ページを表示する

…626/1309072052 を みてください ・IEの起動 ・表示待ち ・データのセットをテストしてみた。動画解説やテスト結果www.youtube.com 動画元: VBS VBScriptを使って JRA IPAT の ページを表示する - YouTube 動画区分・リンク 20110626 三流君 IE操作 VBS VBScript JRA IPAT CreateObject InternetExplorer.Application getElementsByName

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

…et oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property On Error Resume Next oApp.UserControl = True動画解説やテスト結果www.youtube.com 動画元: Access2010 から Excelを開く方法 Access2003のコードを貼り付けテスト - YouTube 動…

OutlookのVBAをVBSで動かしたい CreateObject Outlook.Application

…ttp://d.hatena.ne.jp/ken3memo/20101018/1287345173 を見てください。動画解説やテスト結果www.youtube.com 動画元: OutlookのVBAをVBSで動かしたい CreateObject Outlook.Application - YouTube 動画区分・リンク 三流君 Outlook VBA VBS CreateObject Outlook.Application olFolderContacts イミディエイト

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 テスト動画

Ken3 ホームページ 目次

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



Googleを使用して検索する

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

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


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

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

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


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