Como preencher automaticamente os resultados da pesquisa do Google numa folha de cálculo do Excel?
Em alguns casos, poderá precisar de realizar uma pesquisa avançada por palavras-chave no Google e guardar o registo do resultado mais relevante numa folha de cálculo, incluindo o título e a hiperligação do artigo. Este artigo apresenta um método VBA que preenche automaticamente os resultados da pesquisa no Google numa folha de cálculo com base nas palavras-chave indicadas nas células.
Preencher os resultados da pesquisa no Google numa folha de cálculo com código VBA
Preencher os resultados da pesquisa no Google numa folha de cálculo com código VBA
Supondo que as palavras-chave que pretende pesquisar na Lista de pesquisa estejam na coluna A, conforme ilustrado na imagem seguinte, siga os passos abaixo para preencher automaticamente os resultados da pesquisa no Google relativos a essas palavras-chave nas colunas correspondentes utilizando código VBA.
1. Prima as teclas Alt+F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA na janela de código.
Código VBA: preencher os resultados da pesquisa no Google numa folha de cálculo
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 Sub3. Prima a tecla F5 para executar o código. Na caixa de diálogo Kutools para Excel que aparece, selecione as células que contêm as palavras-chave que pretende pesquisar e, em seguida, clique no botão OK. Veja a imagem:
Todos os resultados da pesquisa, incluindo títulos e ligações, são automaticamente preenchidos nas células das colunas correspondentes com base nas palavras-chave. Veja a imagem:
Artigos relacionados:
- Como preencher uma caixa de combinação com os dados especificados ao abrir o livro?
- Como preencher automaticamente outras células ao selecionar um valor numa lista pendente do Excel?
- Como preencher automaticamente outras células ao selecionar um valor numa lista pendente do Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos