Sub test ()
Dim ie, DMT, bd

The Set ie=CreateObject (" InternetExplorer. Application ") 'create a ie object
With ie
The Visible=False 'show it
. Navigate "E: \ temp \ divcss HTML" 'loading a page
Do Until the readyState=4 'wait for the page to load
DoEvents
Loop
Set DMT=. The document 'gives IE browser loads the page document, to DMT variable
'start manipulating page, or extract data
The Set of bd=DMT. Body
End With


End Sub