. . |
Dim my_url As String Dim xml_obj As New MSXML2.XMLHTTP Dim html_doc As MSHTML.HTMLDocument my_url = "...htm" xml_obj.Open "GET", my_url, False xml_obj.send Set html_doc = New MSHTML.HTMLDocument html_doc.body.innerHTML = xml_obj.responseText