Como preencher os resultados da pesquisa do Google em planilhas no Excel?
Em alguns casos, você pode precisar fazer alguma pesquisa de palavra-chave importante no Google e manter o registro do resultado da pesquisa principal em uma planilha que inclui o título e o hiperlink do artigo. Este artigo fornece um método VBA para ajudar a preencher os resultados da pesquisa do Google em uma planilha com base em determinadas palavras-chave nas células.
Preencher resultados de pesquisa do Google em planilhas com código VBA
Preencher resultados de pesquisa do Google em planilhas com código VBA
Supondo que as palavras-chave que você precisa para pesquisar a lista na coluna A, conforme a imagem mostrada abaixo, faça o seguinte para preencher os resultados de pesquisa do Google dessas palavras-chave nas colunas correspondentes com o código VBA.
1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, por favor clique inserção > Módulo. Em seguida, copie e cole o código VBA na janela de código.
Código VBA: preencher os resultados da pesquisa do Google na planilha
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. aperte o F5 chave para executar o código. No surgimento Kutools for Excel caixa de diálogo, selecione as células que contêm palavras-chave que você irá pesquisar e clique no botão OK botão. Veja a imagem:
Em seguida, todos os resultados da pesquisa, incluindo títulos e links, são preenchidos em células de coluna correspondentes com base em palavras-chave. Veja a imagem:
Artigos relacionados:
- Como preencher uma caixa de combinação com dados especificados na pasta de trabalho aberta?
- Como preencher automaticamente outras células ao selecionar valores na lista suspensa do Excel?
- Como preencher automaticamente outras células ao selecionar valores na lista suspensa do Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!