Enviar dados do EXCEL para BING MAPAS
Enviado: 01 Mar 2018 às 11:46
Ola Pessoal,
Necessito do auxilio dos mais experientes. Estou tentando enviar os dados da Planilha par ao BING (via VBA).
Não sei se peguei os nomes corretos dos elementos, mas a rotina ficou assim: (porém não funciona, os dados não são enviados).
***Esse mesmo tópico foi criado em: https://social.msdn.microsoft.com/Forum ... orum=vbapt
E os elementos da página
Necessito do auxilio dos mais experientes. Estou tentando enviar os dados da Planilha par ao BING (via VBA).
Não sei se peguei os nomes corretos dos elementos, mas a rotina ficou assim: (porém não funciona, os dados não são enviados).
***Esse mesmo tópico foi criado em: https://social.msdn.microsoft.com/Forum ... orum=vbapt
Código: Selecionar todos
Sub BINGs()
Dim IE As InternetExplorer
Dim SNG As Date
Dim EL As Object
Set IE = New InternetExplorer
IE.Visible = True
SNG = Timer
IE.Navigate "https://www.bing.com/maps?FORM=Z9LH3"
While IE.ReadyState <> READYSTATE_COMPLETE
Wend
SNG = Timer
Do While SNG + 2 > Timer
Loop
' clica em Direções
Do
DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE
IE.Document.getElementsByClassName("directionsIcon realign")(0).Click
' inserir endereços
For Each EL In IE.Document.getElementsByClassName("dirWp")
If EL.Document.ALL.Item = ("icon start") Then
EL.Value = "RUA TESTE"
Exit For
End If
Next
End SubE os elementos da página
Código: Selecionar todos
https://uploaddeimagens.com.br/imagens/elementos_bing-jpg
Uau Basole !!!
