Code: Selecteer alles
Function GetHTML(URL As String) As String
Set objHttp = CreateObject("MSXML2.XmlHttp")
With objHttp
.Open "GET", URL, true
.Send
While .readyState <> 4
DoEvents
Wend
End With
GetHTML = objHttp.responsetext
Set objHttp = Nothing
End Function