Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 10-11-2017, 10:08   #1
fearpirat
Altın Üye
 
Giriş: 06/11/2016
Şehir: İstanbul
Mesaj: 15
Excel Vers. ve Dili:
2010 professional plus
Exclamation VBA enlem boylam kod hatası hakkında

Arkadaşlar ,

istediğim şey basit sütün 1 de bulunan adresin sütun 2 de enlem ve boylamını getirmek istiyorum.
Elimde bulduğum bir kod bulunuyor ama arama esnasında hata alıyorum.
Bu konuda yardım edebilecek arkadaş var mı.
Çalıştırabilirmisiniz ?

Kodu aldığım adres ;
https://www.google.com.tr/amp/grindg...and-google/amp

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Function MyGeocode(address As String) As String
  Dim strAddress As String
  Dim strQuery As String
  Dim strLatitude As String
  Dim strLongitude As String
  strAddress = URLEncode(address)
  'Assemble the query string
  strQuery = "http://maps.googleapis.com/maps/api/geocode/xml?"
  strQuery = strQuery & "address=" & strAddress 
  strQuery = strQuery & "&sensor=false"
  'define XML and HTTP components
  Dim googleResult As New MSXML2.DOMDocument
  Dim googleService As New MSXML2.XMLHTTP
  Dim oNodes As MSXML2.IXMLDOMNodeList
  Dim oNode As MSXML2.IXMLDOMNode
  'create HTTP request to query URL - make sure to have
  'that last "False" there for synchronous operation
  googleService.Open "GET", strQuery, False
  googleService.send
  googleResult.LoadXML (googleService.responseText)
  Set oNodes = googleResult.getElementsByTagName("geometry")
  If oNodes.Length = 1 Then
    For Each oNode In oNodes
      strLatitude = oNode.ChildNodes(0).ChildNodes(0).Text
      strLongitude = oNode.ChildNodes(0).ChildNodes(1).Text
      MyGeocode = strLatitude & "," & strLongitude
    Next oNode
  Else
    MyGeocode = "Not Found (try again, you may have done too many too fast)"
  End If
End Function
Public Function URLEncode(StringVal As String, Optional SpaceAsPlus As Boolean = False) As String
  Dim StringLen As Long: StringLen = Len(StringVal)
  If StringLen>0 Then
    ReDim result(StringLen) As String
    Dim i As Long, CharCode As Integer
    Dim Char As String, Space As String
    If SpaceAsPlus Then Space = "+" Else Space = "%20"
    For i = 1 To StringLen
      Char = Mid$(StringVal, i, 1)  
      CharCode = Asc(Char)
      Select Case CharCode
      Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126
        result(i) = Char
      Case 32
        result(i) = Space
      Case 0 To 15
        result(i) = "%0" & Hex(CharCode)
      Case Else
        result(i) = "%" & Hex(CharCode)
      End Select
    Next i
    URLEncode = Join(result, "")
  End If
End Function
fearpirat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 10:30   #2
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,060
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Verdiğiniz linkte ve aşağıdaki resimde belirtilen Microsoft XML v6.0 referansını eklediniz mi?


__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 10:39   #3
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,060
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Bu referansı eklediyseniz, çalışması lazım.

Bir de; adreste Türkçe karakterler kullanmadan deneyin ....

.
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 11:13   #4
fearpirat
Altın Üye
 
Giriş: 06/11/2016
Şehir: İstanbul
Mesaj: 15
Excel Vers. ve Dili:
2010 professional plus
Varsayılan

Evet daha öncede bu şekilde bir kod kullandım. Kod sayfasında direk hata alıyorum.
kendiniz denediğiniz de oluyor ise örnek excell i gönderebilme şansınız mevcut mudur ?
fearpirat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 11:15   #5
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,060
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Çalışan dosya ektedir...

.
Eklenmiş Dosyalar
Dosya Türü: xlsm Google_Coordinates_of_Adresses.xlsm (18.5 KB, 7 Görüntülenme)
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 12:39   #6
fearpirat
Altın Üye
 
Giriş: 06/11/2016
Şehir: İstanbul
Mesaj: 15
Excel Vers. ve Dili:
2010 professional plus
Varsayılan


ilgili resimdeki gibi bir hata alıyorum bunu çözebilirmiyiz.
fearpirat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 13:19   #7
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,060
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Saniyorum daha once belirttigim referansi eklememisiniz.

Benim gonderdigim dosyayi denediniz mi?

.
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 13:22   #8
fearpirat
Altın Üye
 
Giriş: 06/11/2016
Şehir: İstanbul
Mesaj: 15
Excel Vers. ve Dili:
2010 professional plus
Varsayılan

Evet sizin gönderdiğiniz de yine aynı problemi alıyorum. referans ekli , çünkü km hesaplamalı bir kod hali hazırda kullandığım için referans problemi konusunda tecrübe sahibi oldum.
Exceli açtığımda
Kodlarda en üst satır sarı renkte oluyor ,
Dim googleResult As New MSXML2.DOMDocument bu satırda da duruyor.

Ekli olan referanslar,
Visual Basic for Applications
Microsof excel 16.0 object library
Microsof office 16.0 object library
OLE automation
Microsoft XML, v6.0
fearpirat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 13:41   #9
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,060
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Profilinizde Office 2010 yaziyor ama baska bir versiyon kullaniyorsunuz galiba. Oyle mi?

.
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 13:50   #10
fearpirat
Altın Üye
 
Giriş: 06/11/2016
Şehir: İstanbul
Mesaj: 15
Excel Vers. ve Dili:
2010 professional plus
Varsayılan

Normal de ev bilgisayarımda office 2010 kullanıyorum .
Şirkette bulunduğum için burdaki bilgasayarlarımız ; office standart 2016
fearpirat Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 14:13


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden