PIECE OF CAKE - Defina a Latitude e a Longitude - Find Latitude and Longitude of any address using Google Map API and VBA

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

Digamos que queira saber a Latitude e a Longitude de qualquer endereço. Como faria? Poderá usar a solução abaixo:

Baixe a planilha com o código

Function Lat_Lon (a_t As String, c_t As String, s_t As String, co_t As String, z_t As String)
Dim sURL As String
Dim BodyTxt As String
Dim apan As String, la_t As String, lo_g As String
Dim oXH As Object

' Criando a URL
Let sURL = "http://maps.googleapis.com/maps/api/geocode/xml?address="""
Let sURL = sURL & Replace(a_t, " ", "+") & ",+" & _
                                Replace(c_t, " ", "+") & ",+" & _
                                Replace(s_t, " ", "+") & ",+" & _
                                Replace(co_t, " ", "+") & ",+" & ",+" & _
                                Replace(z_t, " ", "+") & ",+" & "&sensor=false"""

' Informando o URL para o browse
Set oXH = CreateObject("msxml2.xmlhttp")

With oXH
.Open "get", sURL, False
.Send
Let BodyTxt = .RESPONSETEXT
End With

Let apan = Application.WorksheetFunction.Trim(BodyTxt)

'Latitude
Let apan = Right(apan, Len(apan) - InStr(1, apan, "<lat>") - 4)
Let la_t = Left(apan, InStr(1, apan, "</lat>") - 1)

'Longitude
Let apan = Right(apan, Len(apan) - InStr(1, apan, "<lng>") - 4)
Let lo_g = Left(apan, InStr(1, apan, "</lng>") - 1)
Let lat_lon = "Lat:" & la_t & " Lng:" & lo_g

End Function

#A&A #Google #GoogleMap #API #GoogleAPI #VBA #Latitude #Longitude #PIECEOFCAKE #POC

Defina a Latitude e a Longitude - Find Latitude and Longitude of any address using Google Map API and VBA

VBA Excel - Traduzindo Planilhas - MS Excel VBA Script to Translate worksheets using the Google Translate API

Excel - Manipule o Google Maps em sua Planilha - Put a Google Map in your Spreadsheet

Convertendo Texto em Imagem - Convert Text to an Image using the VBA Windows API

Correção de Métricas - For Subscripts, Superscripts and Common Typos

MS Access - Cinco Formas Manuais de Reparo

MS Access e MS Word - Técnica de Automação

Microsoft Access - Removendo Prefixo das Tabelas

Sempre Use Stored Procedures - Always Use Stored Procedures

A&A - Dados ou Informações?

Consulte-nos

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

• VBA Specialist® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist® 

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com