「そうね、今日はあまり難しいことはやらない」
Y
藍
スキップ
オート
セーブ
おわる
'サンプル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