Página 1 de 1

Manipular e Exportar dados de um site

Enviado: Dom Mar 04, 2018 2:08 pm
por Guima
Ola Galera !

Encontrei um site muito bacana e que acho que pode ser útil para muitas pessoas, pois ele lista quais os radares existem em um determinado percurso, queria EXPORTAR a listagem para o EXCEL. Mas não sei se por incompetência minha ou proibição do próprio site, mas fato é que sequer consigo enviar o endereço do Excel para o site. Alguém mais experiente pode ver e me orientar?

O site é: http://transito.maplink.global/

Eu tenho tentado de várias formas manipular o site, a maioria sem sucesso, em algumas das tentativas não ocorre erros, mas também nada é enviado para a página.

Código: Selecionar todos

Sub MAPLINK()

Dim IE As InternetExplorer
Dim SNG As Date
Dim EL As Object


Set IE = New InternetExplorer
IE.Visible = True
SNG = Timer
IE.Navigate "http://transito.maplink.global/"


While IE.ReadyState <> READYSTATE_COMPLETE
     Wend
     SNG = Timer
     Do While SNG + 2 > Timer
     Loop

'//// PONTO A e PONTO B
IE.Document.getElementsByClassName("address ui-autocomplete-input").Focus

For Each EL In IE.Document.getElementsByClassName("address ui-autocomplete-input")
    If EL.Document.getElementsByClassName = ("parada comCity origem") Then
       EL.Value = "TESTE"
       Exit For
    End If
Next



' ////Exibir radares

'IE.Document.ALL.Item("tab radares poi").Click
IE.Document.getElementsByClassName("radares tab poi active selected").Click
'IE.Document.Forms(0).Submit

'IE.Document.getElementsByClassName("radares tab poi active")(i).Click
End Sub

Re: Manipular e Exportar dados de um site

Enviado: Seg Jun 17, 2019 12:13 am
por rodrigolis01
Amigo, boa noite

Achei esses dois video para um projeto que estou desenvolvendo.. Veja se te ajuda.

https://www.youtube.com/watch?v=rF0vM4P3paQ&t=924s - Em português

https://www.youtube.com/watch?v=JxmRjh-S2Ms - Em inglês

Abraço