eu consegui criar um script que acessa o site do clima tempo e coleta a informação da condição do vento do momento.
É um código bem simples, pois o site não requer autenticação, porém estou achando muito lento, digo isso, pois é mais rápido o usuário fazer a coleta dos dados manualmente do que o próprio script rs
ah também está "esgotando" a máquina, pois depois de 10 processamentos, simplesmente trava tudo.
Por favor, podem me ajudar a melhorá-lo para deixá-lo mais eficiente?
Código: Selecionar todos
Sub climatempo()
'http://www.tomasvasquez.com.br/blog/microsoft-office/vba/vba-ocultando-o-navegador-no-selenium/
Set driver = New ChromeDriver
driver.AddArgument ("--headless")
driver.get "https://www.climatempo.com.br/vento/cidade/271/curitiba-pr"
Application.Wait Now + TimeValue("00:00:01")
Set Label_vento_CTA = driver.FindElementById("momento-vento")
Worksheets("Plan1").Range("AC2") = Label_vento_CTA.Text
driver.get "https://www.climatempo.com.br/previsao-do-tempo/cidade/268/cascavel-pr"
Application.Wait Now + TimeValue("00:00:01")
Set Label_vento_CEL = driver.FindElementById("momento-vento")
Worksheets("Plan1").Range("AC3") = Label_vento_CEL.Text
driver.get "https://www.climatempo.com.br/previsao-do-tempo/cidade/277/londrina-pr"
Application.Wait Now + TimeValue("00:00:01")
Set Label_vento_LNA = driver.FindElementById("momento-vento")
Worksheets("Plan1").Range("AC4") = Label_vento_LNA.Text
driver.get "https://www.climatempo.com.br/previsao-do-tempo/cidade/278/maringa-pr"
Application.Wait Now + TimeValue("00:00:01")
Set Label_vento_MGA = driver.FindElementById("momento-vento")
Worksheets("Plan1").Range("AC5") = Label_vento_MGA.Text
driver.get "https://www.climatempo.com.br/previsao-do-tempo/cidade/279/pontagrossa-pr"
Application.Wait Now + TimeValue("00:00:01")
Set Label_vento_PGO = driver.FindElementById("momento-vento")
Worksheets("Plan1").Range("AC6") = Label_vento_PGO.Text
Set Label_Atualizacao = driver.FindElementById("momento-atualizacao")
Worksheets("Plan1").Range("AC7") = Label_Atualizacao.Text
driver.Quit
End Sub
abraços!