Astuces Excel
  1. Astuces Excel
  3. Vous ne pouvez pas get un sharepoint données spécifique à tirer de Yahoo Finance dans Excel?
Intereting Posts
Suppression d'espaces excessifs dans CSV à l'aide de VBA Comment sauter des cellules sélectionnées dans EXCEL, en utilisant VBA, Remplacer tous les nombres dans une colonne avec un blanc sauf le mot particulier Excel: Reconnaissant les time de date dans les diagrammes de dispersion Supprimer Répliques à partir de la première colonne Conversion .xlsx to xml dans Perl Xl Add-In (VBA) et les objects persistants Comment vérifier si une cellule est vide en utilisant VBA Excel VBA pour insert / supprimer des lignes à la fin de la gamme Importation de données text Excel Étape 3 Sélectionnez les colonnes via le keyboard sur Mac Excel si alors déclaration (Excel, workshift) Heures de travail hebdomadaires autour d'un montant fixe Code VBA pour ignorer #VALUE! dans une formule moyenne Python et Pandas – Suppression du pied de page dans plusieurs files avec la même pause django excel xlwt

Vous ne pouvez pas get un sharepoint données spécifique à tirer de Yahoo Finance dans Excel?

J'essaie d'extraire un nombre très spécifique de la page Yahoo Finance mais je me suis coincé. Le lien sur lequel j'essaie de tirer cette information est:

http://finance.yahoo.com/q/hp?s=AAPL+Historical+Prices

Je m'intéresse à get le numéro 111.31 qui est répertorié près du haut de cette page en gras. J'ai écrit le code suivant pour extraire cette information, mais chaque fois que je l'exécute, il dit que «Objet ne supporte pas cette propriété ou cette méthode». Je soupçonne que l'erreur réside dans la ligne où j'utilise getElementsByClass et getElementsById pour extraire ces données. 

  Sub GetQuote() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .navigate "http://finance.yahoo.com/q/hp?s=AAPL+Historical+Prices" Do While .busy: DoEvents: Loop Do While .ReadyState <> 4: DoEvents: Loop With .document Application.Wait (Now + #12:00:05 AM#) Sheets("Sheet1").Range("A3") = .getElementsByClass("time_rtq_ticker").getElementsById("yfs_184_aapl").innerText End With End With Set IE = Nothing End Sub

Pouvez-vous, tout le monde, jeter un oeil et me faire savoir où j'ai mal tourné et comment je peux réparer cela?

La méthode getElementsByClassName renvoie une collection d'un ou plusieurs objects. Vous devez fournir l'index (c'est-à-dire la position ) de l'élément dans la collection. Essayer, 

 Sheets("Sheet1").Range("A3") = .getElementsByClass("time_rtq_ticker")(0).getElementById("yfs_184_aapl").innerText

En fait, l'identifiant yfs_184_aapl est unique sur cette page. Vous avez seulement besoin, 

 Sheets("Sheet1").Range("A3") = .getElementById("yfs_184_aapl").innerText

Notez que la méthode getElementById est singulière, pas getElementsById .