ページを表示させ、BODYタグの中身を表示

テストページ
http://oct2011.s2008day.com/test.html
を表示後、
objIE.Document.body.InnerHTML
で、BODYタグの中身を表示してみました。

ソースコード

Option Explicit

'ページを表示させ、BODYタグの中身を表示
'※ソースの表示と違うことに注意(勝手にIEによって整形されている)

Sub ie_body_test_1017()

'IEの起動
    Dim objIE As Object '変数を定義します。
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。
    
'処理したいページを表示します。
    objIE.Navigate "http://oct2011.s2008day.com/test.html"

'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        DoEvents  '重いので嫌いな人居るけど。
    Wend
    
'BodyのHTMLを確認で表示してみる
    Dim strBODY As String
    strBODY = objIE.Document.body.InnerHTML '変数に代入

    MsgBox "BODY=" & strBODY

End Sub

テスト結果

IE操作 VBA ページを表示させ、BODYタグの中身を表示 - YouTube
www.youtube.com