Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
3 questões de scraping
3 questões de scraping
Bom dia!
Estou trabalhando em um projeto e preciso de ajuda para conseguir realizar 3 procedimentos:
-Puxar da tabela somente o registro que contiver determinada palavra;
-Pegar somente da quarta e sexta colunas de uma tabela o valor mais alto e a data mais recente;
-inserir em cada uma das células no excel/destino comentários com a tabela completa de onde saiu os valores acima.
Mais uma vez, muito obrigado pela atenção!
Abraços!
Estou trabalhando em um projeto e preciso de ajuda para conseguir realizar 3 procedimentos:
-Puxar da tabela somente o registro que contiver determinada palavra;
-Pegar somente da quarta e sexta colunas de uma tabela o valor mais alto e a data mais recente;
-inserir em cada uma das células no excel/destino comentários com a tabela completa de onde saiu os valores acima.
Mais uma vez, muito obrigado pela atenção!
Abraços!
Re: 3 questões de scraping
Aqui:
https://www.youtube.com/watch?v=1RPs8NTp9ig
Umas das opções que o Selenium oferece é ao invés de jogar os dados da tabela no Excel, retornar ela num array. Se fizer isso, terá controle total dos dados da mesma, podendo fazer qualquer coisa depois disso.
https://www.youtube.com/watch?v=1RPs8NTp9ig
Umas das opções que o Selenium oferece é ao invés de jogar os dados da tabela no Excel, retornar ela num array. Se fizer isso, terá controle total dos dados da mesma, podendo fazer qualquer coisa depois disso.
Re: 3 questões de scraping
Sinceramente que eu pensei nisso no caso do valor máximo de data e valor em dinheiro, mas essa era uma das coisas que eu esperava que me ensinasse!
Re: 3 questões de scraping
Lá vai:
Código: Selecionar todos
Dim driver As WebDriver
Sub ExtrairTabelaDaPaginaParaAPlanilha()
Set driver = New ChromeDriver
Dim destino As Range
Set destino = Range("A1")
driver.Get "https://pt.wikipedia.org/wiki/Subdivis%C3%B5es_do_Brasil"
Dim tabela As WebElement
Set tabela = driver.FindElementByXPath("/html/body/div[3]/div[3]/div[4]/div/table")
If tabela Is Nothing Then
MsgBox "Elemento não encontrado"
Else
tabela.AsTable.ToExcel destino
End If
driver.Quit
End Sub
Sub ExtrairTabelaDaPaginaParaUmArray()
Set driver = New ChromeDriver
Dim destino As Range
Dim data()
driver.Get "https://pt.wikipedia.org/wiki/Subdivis%C3%B5es_do_Brasil"
Dim tabela As WebElement
Set tabela = driver.FindElementByXPath("/html/body/div[3]/div[3]/div[4]/div/table")
If tabela Is Nothing Then
MsgBox "Elemento não encontrado"
Else
data = tabela.AsTable.data
End If
'Print all cells
For c = 1 To UBound(data, 1)
For r = 1 To UBound(data, 1)
Debug.Print data(r, 1) 'Coluna 1
Debug.Print data(r, 2) 'Coluna 2
Debug.Print data(r, 3) 'Coluna 3
Debug.Print data(r, 4) 'Coluna 4
Next
Next
driver.Quit
End Sub
Re: 3 questões de scraping
Excelente!
Com sua ajuda até já consegui resolver a 1ª questão e acho que não terei problemas com a última, mas a 2ª, a do maior numa coluna, esta estou tendo um pouco de dificuldade.
Pode me ajudar?
Como sempre, muito obrigado!
Com sua ajuda até já consegui resolver a 1ª questão e acho que não terei problemas com a última, mas a 2ª, a do maior numa coluna, esta estou tendo um pouco de dificuldade.
Pode me ajudar?
Como sempre, muito obrigado!