Este fórum está sendo desativado

[GuiU]

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

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 Sub

E os elementos da página

Código: Selecionar todos

https://uploaddeimagens.com.br/imagens/elementos_bing-jpg

[Basole]

Acredito que consiga fazer as consultas de direções no Bing Mapas, somente com a url e os parâmetros.

Veja se este exemplo ajuda:

Parametros padrões são esses:

Código: Selecionar todos

http://www.bing.com/maps/?rtp=adr.endereço,cidade,estado,cep,pais~adr.<endereco>, <cidade>, <estado>, <cep>, <pais>

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/?rtp=adr.avenida%20Paulista%20807,sao%20paulo,SP,cep,Brasil~adr.Rua%20Direita%20-%20Se,SaoPaulo,01002-001,%20SP,%20brasil"

End Sub

[GuiU]

Uau Basole !!!

Eu quebrando a cabeça aqui com elementos da página e você de forma elegante me deu uma solução. Sem palavras pra demonstrar minha gratidão.

Apenas por curiosidade e para aprender, como se descobre esses parâmetros ? Pois tem uns 7 dias que eu estava apanhando....

Abraço

[Basole]

Pesquisando meu caro, essas coisa não estão dentro do Excel rsss.

Veja o link a fonte de consulta:

https://msdn.microsoft.com/en-us/librar ... 2147217396

Abs.

[GuiU]

Que show e que burro eu sou....rsrs

Procurei em diversos locais, menos na própria Microsoft...

Sem querer abusar, mas já abusando, pois dei uma lida na fonte que me enviou e não encontrei nada referente.

Saberia me dizer se tem como automatizar também a exibição dos CAIXAS ELETRONICOS da região (essa é a informação que me fez interessar pelo BING MAPAS). Se tiver como habilitar ela automaticamente seria muito foda.

https://uploaddeimagens.com.br/images/0 ... 1519940728

[Basole]

Na fonte que enviei tem sim, dá uma olhada lá tem um exemplo de como abrir o mapa com pesquisa comercial, business search.

Eu ainda estou estudando esses recursos então não tenho muita informação pra te passar.

Mas os parâmetros são diferentes do anterior:

Código: Selecionar todos

http://bing.com/maps/default.aspx?ss=yp.<Nome da empresa>~sst.1~pg.2

O yp é a categoria da entidade

Veja os exemplos, retorna a pesquisa na sua região:

https://www.bing.com/maps?ss=yp.caixas% ... sst.1~pg.2

https://www.bing.com/maps?ss=yp.Banco%2 ... sst.1~pg.1

[GuiU]

hmmm, entendi.

Eu que não soube nem interpretar....rs

Muito legal Basole !!! Valeu demais !!!