Hoe Google-zoekresultaten naar een werkblad in Excel te vullen?
In sommige gevallen moet u misschien wat belangrijk zoeken op trefwoord in Google en het record van het bovenste zoekresultaat bewaren in een werkblad met de titel en hyperlink van het artikel. Dit artikel biedt een VBA-methode om Google-zoekresultaten in een werkblad te plaatsen op basis van opgegeven trefwoorden in cellen.
Vul de zoekresultaten van Google in op het werkblad met VBA-code
Vul de zoekresultaten van Google in op het werkblad met VBA-code
Stel dat de trefwoorden die u nodig hebt om in de lijst in kolom A te zoeken, zoals onderstaand screenshot wordt getoond, doe dan als volgt om de Google-zoekresultaten van deze trefwoorden te vullen met overeenkomstige kolommen met VBA-code.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, klik dan Invoegen > Module. Kopieer en plak vervolgens VBA-code in het codevenster.
VBA-code: vul de zoekresultaten van Google in het werkblad in
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. druk de F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteert u de cellen met de trefwoorden waarnaar u wilt zoeken en klikt u vervolgens op de OK knop. Zie screenshot:
Vervolgens worden alle zoekresultaten, inclusief titels en links, op basis van trefwoorden in overeenkomstige kolomcellen ingevuld. Zie schermafbeelding:
Gerelateerde artikelen:
- Hoe vul ik een keuzelijst met invoervak met gespecificeerde gegevens over de geopende werkmap?
- Hoe vul ik automatisch andere cellen in bij het selecteren van waarden in de vervolgkeuzelijst van Excel?
- Hoe vul ik automatisch andere cellen in bij het selecteren van waarden in de vervolgkeuzelijst van Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!