- 締切済み
VBからInternet Explorer
こんにちは。 VBから、現在開いているInternet Explorerのウィンドウに特定のページを表示させることはできないでしょうか。 Dim ObjIE As Object Set ObjIE = CreateObject("InternetExplorer.Application") ObjIE.Navigate "なんたらかんたら" ObjIE.Visible = True でいったん、ブラウザを新規に開きました。いま作ったObjIEに別のページを開くときは、Set ObjIE = Notingを実行せずにObjIE.Navigateでまた別のページを指定すればいいのはわかったのですが、その前にユーザがIEの×ボタンを押してブラウザを閉じてしまった場合、ObjIEがないのでObjIE.Navigateが実行できず、エラーが出てしまいます。 ObjIEがまだ開いているときはそこに開き、ObjIEが閉じられてしまったときは新規に開くには、どうしたらいいでしょうか。 ObjIEが閉じられたかどうか参照する方法があるのかどうかがわかりません。 知っている方がいらしゃいましたらよろしくお願いします。
- crooked_man
- お礼率4% (7/143)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- 1050 円（@1050YEN）
- ベストアンサー率69% (477/687)
http://okweb.jp/kotaeru.php3?q=417218 参考になるでしょうか？
関連するQ&A
- ＩＥではなくファイアフォックスを指定することは
ＶＢＡでブラウザを開く場合、 ＩＥではなくファイアフォックスを指定することは可能ですか？ 既定のブラウザはＩＥにしています。 Sub test1() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://www.ocn.ne.jp/" objIE.Visible = True Set objIE = Nothing End Sub の Set objIE = CreateObject("InternetExplorer.Application") の部分を Set objIE = CreateObject("firefox.exe") に変えてみたら、 【ActiveX コンポーネントはオブジェクトを作成できません。(Error 429)】 になりました。
- ベストアンサー
- Visual Basic
- NewはCreateObjectと同じ意味？
Sub test01() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True End Sub Sub test02() Dim objIE As New InternetExplorer objIE.Visible = True End Sub この二つのコードを比較した場合、 Dim objIE As New InternetExplorer で宣言すれば、 Set objIE = CreateObject("InternetExplorer.application") がなくても、 objIE.Visible = True をしてみるとブラウザが立ち上がっているのですが、 これは NewはCreateObjectと同じ意味という事でしょうか？
- ベストアンサー
- Excel（エクセル）
- 複数のタブを開きたい ＩＥ
IE９を使っています。 画像のようにタブを二つ開くにはどうすればいいでしょうか？ Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub だと一つのタブしか開けません。 Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub にしても Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" objIE.Navigate2 "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub にしても1つのタブしか開けないです。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAでIE操作をするサンプル
VBAでIE操作をするサンプルをネットでいくつか見ているのですが Sub Sample1() Dim objShell As Object Dim objIE As New InternetExplorer Set objShell = CreateObject("Shell.Application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing Set objShell = Nothing End Sub Sub Sample2() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub ではどちらを使った方がいいのでしょうか？ 圧倒的にSample2の方がネットでは多いのですが Sample1のやり方もあることを知りました。 Sample1の方法でブラウザを開くメリットはあるのでしょうか？
- ベストアンサー
- Visual Basic
- インターネットで調べてVBSで下のようなものを作ってみました。
インターネットで調べてVBSで下のようなものを作ってみました。 やりたいことは、IEを起動して複数のサイトを複数のタブで表示 したいのですが、サイトの種類分IEも起動してしまいます。 考えているようなことはできないのでしょうか。 ＝＝＝＝＝＝＝＝ここから下です＝＝＝＝＝＝＝＝ Option Explicit Dim objIE Dim objShell 'Shell.Application Set objShell = CreateObject("Shell.Application") Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'IEウィンドウを表示 objIE.Navigate2 "http://www.okwave.jp/" Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'IEウィンドウを表示 objIE.Navigate2 "http://www.google.co.jp/" Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'IEウィンドウを表示 objIE.Navigate2 "http://www.yahoo.co.jp/" ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- NavigateとNavigate2の違いは？
Sub Sample_Navigate() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub Sub Sample_Navigate2() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate2 "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub 上記二つのサンプルをテストしてみましたが違いが判りません。 Navigate2のヘルプを見ようとしても キーワードが見つかりません。が見つかりませんになってしまいます。 この二つのメソッドの違いを教えていただけますか？ オブジェクトブラウザの情報だと Navigateは Sub Navigate(URL As String, [Flags], [TargetFrameName], [PostData], [Headers]) SHDocVw.InternetExplorer のメンバー Navigates to a URL or file. Navigate2は Sub Navigate2(URL, [Flags], [TargetFrameName], [PostData], [Headers]) SHDocVw.InternetExplorer のメンバー Navigates to a URL or file or pidl. と書いてありました。 引数の数は一緒でした。
- ベストアンサー
- オフィス系ソフト
- VBAでIEを開いて最大化したい。
ＶＢＡでIEを開くことはできたのですがいつも同じサイズでブラウザが開きます。 Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True ObjIE.Navigate "https://www" 多分この後くらいに最大化するコードを書くと思うのですが 教えてください。 （ActiveWindow.WindowState = xlMaximizedのような？） よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- objIE 2個目のサイズが適用されません。
VBAです。 Dim objShell As Object Dim objIE As New InternetExplorer Const READYSTATE_COMPLETE As Long = 4 Sub test1() Set objShell = CreateObject("Shell.Application") objIE.Visible = True objIE.Top = 0 objIE.Left = 0 objIE.Width = 100 objIE.Height = 100 objIE.navigate "http://www.goo.ne.jp/" objIE.Navigate2 "http://www.goo.ne.jp/", 2048 Set objIE = Nothing Set objShell = Nothing Set objShell = CreateObject("Shell.Application") objIE.Visible = True objIE.navigate "http://www.goo.ne.jp/" objIE.Navigate2 "http://www.goo.ne.jp/", 2048 'できない objIE.Top = 20 objIE.Left = 20 objIE.Width = 100 objIE.Height = 100 Set objIE = Nothing Set objShell = Nothing End Sub のように二つのブラウザを立ち上げて サイズを変えたいのですが 2個目のサイズが適用されません。 エラーにもなりません。 なぜでしょうか?
- ベストアンサー
- オフィス系ソフト
- VBScriptでオートパイロットプログラムを作ったのですが
環境は、VB 6.0 SP5 です。 以下のようにVBでプログラミングしたんですが（VBScript含む）、続けて違うIDでログインしようとすると、該当ページが前のIDでログインしたままになっていて、動作が不安定です。普通にIEを立ち上げるてログインした場合、2回目に立ち上げた状態は、ログイン前のまっさらなページが表示されますよね。 何が問題なのでしょう？ ご教授願えないでしょうか。 Dim WshShell As Object Dim objIe As Object Set WshShell = CreateObject("WScript.Shell") Set objIe = CreateObject ("InternetExplorer.Application") objIe.Navigate("該当ページのURL") objIe.Visible = True WshShell.AppActivate (objIe) ログイン処理・・・ 同じ事を繰り返す・・・
- 締切済み
- Visual Basic
- ＶＢＡでＩＥ操作ができない エラーになる
vista+オフィス２００７です。 エクセルで --------------------------------------------------------- Sub ie_test() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "http://www.google.co.jp/" End Sub --------------------------------------------------------- を実行したいのですができません。 Set objIE = CreateObject("InternetExplorer.Application") の部分で、しばらく固まり、その後 「実行時エラー'-2147467259(80004005)': オートメーションエラーです。 エラーを特定できません」 と表示されてしまいます。 前にvista+オフィス２００３の時は 上記のコードで問題なく動作しました。 ２００７でも動く方法を教えてください。ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 ObjIE.Windowsの線で調べてみれば、答えが見つかりそうです。ちょっと、いろいろと調べてみます！ たいへん参考になりました。