CreateObject の検索結果:
…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows Debug.Print "タイトル:" & objWindow.document.Title Debug.Print "URL:" & objWindow.document.URL Next Set objShell = Nothing End Sub または、 6/5 VBA IE…
…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…
…ファイルを読みたかったり、 そんな処理で、起動場所がほしかったので、 [:title=VBS 起動場所] で検索してみました。すると、 WScript.Shell の .CurrentDirectory で 取得できそうです。test.vbs WScript.Echo "テスト" Set ws = WScript.CreateObject("WScript.Shell") WScript.Echo ws.CurrentDirectoryんっ？なんか違和感あるけど、まぁいっか。
…さい。IPAT情報メインメニュー を同じように探します。また、馬鹿の一つ覚えで CreateObject("Shell.Application") から探ってみました。 おまけで、みつけたIEのFORMタグを表示してみました。動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT 2.起動した情報メニューを操作する - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 JRA IPAT 情報オッズ処理 テスト 試行錯誤 VBS
…bjShell = CreateObject("Shell.Application")ここから、 For Each objWindow In objShell.Windows で回して、 TypeNameでHTMLDocumentか判断、 If TypeName(objWindow.document) = "HTMLDocument" Then さらに、 URLで判断(見つけてみました。)動画解説やテスト結果www.youtube.com 動画元: テスト JRA IPAT …
…et oApp = CreateObject("Outlook.Application") 'データの表示エリアをクリアする Rows("10:9999").Delete Shift:=xlUp '10行目から削除する Range("a1").Select ' NameSpace オブジェクトへの参照を取得します。 Set oNamespace = oApp.GetNamespace("MAPI") ' 既定のフォルダへの参照を取得し、フォルダを表示します。 Set oFol…
…et oApp = CreateObject("Outlook.Application") 'データの表示エリアをクリアする Rows("10:9999").Delete Shift:=xlUp '10行目から削除する Range("a1").Select ' NameSpace オブジェクトへの参照を取得します。 Set oNamespace = oApp.GetNamespace("MAPI") ' 既定のフォルダへの参照を取得し、フォルダを表示します。 Set oFol…
…bjShell = CreateObject("Shell.Application") Set objRET = Nothing 'リターン値を初期化する 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then If InStr…
…bjShell = CreateObject("Shell.Application") Set objRET = Nothing 'リターン値を初期化する 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then If InStr…
…bjShell = CreateObject("Shell.Application") Set objIE = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then 'URLをチェックする(アドレスを探す) I…
…bjShell = CreateObject("Shell.Application") Set objIE = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then 'URLをチェックする(アドレスを探す) I…
…bjShell = CreateObject("Shell.Application") Set objIE = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then 'URLをチェックする(アドレスを探す) I…
…bjShell = CreateObject("Shell.Application") Set objIE = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then If objWindow.document.…
…、馬鹿の一つ覚えで CreateObject("Shell.Application") から探ってみました。 おまけで、みつけたIEのFORMタグを表示してみました。操作動画: http://www.youtube.com/watch?v=dwNQaLV3xD0 www.youtube.comコード 'またまた、新しく起動した IPAT情報メインメニュー を 探す 'シェルのオブジェクトを作成する Set objShell = CreateObject("Shell.Appl…
…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…
…)と言っても、 参照設定に □MicroSoft Outlook を追加して、 CreateObject("Outlook.Application") しただけです。動画解説やテスト結果www.youtube.com 動画元: VBA マクロ Outlook2007で作成したコードをExcel2007で使う - YouTube 動画区分でURL:ken3内のリンクを探す 三流君 VBA マクロ Outlook2007 Excel2007 参照設定 テスト 試行錯誤 ByVal
…ok を追加して、 CreateObject("Outlook.Application") しただけです。怪しい実演動画参照設定を行い、Excelでコードを走らせた動画です。 ※蛇足で、後半コードを修正してハマってますが、無視してください・・・いつもの右往左往・酔っ払い解説 VBA マクロ Outlook2007で作成したコードをExcel2007で使う www.youtube.com↑と合わせて、下のコードを見てください↓作成したコード参照設定後、 Set oApp = C…
…utlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を Set oApp = CreateObject("Outlook.Application") '呪文１ 名前空間 の 指定 と言っても、.GetNamespace("MAPI")しただけ Set oNameSpace = oApp.GetNamespace("MAPI") 'olFolderContacts 10 連絡先フォルダ '次は作業フォルダーの指定(.GetDefaultFolde…
…et oApp = CreateObject("Outlook.Application") '.GetNamespace("MAPI") Set myNameSpace = oApp.GetNameSpace("MAPI") '作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display) Set myFolder = myNameSpace.GetDefaultFolder(10) '連絡先 '----- 'Set objFolder = objS…
…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…
…utlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を Set oApp = CreateObject("Outlook.Application") '呪文１ 名前空間 の 指定 と言っても、.GetNamespace("MAPI")しただけ Set myNameSpace = oApp.GetNamespace("MAPI") '次は作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display) Set myFold…
… と言っても単純に CreateObject("Outlook.Application") で作成しただけです。 http://www.ken3.org/cgi-bin/group/vba_outlook.asp で 少し三流解説(自分脳内語の垂れ流し)を行っているので、よかったら見に来てください。動画解説やテスト結果www.youtube.com 動画元: VBS から Outlook 起動 CreateObjectで作成 - YouTube 動画区分・リンク 三流君 VB…
…で開きたいのですが、CreateObjectではなく、自分のwindowをコピーし、 >そのwindowでリンク先を開きたいのですが、可能なものでしょうか？ 私も >IEで開いているexcel を処理するのは 詳しくはわからないのですが、探しにくいと評判の過去記事を自分で探してみると(本人でも探しにくかった(笑)) 似ている処理・テストが、 ここ ○○さんへ サーバー上／IE上のExcelファイルからデータを抜き取る方法 途中まで、、、 - ken3memo (三流君) ht…
…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" '読み込み完了となる…
…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" '読み込み完了となる…
…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" '読み込み完了となる…
… Excel 連携 CreateObject("Excel.Application")でExcelを操作する記事が３位に入り、 なぜか、不明が４位。※アクセス失敗が４位？ それともクッキーやjavascript Offなどで見に来たのかなぁ？ 三流君VBAでIEのフォーム操作 Document.Formsを操作する 5位は、IEのフォームにデータをセットする記事です。 三流君VBA:AccessにExcelのシートをインポートする 6位はExcelのシートをAccessにイン…
…てみたいと思います。CreateObject Shell.Application で シェルのオブジェクトを作成して、 For Each objWindow In objShell.Windows で 1つ1つ取り出して、 TypeName(objWindow.document) で ドキュメントのタイプを表示させてみました。TypeName(objWindow.document) が HTMLDocument だったら、 MsgBox objWindow.document.…
…626/1309072052 を みてください ・IEの起動 ・表示待ち ・データのセットをテストしてみた。動画解説やテスト結果www.youtube.com 動画元: VBS VBScriptを使って JRA IPAT の ページを表示する - YouTube 動画区分・リンク 20110626 三流君 IE操作 VBS VBScript JRA IPAT CreateObject InternetExplorer.Application getElementsByName
…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 動…
