www.youtube.com
http://www.youtube.com/watch?v=MIbEh_bdSVs
.Navigate2 メソッド で ページを隣のタブに表示する
'参照設定 Microsoft Internet Controls(Microsoft Browser Helpers)
'参照設定の方法は、 http://www.ken3.org/cgi-bin/group/vba_ie_object.asp をみてください。
Sub ie_test() '.Navigateメソッドでページの移動(URLを開く) 'IEの起動 Dim objIE As InternetExplorer '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置とサイズを調整する objIE.FullScreen = False '※まぁ、わざわざ設定しなくてもいいけど。 objIE.Top = 100 '左上 上位置 objIE.Left = 100 '左上 左位置 objIE.Width = 800 '横幅 objIE.Height = 600 '高さ 'XXXバー、外観・外枠の調整。 objIE.Toolbar = True 'タブの切り替えで必要なので、ツールバーを表示にする objIE.MenuBar = False 'メニューは非表示にする objIE.AddressBar = True 'URLなど アドレスバーは確認のため、表示する objIE.StatusBar = True '一番下のステータスバーを表示。 'ページの移動 目的のページを表示する objIE.Navigate2 "http://www.ken3.org/" objIE.Navigate2 "http://www.ken3.org/vba/", &H800 '新しいタブで表示 2048 objIE.Navigate2 "http://www.ken3.org/asp/", &H800 '新しいタブで表示 2048 End Sub