Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment remplir les résultats de recherche google en feuille de calcul dans Excel?

Dans certains cas, vous devrez peut-être effectuer une recherche par mot-clé importante dans Google et conserver l'enregistrement de résultats de recherche le plus important dans une feuille de calcul contenant le titre et l'hyperlien de l'article. Cet article fournit une méthode VBA pour aider à remplir les résultats de recherche google à une feuille de calcul basée sur des mots clés donnés dans les cellules.

Renseignez les résultats de recherche Google dans la feuille de calcul avec le code VBA


Renseignez les résultats de recherche Google dans la feuille de calcul avec le code VBA


En supposant que les mots-clés dont vous avez besoin pour rechercher la liste dans la colonne A comme ci-dessous screenshot, s'il vous plaît faire comme suit pour remplir les résultats de recherche google de ces mots-clés aux colonnes correspondantes avec le code VBA.

1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, s'il vous plaît cliquez insérer > Module. Ensuite, copiez et collez le code VBA dans la fenêtre de code.

Code VBA: alimenter les résultats de recherche google en feuille de calcul

Sub xmlHttp()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Dim url As String
    Dim xRtnStr As String
    Dim I As Long, xLastRow As Long
    Dim xmlHttp As Object, xHtml As Object, xHtmlLink As Object
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the keywords you will search in Google:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xLastRow = xRg.Rows.Count
    Set xRg = xRg(1)
    For I = 0 To xLastRow - 1
        url = "https://www.google.co.in/search?q=" & xRg.Offset(I) & "&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 xHtml = CreateObject("htmlfile")
        xHtml.body.innerHTML = xmlHttp.ResponseText
        Set xHtmlLink = xHtml.getelementbyid("rso").getelementsbytagname("H3")(0).getelementsbytagname("a")(0)
        xRtnStr = Replace(xHtmlLink.innerHTML, "<EM>", "")
        xRtnStr = Replace(xRtnStr, "</EM>", "")
        xRg.Offset(I, 1).Value = xRtnStr
        xRg.Offset(I, 2).Value = xHtmlLink.href
    Next
    Application.ScreenUpdating = True
End Sub

3. appuie sur le F5 clé pour exécuter le code. Dans le popping up Kutools for Excel boîte de dialogue, sélectionnez les cellules contenant les mots clés que vous recherchez, puis cliquez sur OK bouton. Voir la capture d'écran:

Ensuite, tous les résultats de recherche, y compris les titres et les liens, sont remplis dans des cellules de colonne correspondantes en fonction de mots-clés. Voir la capture d'écran:


Articles Liés:



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    karmapala · 5 days ago
    The same here.

    I follow the code, by copy it then paste the code in Excel VBA module. But after running, nothing happen, column B and C still empty but there is no error though.
  • To post as a guest, your comment is unpublished.
    Gary Swann · 2 months ago
    Hi, I've followed the points to be able to pull information from a google search based on keywords and it's not bringing any results though, I've emailed support and I've been advised to put a post here because they can't help me.
    • To post as a guest, your comment is unpublished.
      Adam · 1 months ago
      I have not been able to pull anything from google either. I followed instructions exactly.