たびたび質問しております。
すいません。
下記のURLで、新しいウィンドウを作成して、
テキストに書いてあるURLに飛ぶような説明がありますが、これを新しいウィンドウではなく、現在、アクティブのIEのウィンドウにURLを飛ばしたいのですが、
どのようにすればよいでしょうか?
http://homepage1.nifty.com/MADIA/vb/vb_bbs/20031 …
No.1ベストアンサー
- 回答日時:
こんにちは。
KenKen_SP です。Shell の Windows コレクションをループさせ、既に開かれた IE を調べてます。
ただし、この方法ではローカルアドレスのものも含まれてしまいますので、
LocationURL を調べて判定してます。
また、複数の IE を立ち上げている場合が考えられますが、とりあえず、最初に
見つけた IE でループを抜けてます。
もっと良い方法がありそうですが、、
あと、IE が開かれていない場合の処理を追加する必要がありますね。
Dim SH As Object
Dim IE As Object
Const cnsURL = "http://oshiete.goo.ne.jp/"
Set SH = CreateObject("Shell.Application")
For Each IE In SH.Windows()
If InStr(IE.LocationURL, "http") > 0 Then
IE.Navigate cnsURL
Exit For
End If
Next IE
Set SH = Nothing
お礼が遅くなってすいません。
回答がこなかったので、あきらめていました。
でも、けんけんさんのご回答どおりやったところ、
うまくいきました。
IEとエクスプローラーの判別までつけてくれたのには、
感謝です。
個人的に使うものなので、IEが開かれてないとか細かい条件は、必要ないので、大丈夫です。
本当に助かりました。ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- JavaScript ブックマークレットについて 2 2022/10/09 11:48
- JavaScript [Java] Edgeでのアドレスバー非表示について 3 2022/04/20 17:51
- その他(プログラミング・Web制作) httpからhttpsへのリダイレクトについて質問です。 1 2022/03/24 14:35
- レトロゲーム 回答が来なくて困っています!!!誰か助けて下さい!!! https://ux.getuploader 1 2022/11/20 13:54
- その他(ブラウザ) Amazonに掲載されている図書のURLについて 2 2022/12/13 10:31
- その他(ソフトウェア) Figma 1 2023/06/23 14:22
- その他(OS) エクスプローラのアクティブウィンドウのタイトルバーに色がつかない 3 2023/07/18 18:34
- gooブログ gooblogのプロフィール画面にURL 1 2023/05/29 23:23
- 物理学 高1力学の運動量の問題です。問題を一通り解いたのですが、行き詰まってしまったのでご回答頂ければ嬉しい 3 2022/06/29 11:20
- Word(ワード) ワードやPDFへのリンクの貼り方 1 2023/03/31 00:36
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで作った新しいウイン...
-
「アイテムは収集されました」...
-
検索の画面がでなくなってしま...
-
勝手にウィンドウが開いて止ま...
-
VBA .Value=.Value ?
-
ゲームでは結局どっちが良いの?
-
Excelの上下を固定したい
-
「&HFFFF」「&H1A」とは?
-
ラジオボタンの初期指定
-
C#でファイル転送プログラムWin...
-
ダイアログをスクロールさせるには
-
ExcelのBOOKが消えた!
-
コンボボックスのリストに水平...
-
ウィンドウが閉じない
-
Vba LongPtrについて教えてくだ...
-
WebBrowserでOfficeファイル等...
-
VB6で指定したURLに飛ばしたい。
-
CAsyncSocketのOnConnectがスレ...
-
リモートデスクトップの中のウ...
-
Console.WriteLine で表示されない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで作った新しいウイン...
-
「アイテムは収集されました」...
-
ゲームでは結局どっちが良いの?
-
検索の画面がでなくなってしま...
-
勝手にウィンドウが開いて止ま...
-
VBA .Value=.Value ?
-
ラジオボタンの初期指定
-
作成したウインドウのサイズを...
-
Vba LongPtrについて教えてくだ...
-
Excelの上下を固定したい
-
他のアプリケーションの終了処理
-
【VB2008】 マウス操作の一時的...
-
「&HFFFF」「&H1A」とは?
-
VBで外部プログラムを位置のみ...
-
ExcelのBOOKが消えた!
-
Alt+P,Alt+NをPostmessageで送...
-
UWSCで特定のChromeのタブをア...
-
Console.WriteLine で表示されない
-
MFC ダイアログ上のID取得につ...
-
最大化と最小化ボタン
おすすめ情報