Astuces Excel
  1. Astuces Excel
  3. Macro Excel – Recherche Google pour le numéro de téléphone
Intereting Posts
Nom de la colonne Excel SSIS à partir du file Recherche et comparaison de différentes valeurs à l'aide de VBA Dans Excel: essayer d'get la première valeur visible dans une colonne d'une table congélation des lignes dans le filter Excel Appuyez sur un lien sur une page Web à l'aide de Excel VBA Transposer datatables de large à longue avec VBA, à partir de plusieurs feuilles de travail Userform combobox prend la première valeur uniquement – Excel VBA Performances de lecture de feuilles Excel Excel inférieures à MS excel VBA excel forms de combobox select Multipages nesteds Remplir un tableau long avec des valeurs de plage Combinaison partielle entre 2 colonnes et résultats dans une autre colonne Valeur de InputBox non ajoutée à la cellule correcte Formule IF nestede avec 4 sorties possibles Remplissez une feuille de calcul Excel avec des données randomisées en utilisant C #

Macro Excel – Recherche Google pour le numéro de téléphone

Je voudrais créer une Macro dans Excel qui ouvre Google Chrome et search les contenus (noms de sociétés) de la Colonne F, puis enregistre le numéro de téléphone de cette société dans la colonne G. Le numéro de téléphone de nombreuses entresockets apparaît dans Les resultats. Si le numéro de téléphone ne peut pas être trouvé, j'aimerais (au less) avoir Excel ouvrir Google et searchr cette information sans que je devrais copyr et passé des centaines de fois. De plus, pour éviter que le système ne s'écrase ou trop d'tabs Google ouvrir, j'aimerais que la macro search à partir de la sélection que j'ai déjà faite … Je tente de mettre en œuvre le code que j'ai trouvé ci-dessous. Je dois admettre, je suis un user VBA inexpérimenté. Toute aide que vous pouvez donner serait géniale … Et je m'excuse pour mon ignorance. 

Sub XMLHTTP() Dim url As Ssortingng, lastRow As Long Dim XMLHTTP As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object Dim start_time As Date Dim end_time As Date lastRow = Range("F" & Rows.count).End(xlUp).Row Dim cookie As Ssortingng Dim result_cookie As Ssortingng start_time = Time Debug.Print "start_time:" & start_time For i = 2 To lastRow url = "https://www.google.co.in/search?q=" & Cells(i, 1) & "&rnd=" & WorksheetFunction.RandBetween(1, 10000) Set XMLHTTP = CreateObject("MSXML2.serverXMLHTTP") XMLHTTP.Open "GET", url, False XMLHTTP.setRequestHeader "Content-Type", "text/xml" XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0" XMLHTTP.send Set html = CreateObject("htmlfile") html.body.innerHTML = XMLHTTP.ResponseText Set objResultDiv = html.getelementbyid("rso") Set objH3 = objResultDiv.getElementsByTagName("H3")(0) Set link = objH3.getElementsByTagName("a")(0) str_text = Replace(link.innerHTML, "<EM>", "") str_text = Replace(str_text, "</EM>", "") Cells(i, 2) = str_text Cells(i, 3) = link.href DoEvents Next end_time = Time Debug.Print "end_time:" & end_time Debug.Print "done" & "Time taken : " & DateDiff("n", start_time, end_time) MsgBox "done" & "Time taken : " & DateDiff("n", start_time, end_time) End Sub