Astuces Excel
  1. Astuces Excel
  3. Retournez les dix premiers hyperliens des résultats Google
Intereting Posts
Lire une gamme nommée Excel dans une masortingce (VBA) Comment créer un GUID dans Excel? Insertion, mise à jour, suppression de données à partir des files Excel et Excel en utilisant une connection oled ou odbc VBA 03 – Chemin d'application – accéder au dossier parent Formule MS Excel réelle pour vdb () Temps d'intervalle de condensation dans la table à pivotement Excel Sumproducts #value! Erreur comment exporter des données de programme c vers MS excel ou en ms Access Comment find des sous-strings spécifiques dans la feuille de calcul Excel? Modification de la plage dans un sous en utilisant un autre sous Testez si le contenu d'une cellule peut être trouvé dans une autre colonne Comment filterr sur un dictionary pour compléter automatiquement un formulaire? Course autour de la condition en lisant N feuilles d'un classur Excel en utilisant différents threads Le format de file et l'extension ne correspondent pas à d'excellentes performances lors du téléchargement depuis le site .net C ++ / CLI Comment ouvrir un file Excel en utilisant un path relatif?

Retournez les dix premiers hyperliens des résultats Google

Je cherche à adapter le code présenté par Santosh afin que je puisse renvoyer les dix premiers liens, pas seulement le résultat le plus élevé, d'une search Google particulière. J'ai besoin de download> 1000 requêtes de search et de mapper les résultats par rapport aux résultats escomptés, mais je m'intéresse à plus que le résultat # 1, je cherche à voir si cela revient dans les dix premiers. J'ai regardé le html et VBA et je ne peux pas le comprendre.

En utilisant VBA dans Excel vers Google Search dans IE et renvoie l'hyperlien du premier résultat

Sans test, on dirait que cette ligne présente un élément d'une collection: 

Set link = objH3.getelementsbytagname("a")(0)

Donc, vous définissez l'object "Lien" sur le premier object (object 0) dans la collection objH3 qui a la balise "a".

Ce que vous voulez faire, c'est passer cette collection. Ex: 

  Set links = objH3.getelementsbytagname("a") For i = 0 To 9 set link = links(i) 'do stuff next

Modifier:

La boucle devrait être sur un niveau supérieur d'objects: 

  For i = 0 To 5 Set objH3 = objResultDiv.getelementsbytagname("H3")(i) Set link = objH3.getelementsbytagname("a")(0) ' Do Stuff Next I

Merci, Richard, pour la mise à jour.