Hvordan udfyldes google-søgeresultater til regneark i Excel?
I nogle tilfælde er du muligvis nødt til at foretage nogle vigtige søgeordssøgninger i Google og holde den øverste søgeresultatregistrering i et regneark, der indeholder artiklens titel og hyperlink. Denne artikel giver en VBA-metode til at hjælpe med at udfylde google-søgeresultater til et regneark baseret på givne nøgleord i celler.
Udfyld google-søgeresultater til regneark med VBA-kode
Udfyld google-søgeresultater til regneark med VBA-kode
Antag de nøgleord, du har brug for til at søge i listen i kolonne A som vist nedenstående skærmbillede, skal du gøre som følger for at udfylde google-søgeresultaterne for disse søgeord til tilsvarende kolonner med VBA-kode.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, klik venligst indsatte > Moduler. Kopier og indsæt derefter VBA-kode i kodevinduet.
VBA-kode: udfyld google-søgeresultater til regneark
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. Tryk på F5 nøgle for at køre koden. I pop op Kutools til Excel dialogboksen, vælg venligst de celler, der indeholder nøgleord, du vil søge i, og klik derefter på OK knap. Se skærmbillede:
Derefter bliver alle søgeresultater inklusive titler og links udfyldt i tilsvarende kolonneceller baseret på søgeord. Se skærmbillede:
Relaterede artikler:
- Hvordan udfyldes en kombinationsboks med angivne data på åben projektmappe?
- Sådan udfyldes andre celler automatisk, når du vælger værdier i Excel-rullelisten?
- Sådan udfyldes andre celler automatisk, når du vælger værdier i Excel-rullelisten?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!