Hyperlink.Followはブラウザを指定

Hyperlink.Followはブラウザを指定して開くことはできませんか？

ブラウザはＩＥを使ってるのですが
二つのウインドウを開いている場合、
ウインドウＡのＩＥで開くようにすることは可能でしょうか？

Sub Sample()
Application.FollowHyperlink "http://www.yahoo.co.jp/"
End Sub

をすると、どうやら現在位置版最前面にあるウインドウで開かれるようです。

No.2 ベストアンサー 回答者： WindFaller 回答日時： 2013/04/10 20:57

#1の回答者です。

>IEObjct を作って行ったほうが良いようですね。
あくまでも、IEが立ち上がっている状態で、既存のIEオブジェクトを取得しているのです。
ご覧になって分かるように、オブジェクトを生成しているということではありません。

この回答へのお礼

ありがとうございました。

お礼日時：2013/04/14 20:44

No.1 回答者： WindFaller 回答日時： 2013/04/10 15:35

>Hyperlink.Followはブラウザを指定して開くことはできませんか？

できないと思いますよ。もともと、Hyperlinkオブジェクトには、IEオブジェクトとの直接のつながりはないはずですから。


'//
Sub Test1()
Dim objShellWindows As Object
Dim objIE(1) As Object 'IEObjct は、2個まで
Dim i As Long
Dim j As Long
　 Set objShellWindows = CreateObject("Shell.Application").Windows()
　 For i = 1 To objShellWindows.Count
　　　If TypeName(objShellWindows.Item(1)) = "IWebBrowser2" Then
　　　　　 Set objIE(i - 1) = objShellWindows.Item(1)
　　　　　 j = j + 1
　　　　　 If j > UBound(objIE()) Then Exit For
　　　End If
　 Next i
　 If Not objIE(j - 1) Is Nothing Then '後の方のIEObject を指定する
　　　　objIE(j - 1).Navigate2 "http://www.yahoo.co.jp/ "　'指定先
　End If
　Set objShellWindows = Nothing
End Sub

この回答へのお礼

IEObjct を作って行ったほうが良いようですね。
ありがとうございました。勉強になりました。

お礼日時：2013/04/10 20:32