Hogyan töltse fel a Google keresési eredményeit az Excel munkalapjára?
Bizonyos esetekben fontos kulcsszó keresést kell végeznie a Google-ban, és a legfelső keresési eredmény rekordot egy olyan munkalapon kell megőriznie, amely tartalmazza a cikk címét és hiperhivatkozását. Ez a cikk egy VBA-módszert ismertet, amely elősegíti a Google keresési eredmények munkalapra történő feltöltését a cellákban megadott kulcsszavak alapján.
Töltse fel a Google keresési eredményeit VBA kóddal ellátott munkalapra
Töltse fel a Google keresési eredményeit VBA kóddal ellátott munkalapra
Ha feltételezzük, hogy az A oszlopban keresendő kulcsszavakra van szükség, az alábbi képernyőképen, kérjük, tegye a következőket, hogy a kulcsszavak Google keresési eredményeit feltöltse a megfelelő VBA kóddal ellátott oszlopokba.
1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakot, kérjük kattintson betétlap > Modulok. Ezután másolja és illessze be a VBA kódot a kódablakba.
VBA kód: töltse fel a Google keresési eredményeket a munkalapra
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. megnyomni a F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára párbeszédpanelen válassza ki a keresni kívánt kulcsszavakat tartalmazó cellákat, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
Ezután az összes keresési eredmény, beleértve a címeket és linkeket is, a megfelelő oszlop cellákba kerül kulcsszavak alapján. Lásd a képernyőképet:
Kapcsolódó cikkek:
- Hogyan lehet feltölteni egy kombinált mezőt a megadott adatokkal a nyitott munkafüzetben?
- Hogyan lehet automatikusan feltölteni a többi cellát, amikor kiválasztja az értékeket az Excel legördülő listában?
- Hogyan lehet automatikusan feltölteni a többi cellát, amikor kiválasztja az értékeket az Excel legördülő listában?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!