Пример вызова Стандартизации DaData.ru из Excel ----- ### Как подключить пример 1. Откройте Excel и [включите отображение вкладки «Разработчик»](https://support.office.com/ru-ru/article/%D0%9E%D1%82%D0%BE%D0%B1%D1%80%D0%B0%D0%B6%D0%B5%D0%BD%D0%B8%D0%B5-%D0%B2%D0%BA%D0%BB%D0%B0%D0%B4%D0%BA%D0%B8-%C2%AB%D0%A0%D0%B0%D0%B7%D1%80%D0%B0%D0%B1%D0%BE%D1%82%D1%87%D0%B8%D0%BA%C2%BB-e1192344-5e56-4d45-931b-e5fd9bea2d45) 2. Перейдите в редактор Visual Basic (в ленте Разработчик > Visual Basic). 3. Откройте список ссылок: в меню Tools > References... 4. Отметьте пункты «Microsoft Scripting Runtime» и «Microsoft VBScript Regular Expressions 5.5». Нажмите OK. 6. Скачайте архив с библиотекой [VBA-JSON](https://github.com/VBA-tools/VBA-JSON/archive/v2.3.1.zip). Распакуйте его. 7. В меню File > Import file... выберите JsonConverter.bas из распакованного архива. 6. Откройте модуль Лист1. 7. Скопируйте код из примера в модуль. 8. Замените значение константы API_KEY с CHANGE_ME на ваш API-ключ. 9. Замените значение константы SECRET_KEY с CHANGE_ME на ваш секретный ключ. ### Как работает пример Введите адрес в ячейку A1, нажмите «энтер». В соседних ячейках появятся почтовый индекс, стандартизованный адрес одной строкой и код проверки адреса. Получить другие поля можно по аналогии, см. процедуру `Worksheet_Change`. Обратите внимание, что это API платное, оплачивается [за каждый запрос](https://dadata.ru/pricing/#clean).