InternetExplorer の検索結果:
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.cyberagentfx.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> …
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.google.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間…
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4…
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4…
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4…
… objIE As InternetExplorer 'Excelシートに書いたコードでイベントを拾う http://d.hatena.ne.jp/ken3memo/20100114/1263452016 で、シートのコードでWithEventsを使って、IEのイベントを拾ってました。このコードを クラスモジュールに書いて、使ってみたいと思います。/vba/zip/IE_Class_TEST.zip ↑テストファイル(Excel2007 Vista IE9 でテスト)を使いな…
… objIE As InternetExplorer 'Excelシートに書いたコードでイベントを拾う http://d.hatena.ne.jp/ken3memo/20100114/1263452016 が動かないとクレームのメールをいただく。読者から、言われたように、そのままシートにコードを貼っても動きませんでした。 参照設定で、 □ Microsoft Internet Controls (※↑がもし見つからない場合は、Microsoft Browser Helpers…
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://blogs.yahoo.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の…
…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 です。
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://d.hatena.ne.jp/ken3memo/20110102/1293921661" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy …
…bject 'AS InternetExplorer Dim objINPUT As Object '<INPUT 〜 のタグ Dim strHTML As String 'HTMLを入れて、画像を探す ワーク Dim i As Integer 'カウンター Dim n As Integer '上からn番目のカウンター Application.WindowState = xlMinimized 'Excelを最小化 'INPUTのタグを抜き出すテスト 'IEのオブジェクトを作…
…teObject("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 を見て笑ってください。カテゴリ: 科学と技術タグ: …
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.Top = 100 '左上 上位置 objIE.Left = 100 '左上 左位置 '変換元の日本語が無くなるまでループ Dim Wait_Time As Date '秒数を計算するため Dim yCNT As In…
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.google.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間…
…teObject("InternetExplorer.application") 'IEのオブジェクトを作る >という処理をしたあと、そのobjIEを最小化したいのですが、適切なコマンドが見当たりません。 VB API ウインドウ最小化 で検索すると、CloseWindowが見つかります。 で、その関数を呼ぶだけでOKかなぁ。。。 ※単純に新規にCreateObjectで起動したIEの.hWndの値を渡しただけです。 Option Explicit '標準モジュール 頭で忘れ…
…teObject("InternetExplorer.application") objIE.Visible = True '見えるようにする(お約束) '文字列で指定したURLに飛ぶ objIE.Navigate "http://www.ken3.org/cgi-bin/test/test068.html" '表示終了まで待つ ※表示待ちができていない。 Do While objIE.Busy = True '何もしないループ(笑) DoEvents Loop '項目名を指…
…teObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定したURLを開く Dim strURL As String 'テストのHTML置き場 'strURL = "e:\work\index.html" 'ローカルでテスト strURL = "http://ken3-info.blog.ocn.ne.jp/test/201…
…teObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定したURLを開く Dim strURL As String 'テストのHTML置き場 strURL = "http://ken3-info.blog.ocn.ne.jp/objie/2010/04/0428_javascript.html" 'テストページ objIE…
はてなの 質問 http://q.hatena.ne.jp/1266074604 にどこかで見たURLが載っていたので、質問に答えてみた。(少しふざけてますが、サンプルは真剣に作りました。。。)サンプルプログラム http://www.ken3.org/vba/backno/vba097.html その人三流で情報のまとめ方がなっていないですよね今回押したいボタンには nameとかidが付いていないんですよね。 >>|html| ここ |
… objIE As InternetExplorer 'イベント拾いたいので Dim WithEvents objNEW_IE As InternetExplorer 'でオブジェクト変数を定義して_NewWindow2で新規IEを作成、 Private Sub testMAIN() '初めの頭は普通に代入。 Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.…
…teObject("InternetExplorer.application") 'IEのオブジェクトを作る ページを表示 objIE.navigate "URL文字列" '文字列でURLを渡す 全選択(CTRL+A) objIE.ExecWB 17, 0 'OLECMDID_SELECTALL = 17 全てを選択 コピー(CTRL+C) objIE.ExecWB 12, 0 'OLECMDID_COPY = 12 コピー'Excelに貼り付け Range("A1").Se…
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.google.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間…
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.yahoo.co.jp/" '.Navigate メソッドで Yahooを表示する。 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Bus…
…teObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定した文字列のURLを開く objIE.Navigate "http://www.cmegroup.com/trading/equity-index/international-index/nikkei-225-dollar_quotes_settlements_fut…
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 End If objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.kosho.or.jp/public/book/detailsearch.do" '.Navigate メソッドで表示する。 '↑上記のページの表示が完了するまで待ちます。 While…
…teObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.kosho.or.jp/public/book/detailsearch.do" '.Navigate メソッドで表示する。 '↑上記のページの表示が完了するまで待ちます。 While objIE.…
…teObject("InternetExplorer.applicati on") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束)この三流サンプルを見た被害者が(読者が)他の掲示板などでご迷惑をかけているみたい なので、 正式な方法?行儀のいいキレイな参照設定する方法、操作を動画で説明します。※三流なゴミコードをアップしてネットのみなさんにご迷惑をおかけしてスミマセンでし た。。。 IEの操作を http://www.ken…
… objIE As InternetExplorer '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.Top = 100 '左上 上位置 objIE.Left = 100 '左上 左位置 '変換元の日本語が無くな…
… objIE As InternetExplorer '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.Top = 100 '左上 上位置 objIE.Left = 100 '左上 左位置 '変換元の日本語が無くな…