À l'aide de MSXML2.XMLHTTP en VBA Excel pour extraire de grandes quantités de données de texte à partir du site web

Je suis en train de télécharger historique du prix des actions des données à partir de finance.yahoo.com pour 1000s des stocks. Le site affiche uniquement les 60 jours de données sur une seule page, donc je dois faire une boucle par la période de temps que je suis le téléchargement pour le long avec la boucle pour les différents titres. J'ai utilisé le code suivant pour accéder à la page correspondante.

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

Cela fonctionne comme un charme pour 99% des données à laquelle j'ai accès. Mais chaque maintenant et puis, de l'objet renvoyé par le site s'avère être vide, même si l'URL exacte même m'indiquer les données correctes dans Internet Explorer. Si je exécutez à nouveau le code pour que les URL, il peut ou peut ne pas échouer à la prochaine fois.

Je voudrais savoir si il est plus stable et cohérente façon d'utiliser la méthode ci-dessus. J'avais déjà mis en œuvre la InternetExplorer.Méthode d'Application pour télécharger des données, mais n'a trouvé à être beaucoup plus lent et lourd.

OriginalL'auteur sinhars82 | 2014-03-02

  1. 7

    Vérifier la readystate.

    httpObject.ReadyState = 4

    cela signifie que c'est fait, le chargement. Ensuite, vous pouvez vérifier l'état

    httpObject.Status = 200

    cela signifie que vous n'avez pas gâcher l'URL. Si readystate est de 4 et le statut est de 200, vous pouvez lire le responseText.

    Merci beaucoup pour la rapidité de revenir. Je vais essayer cela et voir si cela résout mon problème.

    OriginalL'auteur Dick Kusleika

  2. 1

    J'ai eu le même problème, l'obtention d'un vide repsonse, avec .Status = 0 (c'est à dire Ok).
    Mon problème il s'est avéré était que le http, quand vous allez dans le navigateur redirige vers https. Quand je l'ai changé à ma demande, il était beau.

    Pour une fonction générique, vous pouvez essayer de http et si vous obtenez .Status = 0 et .responseText = "", puis répéter, mais avec le protocole https.

    OriginalL'auteur Paul