複数のタブを開きたい ＩＥ

質問

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つのタブしか開けないです。
ご回答よろしくお願いします。

回答No.1

xls88 · ベストアンサー

Navigate2メソッドで第2引数に2048（16進表記では&H800）を付与すれば新しいタブで開かれました。

    Dim objIE As Object

    Set objIE = CreateObject("InternetExplorer.application")
    objIE.Visible = True
    objIE.Navigate "http://www.yahoo.co.jp/"
    objIE.Navigate2 "http://www.yahoo.co.jp/", 2048

    Set objIE = Nothing

お礼

仕組みはわかりませんができました！ありがとうございました。