CreateObject の検索結果:
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://oct2011.s2008day.com/test.html" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://oct2011.s2008day.com/test.html" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy…
…et oApp = CreateObject("Outlook.Application") Set myNameSpace = oApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定 myFolder.Display '表示 いつものクセで .Visible = True とやりがちだけど 'メールアイテムの作成 Set objMAIL = oApp.Creat…
…bjShell = CreateObject("Shell.Application") Set objIE = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then If objWindow.document.…
…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…
…bjShell = CreateObject("Shell.Application") Set objIE = Nothing 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" Then If objWindow.document.…
…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する MsgBox "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocument" T…
…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する MsgBox "タイプは:" & TypeName(objWindow.document) Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら…
…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…
…= WScript.CreateObject("InternetExplorer.Application") 'オブジェクト作成 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 'ここでは、楽天のログインページを直接呼びます objIE.Navigate "https://websearch.rakuten.co.jp/login.html?tool_id=1" 'ページの表示完了を待ちます。 While o…
…= WScript.CreateObject("InternetExplorer.Application") 'オブジェクト作成 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 'ここでは、楽天のログインページを直接呼びます objIE.Navigate "https://www.rakuten.co.jp/myrakuten/login.html" 'ページの表示完了を待ちます。 While objIE.R…
…= WScript.CreateObject("Shell.Application") Set objNewIE = objShell.Windows(objShell.Windows.Count - 1) '最後のウインドウと決めつけセット Set objShell = Nothing 'オブジェクト変数解放で、手抜きで作ってみました。3:07〜 値をセットする新しいウインドウを(objNewIEに)取得したら、 データをセットします '名前が i,p,r にそれぞれセット…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 objIE.GoHome 'ページをホームに移動する動作、メソッド objIE.FullScreen = True '画面いっぱいに表示されるので注意。 '↑意図したフルスクリーンとちょっと違うかなぁ。 'まぁ、これは、これで使う場合もあるかも。一度使ってみ…
…= WScript.CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 に1つ識別子を追加します。 Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_") 'オブジェクトを作成します。 ↑IE_とオブジェクト作成時に 2番目のパラメータとして任意の名前を追加します。 ※IE_だと、味気ないけど。あとは、IE_XXXXXX …
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.cyberagentfx.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.google.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.Rea…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.R…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.R…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.R…
…t objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True FLG = True 'フラグをON End Sub Sub GoURL(sURL As String) objIE.Navigate sURL 'ページを移動する End Sub Private Sub objIE_DocumentComplete(ByVal pDisp As Object, URL As Variant)…
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://blogs.yahoo.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.Re…
…et oApp = CreateObject("Outlook.Application") Set myNameSpace = oApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定 myFolder.Display '表示 いつものクセで .Visible = True とやりがちだけど 'メールアイテムの作成 Set objMAIL = oApp.Creat…
…bjEXCEL = CreateObject("Excel.Application") 'オブジェクトの作成 objEXCEL.Visible = True 'Excelを見えるようにする objEXCEL.Workbooks.Add 'Excelのブックを新規に作成(追加) 'Excelのシートを追加、シート名を氏名に変更する objEXCEL.Sheets.Add 'シートを追加する 'レコードセットを開く(QDATA) rs.Open "QDATA", CurrentP…
…w.youtube.com/watch?v=mOZqePSW0kY www.youtube.comWindows Vista の IE7保護モードだと、 Set objIE = CreateObject("InternetExplorer.application") で失敗する、そんなテスト動画です。続きの対策 手前味噌の方法は http://www.ken3.org/cgi-bin/group/vba_ie7.asp で逃げ手を考えてみましたがイマイチしっくりきてません。
http://www.youtube.com/watch?v=IMDbGEOXp_w www.youtube.comSet objIE = CreateObject InternetExplorer.application の テストです 解説は http://www.ken3.org/cgi-bin/group/vba_ie.asp です。
…et oApp = CreateObject("Excel.Application") > oApp.Visible = True > > On Error Resume Next > oApp.UserControl = True > > oApp.Workbooks.Open FileName:= _ > "C:\Documents and Settings\xxxxx\デスクトップ\等級基準表検討資料5級.xls" > > oApp.Range("所属").Value …
…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://d.hatena.ne.jp/ken3memo/20110102/1293921661" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 …
…手前味噌解説の OutlookのVBAをVBSで動かしたい CreateObject と olXXXXの定数を調べる http://d.hatena.ne.jp/ken3memo/20101018/1287345173 も見てください。)終わりのあいさつセットアッププログラムで自動に参照設定できたら苦労しないんだけど、 たまにバージョン違いや参照設定が外れていて、 受け取ったツールが動かない時は、自分で貼りなおしてみては?何かの参考となれば幸いです 三流プログラマー Ken3
…et oApp = CreateObject("Outlook.Application") Set myNameSpace = oApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定 myFolder.Display '表示 いつものクセで .Visible = True とやりがちだけど 'メールアイテムの作成 Set objMAIL = oApp.Creat…
…jACCESS = CreateObject("Access.Application") objACCESS.Visible = True 'Accessを表示ONあたりまえか objACCESS.UserControl = True 'Excelで操作するんだけど、ユーザーのTrueにしておく 'AccessのMDBを開く 'もちろん、次はファイルを開かないとね ファイル名 フルパスを渡す objACCESS.OpenCurrentDatabase "D:\vba\QA10…