Геокодирование через Яндекс-карты
Ru1-
Дата: Пятница, 10.01.2014, 21:55 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
1
±
Замечаний:
40% ±
Excel 2010
Всем добрый вечер! Буду бесконечно благодарен за любую помощь по вопросу обратного геокодирования Яндекс-карт. Задачу получилось реализовать с помощью Google API, но к сожалению, Google не дает требуемой точности определения координат (некоторых населенных пунктов вообще нет на карте). Попытался все переписать для Яндекса, но никак не получается заставить код работать. [vba]Код
Option Explicit Function getYandexMapsGeocode(sAddr As String) As String Dim xhrRequest As XMLHTTP60 Dim sQuery As String Dim domResponse As DOMDocument60 Dim LatLng As IXMLDOMNode getYandexMapsGeocode = "" Set xhrRequest = New XMLHTTP60 sQuery = "http://geocode-maps.yandex.ru/1.x/?results=1&geocode=" sQuery = sQuery & Replace(sAddr, " ", "+") xhrRequest.Open "GET", sQuery, False xhrRequest.send Set domResponse = New DOMDocument60 domResponse.LoadXML xhrRequest.responseText Set LatLng = domResponse.SelectSingleNode("/ymaps/GeoObjectCollection/featureMember/GeoObject/Point/pos") getYandexMapsGeocode = LatLng.Text 'Pause Dim d As Date d = DateAdd("s", 1, Now) Do While Now < d DoEvents Loop End Function
[/vba] Заранее большое спасибо! UPD: Файл во вложении.
Всем добрый вечер! Буду бесконечно благодарен за любую помощь по вопросу обратного геокодирования Яндекс-карт. Задачу получилось реализовать с помощью Google API, но к сожалению, Google не дает требуемой точности определения координат (некоторых населенных пунктов вообще нет на карте). Попытался все переписать для Яндекса, но никак не получается заставить код работать. [vba]Код
Option Explicit Function getYandexMapsGeocode(sAddr As String) As String Dim xhrRequest As XMLHTTP60 Dim sQuery As String Dim domResponse As DOMDocument60 Dim LatLng As IXMLDOMNode getYandexMapsGeocode = "" Set xhrRequest = New XMLHTTP60 sQuery = "http://geocode-maps.yandex.ru/1.x/?results=1&geocode=" sQuery = sQuery & Replace(sAddr, " ", "+") xhrRequest.Open "GET", sQuery, False xhrRequest.send Set domResponse = New DOMDocument60 domResponse.LoadXML xhrRequest.responseText Set LatLng = domResponse.SelectSingleNode("/ymaps/GeoObjectCollection/featureMember/GeoObject/Point/pos") getYandexMapsGeocode = LatLng.Text 'Pause Dim d As Date d = DateAdd("s", 1, Now) Do While Now < d DoEvents Loop End Function
[/vba] Заранее большое спасибо! UPD: Файл во вложении.Ru1-
Сообщение отредактировал Ru1- - Пятница, 10.01.2014, 22:22
Ответить
Сообщение Всем добрый вечер! Буду бесконечно благодарен за любую помощь по вопросу обратного геокодирования Яндекс-карт. Задачу получилось реализовать с помощью Google API, но к сожалению, Google не дает требуемой точности определения координат (некоторых населенных пунктов вообще нет на карте). Попытался все переписать для Яндекса, но никак не получается заставить код работать. [vba]Код
Option Explicit Function getYandexMapsGeocode(sAddr As String) As String Dim xhrRequest As XMLHTTP60 Dim sQuery As String Dim domResponse As DOMDocument60 Dim LatLng As IXMLDOMNode getYandexMapsGeocode = "" Set xhrRequest = New XMLHTTP60 sQuery = "http://geocode-maps.yandex.ru/1.x/?results=1&geocode=" sQuery = sQuery & Replace(sAddr, " ", "+") xhrRequest.Open "GET", sQuery, False xhrRequest.send Set domResponse = New DOMDocument60 domResponse.LoadXML xhrRequest.responseText Set LatLng = domResponse.SelectSingleNode("/ymaps/GeoObjectCollection/featureMember/GeoObject/Point/pos") getYandexMapsGeocode = LatLng.Text 'Pause Dim d As Date d = DateAdd("s", 1, Now) Do While Now < d DoEvents Loop End Function
[/vba] Заранее большое спасибо! UPD: Файл во вложении.Автор - Ru1- Дата добавления - 10.01.2014 в 21:55
doober
Дата: Пятница, 10.01.2014, 22:27 |
Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация:
323
±
Замечаний:
0% ±
Excel 2010
Используйте для работы api-maps.yandex Geocoder.xml api-maps.yandex Router.xml
Используйте для работы api-maps.yandex Geocoder.xml api-maps.yandex Router.xml doober
Сообщение отредактировал doober - Пятница, 10.01.2014, 22:56
Ответить
Сообщение Используйте для работы api-maps.yandex Geocoder.xml api-maps.yandex Router.xml Автор - doober Дата добавления - 10.01.2014 в 22:27
Ru1-
Дата: Понедельник, 13.01.2014, 20:45 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
1
±
Замечаний:
40% ±
Excel 2010
Большое спасибо за помощь! Тему можно закрывать.
Большое спасибо за помощь! Тему можно закрывать. Ru1-
Ответить
Сообщение Большое спасибо за помощь! Тему можно закрывать. Автор - Ru1- Дата добавления - 13.01.2014 в 20:45
Юлия
Дата: Вторник, 30.09.2014, 17:43 |
Сообщение № 4
а не могли бы вы для особо одаренных прислать код с иправлениями? я не могу разобраться
а не могли бы вы для особо одаренных прислать код с иправлениями? я не могу разобраться Юлия
Ответить
Сообщение а не могли бы вы для особо одаренных прислать код с иправлениями? я не могу разобраться Автор - Юлия Дата добавления - 30.09.2014 в 17:43
dishkina
Дата: Пятница, 10.10.2014, 17:43 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Я тоже не понимаю где использовать api-maps.yandex. Подскажите, пожалуйста!
Я тоже не понимаю где использовать api-maps.yandex. Подскажите, пожалуйста! dishkina
Ответить
Сообщение Я тоже не понимаю где использовать api-maps.yandex. Подскажите, пожалуйста! Автор - dishkina Дата добавления - 10.10.2014 в 17:43
MadZu
Дата: Четверг, 06.11.2014, 18:40 |
Сообщение № 6
заменил DOMDocument60 на DOMDocument и работает
заменил DOMDocument60 на DOMDocument и работает MadZu
Ответить
Сообщение заменил DOMDocument60 на DOMDocument и работает Автор - MadZu Дата добавления - 06.11.2014 в 18:40
Madfruit
Дата: Пятница, 07.11.2014, 22:33 |
Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
заменил DOMDocument60 на DOMDocument и работает
Спасибо, за подсказку. Но вот только при написании адреса по-русски координаты гугл не проставляются. Как быть?
заменил DOMDocument60 на DOMDocument и работает
Спасибо, за подсказку. Но вот только при написании адреса по-русски координаты гугл не проставляются. Как быть?Madfruit
Сообщение отредактировал Madfruit - Пятница, 07.11.2014, 22:34
Ответить
Сообщение заменил DOMDocument60 на DOMDocument и работает
Спасибо, за подсказку. Но вот только при написании адреса по-русски координаты гугл не проставляются. Как быть?Автор - Madfruit Дата добавления - 07.11.2014 в 22:33
doober
Дата: Суббота, 08.11.2014, 00:43 |
Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация:
323
±
Замечаний:
0% ±
Excel 2010
Гугл каким боком к этой теме. USE Google Спросить у Гугла [vba]Код
'Узнать координаты Привоза Url="http://maps.googleapis.com/maps/api/geocode/xml?address=Одесса+Привоз&sensor=false" 'Узнать высоту над уровнем моря Url="http://maps.googleapis.com/maps/api/elevation/xml?locations=46.4679650,30.7359110&sensor=false"
[/vba]
Гугл каким боком к этой теме. USE Google Спросить у Гугла [vba]Код
'Узнать координаты Привоза Url="http://maps.googleapis.com/maps/api/geocode/xml?address=Одесса+Привоз&sensor=false" 'Узнать высоту над уровнем моря Url="http://maps.googleapis.com/maps/api/elevation/xml?locations=46.4679650,30.7359110&sensor=false"
[/vba] doober
Сообщение отредактировал doober - Суббота, 08.11.2014, 00:48
Ответить
Сообщение Гугл каким боком к этой теме. USE Google Спросить у Гугла [vba]Код
'Узнать координаты Привоза Url="http://maps.googleapis.com/maps/api/geocode/xml?address=Одесса+Привоз&sensor=false" 'Узнать высоту над уровнем моря Url="http://maps.googleapis.com/maps/api/elevation/xml?locations=46.4679650,30.7359110&sensor=false"
[/vba] Автор - doober Дата добавления - 08.11.2014 в 00:43
Madfruit
Дата: Суббота, 08.11.2014, 23:45 |
Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Гугл каким боком к этой теме.
Спасибо за проявленный интерес к моей проблеме. Согласен, про гугл по теме не обсуждается. Однако, проблема отображения русского языка при геокодировании в этой задачке для меня актуальна. Яндекс это делает на ура, а гугл филонит. Прошу помочь в решении и поправить код, т.к. не смог разобраться в макросах. Заранее большое спасибо! UPD: Файл во вложении.
Гугл каким боком к этой теме.
Спасибо за проявленный интерес к моей проблеме. Согласен, про гугл по теме не обсуждается. Однако, проблема отображения русского языка при геокодировании в этой задачке для меня актуальна. Яндекс это делает на ура, а гугл филонит. Прошу помочь в решении и поправить код, т.к. не смог разобраться в макросах. Заранее большое спасибо! UPD: Файл во вложении.Madfruit
Сообщение отредактировал Madfruit - Суббота, 08.11.2014, 23:45
Ответить
Сообщение Гугл каким боком к этой теме.
Спасибо за проявленный интерес к моей проблеме. Согласен, про гугл по теме не обсуждается. Однако, проблема отображения русского языка при геокодировании в этой задачке для меня актуальна. Яндекс это делает на ура, а гугл филонит. Прошу помочь в решении и поправить код, т.к. не смог разобраться в макросах. Заранее большое спасибо! UPD: Файл во вложении.Автор - Madfruit Дата добавления - 08.11.2014 в 23:45
doober
Дата: Воскресенье, 09.11.2014, 02:06 |
Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация:
323
±
Замечаний:
0% ±
Excel 2010
Одесса рулит в Гугле Использовал функцию RussianStringToURLEncode от Игоря (EducatedFool)
Одесса рулит в Гугле Использовал функцию RussianStringToURLEncode от Игоря (EducatedFool) doober
Ответить
Сообщение Одесса рулит в Гугле Использовал функцию RussianStringToURLEncode от Игоря (EducatedFool) Автор - doober Дата добавления - 09.11.2014 в 02:06
wot
Дата: Пятница, 06.02.2015, 10:58 |
Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Уточните по прямому геокодированию, по координатам необходимо найти адрес, изучил несколько форумов, решений нет. спасибо заранее. [moder]Тема закрыта. Нарушение п.5q Правил форума
Уточните по прямому геокодированию, по координатам необходимо найти адрес, изучил несколько форумов, решений нет. спасибо заранее. [moder]Тема закрыта. Нарушение п.5q Правил форума wot
Сообщение отредактировал wot - Пятница, 06.02.2015, 10:59
Ответить
Сообщение Уточните по прямому геокодированию, по координатам необходимо найти адрес, изучил несколько форумов, решений нет. спасибо заранее. [moder]Тема закрыта. Нарушение п.5q Правил форума Автор - wot Дата добавления - 06.02.2015 в 10:58