VBA IE制御 URLを指定して新しいタブで開く

いきなりですけど、VBAでIEを新しいタブで開く操作。

忘れそうなのでメモメモ

注釈は間違えているかもしれません。

コードはこのままVBEの標準モジュールに貼りつけていただければ動くと思います。

ここでの肝は

navigate2　と　navOpenInNewTab

*********サンプルコード********************

Sub IE_newtab()

Const navOpenInNewTab = &H800　　　　　　　　　　　　　　　　　　　'定数を代入

Set ObjShell = CreateObject("Shell.Application")　　　　　　　　　　'シェル　アプリケーションと言うオブジェクトを作る

For Each ObjWindow In ObjShell.Windows

Debug.Print "タイプは:" & TypeName(ObjWindow.Document)

'HTMLDocumentだったら

If TypeName(ObjWindow.Document) = "HTMLDocument" Then

'オブジェクトを代入する
　　Set ObjIE = ObjWindow

　　　　nFLG = True

　　Exit For

End If

Next

ObjIE.navigate2 "http://www.google.co.jp/ ", navOpenInNewTab

End　sub

******************************************

これで、「新しいタブ」で開くようになりますが。。。。