Google Maps and Earth

[pekajo]

Hi
Can anyone give me the vba code for getting google maps and earth (different buttons) in a browser from Street,suburb,state and post code fields.

Thanks
Peter

 

[zeroaccess]

Are you trying to open a browser to Google Maps based on text box fields?

The URL needs to be built using the GPS coordinates. If you can find that, that would be a good start.

 

[theDBguy]

Hi Peter. Have you tried using?

Application.FollowHyperlink

 

[Saphirah]

Hey. So. Google Maps Links can either be created using the coordinates or your can search for specific places.
Here is an example of a google maps link:

https://www.google.com/maps/place/64807+Dieburg+Lessingstrasse+DE/

This will show the Place Dieburg in Germany
(64807 is the post code, Dieburg is the name of the city and Lessingstrasse is the street name. DE is the country code for germany.)

So what you want to do is something like this. Lets say you have a web view called "browser".

Dim postCode As String 'Of cause you need to assign something to these variables
Dim countryCode As String
Dim street As String

browser.ControlSource = "=""https://www.google.com/maps/place/" & postCode & "+" & street & "+" & countryCode & "/"""

 

[strive4peace]

hi pekajo,

if you want the map to open in its own window, you can use Application.FollowHyperlink sURL where sURL is the string for the URL. Note that it must be a valid address! If anything is wrong or not found, you won't even get a map that is close.

I also use a different form for the URL:

   Dim vURL As Variant _
      , sURL As String
 
   vURL = Null
 
   With Me.Street
      If Not IsNull(.Value) Then
         vURL = (vURL + " ") & .Value
      End If
   End With
 
   With Me.suburb
      If Not IsNull(.Value) Then
         vURL = (vURL + " ") & .Value
      End If
   End With
 
   With Me.St 'State
      If Not IsNull(.Value) Then
         vURL = (vURL + " ") & .Value
      End If
   End With
 
   With Me.PostCode
      If Not IsNull(.Value) Then
         vURL = (vURL + " ") & .Value
      End If
   End With
 
   sURL = "https://maps.google.com/maps?q=" & vURL
   Application.FollowHyperlink sURL

 

[Uncle Gizmo]

I answered a question a while back which did something similar to Google but on a different platform and with ships... See attached!

Here:-

ANTHEM OF THE SEAS Current position (Passenger (Cruise) Ship, IMO 9656101) - VesselFinder

ANTHEM OF THE SEAS last position is 26 N, 122 E heading to Jeju with speed of 19.5 knots. TRACK ON MAP...

www.vesselfinder.com