Тема: VBA: Поиск геокоординат по данным в EXCEL
Добрый день. Уважаемые знатоки прошу подсказать как можно реализовать поиск координат в Excel через яндекс.карты
В Excel есть столбец с адресом, необходимо выполнить запрос к API яндекс, что бы в соседний столбец вывелись данные координат адреса.
Искал в интернете готовые решения не нашел, изучив немного параметры HTTP-запроса в яндекс картах сделал вот такой код на основе какого то кода найденого в интернете... прошу помочь составить запрос,
например в ячейке есть "Москва, Тверская, улица, 7" и vba делает запрос http://geocode-maps.yandex.ru/1.x/?geocode=Москва,+Тверская,+дом+7
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/?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
Dim d As Date
d = DateAdd("s", 1, Now)
Do While Now < d
DoEvents
Loop
End Function