Verwenden von MSXML2.XMLHTTP in Excel VBA zum Extrahieren großer Mengen von Textdaten von der Website

Question

Ich versuche, historische Aktienkursdaten von finance.yahoo.com für 1000s Aktien zu downloaden. Die Website zeigt nur 60 Tage Daten auf einer einzelnen Seite an, so dass ich die Zeitperiode, in der ich lade, zusammen mit der Schleife für verschiedene Wertpapiere durchlaufen muss. Ich habe den folgenden Code verwendet, um auf die entsprechende Seite zuzugreifen.

Set httpObject = CreateObject("MSXML2.XMLHTTP") 
httpObject.Open "GET", url, False 
httpObject.send 
webObject.body.innerHTML = httpObject.responseText 

Dies funktioniert wie ein Charme für 99% der Daten, die ich zugreifen. Aber hin und wieder stellt sich heraus, dass das von der Website zurückgegebene Objekt leer ist, obwohl die exakt gleiche URL mir die richtigen Daten im Internet Explorer anzeigt. Wenn ich den Code nur für diese URL erneut durchführe, kann es beim nächsten Mal fehlschlagen.

Ich würde gerne wissen, ob es eine stabilere/konsistentere Art der Verwendung der oben genannten Methode gibt. Ich hatte zuvor die InternetExplorer.Application-Methode implementiert, um Daten herunterzuladen, fand aber, dass diese viel langsamer und umständlicher ist.

Answer 1

Überprüfen Sie den Fertigzustand.

httpObject.ReadyState = 4 

Das bedeutet, es ist Laden getan. Dann können Sie den Status

httpObject.Status = 200 

überprüfen, was bedeutet, dass Sie die URL nicht vermasselt haben. Wenn readystate 4 ist und status 200 ist, können Sie den responseText lesen.

Answer 2

Ich hatte das gleiche Problem, eine leere Antwort bekommen, mit .Status = 0 (d. H. Ok). Mein Problem stellte sich heraus, dass das http, wenn Sie im Browser gehen, zu https umleitet. Als ich es in meiner Anfrage änderte, war es in Ordnung.

Für eine generische Funktion könnten Sie http versuchen und wenn Sie .Status = 0 und .responseText = "" bekommen, dann wiederholen Sie aber mit https.