Accessing Web site HTML

  • Thread starter Thread starter Guest
  • Start date Start date
Sheldon

Try using this code to return the page

Function GetFromWebpage(URL As String) As String
On Error GoTo Err_GetFromWebpage
Dim objWeb As Object
Set objWeb = CreateObject("Microsoft.XMLHTTP")
objWeb.Open "GET", URL, False
objWeb.Send
GetFromWebpage = objWeb.responseText
End_GetFromWebpage:
Set objWeb = Nothing
Exit Function
Err_GetFromWebpage:
GetFromWebpage = "Error"
MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation,
"GetFromWebpage"
Resume End_GetFromWebpage
End Function

I am seeing everything between

<h1>Multiple quotes</h1>

and

</span><p class="none"></p></div><h3>Latest News</h3>

from the example you posted.

Ron W
 
Back
Top