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