Kako izpolniti Googlove rezultate iskanja na delovni list v Excelu?

V nekaterih primerih boste morda morali v Googlu opraviti nekaj pomembnih iskanj po ključnih besedah ​​in zapis o rezultatih najvišjega iskanja hraniti na delovnem listu, ki vključuje naslov in hiperpovezavo članka. Ta članek ponuja metodo VBA za pomoč pri zapolnitvi rezultatov iskanja Google na delovni list, ki temelji na danih ključnih besedah ​​v celicah.

Googlove rezultate iskanja napišite na delovni list s kodo VBA

Googlove rezultate iskanja napišite na delovni list s kodo VBA

Če domnevamo, da so ključne besede, ki jih potrebujete za iskanje v seznamu v stolpcu A, kot je prikazano na sliki spodaj, storite naslednje, da googlove rezultate iskanja teh ključnih besed zapolnite v ustrezne stolpce s kodo VBA.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite kodo VBA v okno s kodo.

Koda VBA: izpolnite Googlove rezultate iskanja na delovni list

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. Pritisnite F5 tipko za zagon kode. V pojavnem oknu Kutools za Excel izberite celice s ključnimi besedami, ki jih želite iskati, in nato kliknite OK . Oglejte si posnetek zaslona:

Nato se vsi rezultati iskanja, vključno z naslovi in ​​povezavami, vnesejo v ustrezne celice stolpcev na podlagi ključnih besed. Oglejte si posnetek zaslona:

Sorodni članki:

• Kako izpolniti kombinirano polje z navedenimi podatki v odprtem delovnem zvezku?
• Kako samodejno zapolniti druge celice pri izbiri vrednosti v spustnem seznamu Excel?
• Kako samodejno zapolniti druge celice pri izbiri vrednosti v spustnem seznamu Excel?