Hi guys!
Till recently I've been a normal private user of Google Maps API and I was
using this macro:
Sub Google()
>
> Dim MyRequest As Object
>
> Dim dlugosc As String
>
> Dim szerokosc As String
>
>
>> Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
>
> For i = 203 To 11448
>
> MyRequest.Open "GET", _
>
> "http://maps.google.com/maps/geo?q="; & Sheets(1).Cells(i, 1) &
>> "&output=csv&key=<key>"
>
>
>> ' Send Request.
>
>
>
> MyRequest.Send
>
>
>> 'And we get this response
>
> Sheets(1).Cells(i, 2).Value = MyRequest.ResponseText
>
> dlugosc = Mid(MyRequest.ResponseText, InStrRev(MyRequest.ResponseText,
>> ",") + 1, InStrRev(MyRequest.ResponseText, ","))
>
> szerokosc = Mid(Mid(MyRequest.ResponseText, 1,
>> InStrRev(MyRequest.ResponseText, ",") - 1),
>> InStrRev(Mid(MyRequest.ResponseText, 1, InStrRev(MyRequest.ResponseText,
>> ",") - 1), ",") + 1)
>
> Sheets(1).Cells(i, 3).Value = "'" & szerokosc
>
> Sheets(1).Cells(i, 4).Value = "'" & dlugosc
>
> newHour = Hour(Now())
>
> newMinute = Minute(Now())
>
> newSecond = Second(Now()) + 1
>
> waitTime = TimeSerial(newHour, newMinute, newSecond)
>
> Application.Wait waitTime
>
> If i Mod 50 = 0 Then
>
> Cells(i, 1).Select
>
> ThisWorkbook.Save
>
> End If
>
> Next
>
> End Sub
>
>
>>
to get gps coordinates from address data.
This week I've become fully business user and I don't know how to change
this macro to use my business client id and key to sign requests.
Can you help?
With regards,
PsmakR
--
You received this message because you are subscribed to the Google Groups
"Google Maps API V2" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
