Есть столбец с адресом , необходимо с помощью функции заполнить соседние ячейки геокоординатами, адресом по яндексу, и в дальнейшем такую же функцию но уже определение адреса по координатам.
Нашел один вариант решения, но он почему то не работает, пишет Compile error: User-defined type not defined. Подсвечивает строку : Dim xhrRequest As XMLHTTP60
Вот этот пример.
Function YandexPlace(sAddr As String) As String
Dim xhrRequest As XMLHTTP60 Dim sQuery As String Dim domResponse As DOMDocument60 Dim ixnStatus As IXMLDOMNode Dim ixnLat As IXMLDOMNode Dim ixnLng As IXMLDOMNode
YandexPlace = ""
Set xhrRequest = New XMLHTTP60 sQuery = "http://geocode-maps.yandex.ru/1.x/?geocode=" sQuery = sQuery & sAddr xhrRequest.Open "GET", sQuery, False xhrRequest.send
Set domResponse = New DOMDocument60 domResponse.LoadXML xhrRequest.responseText Set ixnStatus = domResponse.SelectSingleNode("//status")
также на этом сайте нашел похожую тему , http://www.excelworld.ru/forum/10-8308-1#77262 Взял оттуда функцию, но все равно пишет Compile error: User-defined type not defined, подсвечивая строку Dim xhrRequest As XMLHTTP60
как исправить чтобы все заработало?
Добрый день , имею такую проблему (excel 2010)
Есть столбец с адресом , необходимо с помощью функции заполнить соседние ячейки геокоординатами, адресом по яндексу, и в дальнейшем такую же функцию но уже определение адреса по координатам.
Нашел один вариант решения, но он почему то не работает, пишет Compile error: User-defined type not defined. Подсвечивает строку : Dim xhrRequest As XMLHTTP60
Вот этот пример.
Function YandexPlace(sAddr As String) As String
Dim xhrRequest As XMLHTTP60 Dim sQuery As String Dim domResponse As DOMDocument60 Dim ixnStatus As IXMLDOMNode Dim ixnLat As IXMLDOMNode Dim ixnLng As IXMLDOMNode
YandexPlace = ""
Set xhrRequest = New XMLHTTP60 sQuery = "http://geocode-maps.yandex.ru/1.x/?geocode=" sQuery = sQuery & sAddr xhrRequest.Open "GET", sQuery, False xhrRequest.send
Set domResponse = New DOMDocument60 domResponse.LoadXML xhrRequest.responseText Set ixnStatus = domResponse.SelectSingleNode("//status")
также на этом сайте нашел похожую тему , http://www.excelworld.ru/forum/10-8308-1#77262 Взял оттуда функцию, но все равно пишет Compile error: User-defined type not defined, подсвечивая строку Dim xhrRequest As XMLHTTP60
Как и куда добавить ссылку на XML6? Скачал пример 5312270 в вашем ответе, но у меня все та же ошибка - Compile error: User-defined type not defined, подсвечивая строку Dim xhrRequest As XMLHTTP60
Как и куда добавить ссылку на XML6? Скачал пример 5312270 в вашем ответе, но у меня все та же ошибка - Compile error: User-defined type not defined, подсвечивая строку Dim xhrRequest As XMLHTTP60svd2017
Что такое позднее связывание? что конкретно нужно сделать , куда и что вписать?
Скачал Ваш новый пример, такая штука получается - при открытии вашего документа вижу что координаты проставились, потом нажимаю "разрешить редактирование" и ячейка с координатами превращается в "#ИМЯ?",
далее нажимаю включить макросы и та же ячейка превращается в "#ЗНАЧ!" и координат я уже не вижу...
хотя надпись про Compile error: User-defined type not defined больше не появляется...
Что такое позднее связывание? что конкретно нужно сделать , куда и что вписать?
Скачал Ваш новый пример, такая штука получается - при открытии вашего документа вижу что координаты проставились, потом нажимаю "разрешить редактирование" и ячейка с координатами превращается в "#ИМЯ?",
далее нажимаю включить макросы и та же ячейка превращается в "#ЗНАЧ!" и координат я уже не вижу...
хотя надпись про Compile error: User-defined type not defined больше не появляется...svd2017
Сообщение отредактировал svd2017 - Понедельник, 28.08.2017, 01:28
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
