xmlhttp
Geplaatst: di mei 13, 2014 4:49 pm
Onderstaande functie doet her prima in vba onder excel, maar in OO Calc krijg ik er gemixte resultaten mee. Met http://www.google.nl als URL werkt het prima, met http://www.bol.com niet. Ik heb het vermoeden dat het iets te maken heeft met een redirect, maar zou niet weten waarom. Iemand een idee?
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