Çözüldü Google Maps Koordinat Bulma

menfis · 8 Ocak 2021

Merhaba,

Personellerin adreslerinin bulunduğu bir excel var elimde. Bu adresleri google mapsten otomatik olarak çekip koordinatlarını yapıştırabilecek bir kod var mı bildiğiniz ? Exceli dosya ekle kısmından ekledim.

Teşekkürler, İyi Çalışmalar

menfis · 10 Ocak 2021

Feyzullah · 11 Ocak 2021

Ekli Dosyaki KTF-UDF (Kullanıcı Tanımlı Formül) deneyiniz.

Google Maps üzerinden API'siz yapabildiğim bu benim, bundan ötesi beni aşar. Google API'niz var ise google arattıp bulabilirsiniz ilgili kodları.

Kullanımı:
Hücreye aşağıdaki şekilde yazıp =XDAdresKordinat(Adres;İLÇE;İL) şeklinde 3 hücreli giriş yapacaksınız.
=XDAdresKordinat(E1;G1;F1)

Tukayf · 11 Ocak 2021

Zihninize sağlık hocam ancak ben denemelerimde hiç doğru sonuç alamadım.

menfis · 11 Ocak 2021

Elinize sağlık hocam ama sonuçlar çok çok alakasız olmuş yani sokak sapması olsa mahalle doğru olsa yine yeterli olurdu fakat burada nereyi yazarsam yazayım rizeye çeviriyor. Bunu google maps apili nasıl yapabiliriz peki? Sanırım farklı bir üyenin de ihtiyacı var yapabilirsem buraya koyarım en azından o da yararlanabilir

menfis · 13 Ocak 2021

Merhaba var mı anlatabilecek acaba kitlendim hiç birşey yapamıyorum

Ömer BARAN · Pazar - 02:43

Sayın @Feyzullah 'ın eklediği belgede;
fark ettiğim şey; koordinat bilgilerinden enlem bilgisinin doğru olarak geldiği,
boylam bilgisi yerine ise enlem bilgisinin aynısının geldiği.

Kendisinin eklediği örnek belgedeki ilk adres için 41.0007759999 , 41.0007759999
şeklinde aynı bilgi iki kez tekrarlanarak sonuç alınıyor.
Sanırım yanlış değil eksik bilgi alınıyor (ikinci kısım 28.78837 olmalı).

Umarım kendisi, konudaki sorunu fark edip göremediğim KTF kodlarında düzenleme yapacaktır.

.

Feyzullah · Pazar - 14:15

Ömer BARAN' Alıntı:
Sayın @Feyzullah 'ın eklediği belgede;
fark ettiğim şey; koordinat bilgilerinden enlem bilgisinin doğru olarak geldiği,
boylam bilgisi yerine ise enlem bilgisinin aynısının geldiği.

Kendisinin eklediği örnek belgedeki ilk adres için 41.0007759999 , 41.0007759999
şeklinde aynı bilgi iki kez tekrarlanarak sonuç alınıyor.
Sanırım yanlış değil eksik bilgi alınıyor (ikinci kısım 28.78837 olmalı).

Umarım kendisi, konudaki sorunu fark edip göremediğim KTF kodlarında düzenleme yapacaktır.

.

Kodlar düzeltilmiştir. 3 nolu mesajdaki dosya yenilenmiştir.

C#:

Function XDAdresKordinat(address As String, ilce As String, il As String)
    Dim firstVal As String, secondVal As String, lastVal As String
    firstVal = "https://www.google.com.tr/maps/place/"

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = Replace(address, " daire ", "+D:")
    URL = Replace(URL, " sokak ", " Sk.")
    URL = Replace(URL, " no ", "+No:")
    URL = Replace(URL, " mahallesi ", ",")
    URL = firstVal & Replace(URL, " ", "+") & "," & ilce & "%2F" & il
   
   
    objHTTP.Open "GET", URL, False

    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send

    a = Replace(Replace(Replace(URL, "+", " "), "https://www.google.com.tr/maps/place/", ""), "%2F", "/")
    a = Replace(a, "sokak", "Sk")
    txt = Replace(Split(Replace(objHTTP.responseText, "null,", ""), a)(1), ",", "+")
     
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
   
   
    reg.Pattern = "\[(\d{2}\.\d{3,7})"
    If reg.test(txt) Then deger = reg.Execute(txt)(0).Submatches(0)
   
   
    reg.Pattern = "\+(\d{2}\.\d{3,7})\]"
    If reg.test(txt) Then deger1 = reg.Execute(txt)(0).Submatches(0)
   
    XDAdresKordinat = deger & " - " & deger1

End Function

menfis · Pazar - 16:03

Feyzullah' Alıntı:

Kodlar düzeltilmiştir.

C#:

Function XDAdresKordinat(address As String, ilce As String, il As String)
    Dim firstVal As String, secondVal As String, lastVal As String
    firstVal = "https://www.google.com.tr/maps/place/"

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = Replace(address, " daire ", "+D:")
    URL = Replace(URL, " sokak ", " Sk.")
    URL = Replace(URL, " no ", "+No:")
    URL = Replace(URL, " mahallesi ", ",")
    URL = firstVal & Replace(URL, " ", "+") & "," & ilce & "%2F" & il
   
   
    objHTTP.Open "GET", URL, False

    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send

    a = Replace(Replace(Replace(URL, "+", " "), "https://www.google.com.tr/maps/place/", ""), "%2F", "/")
    a = Replace(a, "sokak", "Sk")
    txt = Replace(Split(Replace(objHTTP.responseText, "null,", ""), a)(1), ",", "+")
     
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
   
   
    reg.Pattern = "\[(\d{2}\.\d{3,7})"
    If reg.test(txt) Then deger = reg.Execute(txt)(0).Submatches(0)
   
   
    reg.Pattern = "\+(\d{2}\.\d{3,7})\]"
    If reg.test(txt) Then deger1 = reg.Execute(txt)(0).Submatches(0)
   
    XDAdresKordinat = deger & " - " & deger1

End Function

Hocam emeğinize sağlık fakat vba bilgim hiç yok buna benzer değiştirecek kodları da bulamadım. Kontrol edebilir misiniz rica etsem ?

Feyzullah · Pazar - 16:26

menfis' Alıntı:
Hocam emeğinize sağlık fakat vba bilgim hiç yok buna benzer değiştirecek kodları da bulamadım. Kontrol edebilir misiniz rica etsem ?

3.nolu mesajda bulunan dosyayı tekrar indirin.

menfis · Dün 09:10 da

Hocam elinize emeğinize sağlık çok teşekkür ederim. Gerisini rahatlıkla halledebilirim

çok sağolun

Feyzullah · Dün 10:35 da

İyi çalışmalar

Çözüldü Google Maps Koordinat Bulma

menfis

Yeni Üye

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

Feyzullah

menfis

Yeni Üye

Feyzullah

Feyzullah KILINÇ - XD Yönetim

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

Tukayf

Yeni Üye

menfis

Yeni Üye

menfis

Yeni Üye

Ömer BARAN

Kurucu

Feyzullah

Feyzullah KILINÇ - XD Yönetim

menfis

Yeni Üye

Feyzullah

Feyzullah KILINÇ - XD Yönetim

menfis

Yeni Üye

Feyzullah

Feyzullah KILINÇ - XD Yönetim

Benzer Konular