IEを開きgoogleを表示する
Sub ie_test() 'IEテストする。
'IEの起動
Dim objIE As Object '変数を定義します。
Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
objIE.Visible = True '可視、Trueで見えるようにします。
'処理したいページを表示します。
objIE.navigate "http://www.google.co.jp/"
'ページの表示完了を待ちます。
While objIE.readyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
DoEvents '重いので嫌いな人居るけど。
Wend
'google検索項目(name=q)にセットする。
objIE.Document.getElementsByName("q")(0).Value = "test"
'文章をMsgboxで表示する
MsgBox objIE.Document.All(0).InnerTEXT
MsgBox objIE.Document.All(0).InnerHTML
End Sub