Excel vba convertendo latitude e longitude para endereço

[Diegodcr]

Olá!

Como um vba para conveter a latitude e longitude em endereço?

Tenho Latitue -22.179173 e Longitude -41.749204 como exemplo e deve retornar em exemplo arco metropolitano do rj, itaguai - rj, 23820-210, brasil 

[Wendell Menezes]

Olá,

 

Crie um módulo e cole o script abaixo.

 

Function GPS(ByVal Lat As String, Lon As String) As String

Dim URL As String
Dim XML As Object

Set XML = CreateObject("MSXML2.DOMDocument")
URL = "https://nominatim.openstreetmap.org/reverse?lat=" + Trim(Lat) & "&lon=" & Trim(Lon)

XML.async = False
XML.Load (URL)

GPS = XML.SelectSingleNode(" / reversegeocode / result").Text

End Function

 

Depois vá para uma célula qualquer e utilise a fórmula GPS passando a latidade e a longitude como variáveis

 

Exemplo:

=GPS(E3;F3)