'サンプル3.1_DOMを理解する
Public Sub
useHTMLAsObject()
Dim ie As
InternetExplorer 'IE
Dim htdoc As
HTMLDocument 'HTML
Set ie =
Day2.getIE("Google") 'IE取得
'IEに表示されているHTMLをオブジェクトとして取得
Set htdoc = ie.Document
'HTMLに含まれるタグが、オブジェクトとして操作できる
MsgBox htdoc.Title
'<title>タグ
MsgBox htdoc.body.innerHTML
'<body>タグの内側のHTML
End Sub