ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Manipular e Exportar dados de um site

Dúvidas gerais sobre Excel
Guima
Consultor
Consultor
Mensagens: 242
Registrado em: Sex Out 30, 2009 6:10 am

Manipular e Exportar dados de um site

Mensagem por Guima » Dom Mar 04, 2018 2:08 pm

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


Guilherme

Sub Guilherme_Initialize()
If Me.Guima <> "" Then
MsgBox "Obrigado pela força "
Else
MsgBox "Um abraço pra todos "
End If
End Sub

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


rodrigolis01
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Dom Jun 16, 2019 9:52 pm

Re: Manipular e Exportar dados de um site

Mensagem por rodrigolis01 » Seg Jun 17, 2019 12:13 am

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


Rodrigo Nascimento

"And we know that God causes everything to work together[a] for the good of those who love God and are called according to his purpose for them".

Romans 8:28 New Living Translation (NLT)

Responder