Come popolare i risultati di ricerca di Google nel foglio di lavoro in Excel?
In alcuni casi, potrebbe essere necessario eseguire alcune importanti ricerche per parole chiave in Google e mantenere il record dei risultati della ricerca in alto in un foglio di lavoro che include il titolo e il collegamento ipertestuale dell'articolo. Questo articolo fornisce un metodo VBA per aiutare a popolare i risultati di ricerca di Google in un foglio di lavoro basato su determinate parole chiave nelle celle.
Popolare i risultati di ricerca di Google nel foglio di lavoro con il codice VBA
Popolare i risultati di ricerca di Google nel foglio di lavoro con il codice VBA
Supponendo le parole chiave di cui hai bisogno per cercare l'elenco nella colonna A come mostrato nell'immagine sottostante, fai come segue per popolare i risultati di ricerca di Google di queste parole chiave nelle colonne corrispondenti con il codice VBA.
1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice VBA nella finestra del codice.
Codice VBA: inserisci i risultati di ricerca di Google nel foglio di lavoro
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. premi il F5 chiave per eseguire il codice. Nel spuntare Kutools for Excel finestra di dialogo, selezionare le celle contenenti le parole chiave che si cercheranno, quindi fare clic su OK pulsante. Vedi screenshot:
Quindi tutti i risultati della ricerca, inclusi titoli e collegamenti, vengono inseriti nelle celle delle colonne corrispondenti in base alle parole chiave. Vedi screenshot:
Articoli correlati:
- Come popolare una casella combinata con i dati specificati sulla cartella di lavoro aperta?
- Come popolare automaticamente altre celle quando si selezionano i valori nell'elenco a discesa di Excel?
- Come popolare automaticamente altre celle quando si selezionano i valori nell'elenco a discesa di Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!