………
スキップ
オート
セーブ
おわる
'サンプル1.2_任意のURLに画面遷移する
Public Sub showURL()
'IEを格納する変数(オブジェクト型)
Dim ie As Object
'IEを起動し、変数ieに格納
Set ie = CreateObject("InternetExplorer.Application")
'IEを可視化する
ie.Visible = True
'URLに遷移する
ie.Navigate2 ("
http://www.google.co.jp/
")
End Sub