- Откройте Excel и включите отображение вкладки «Разработчик»
- Перейдите в редактор Visual Basic (в ленте Разработчик > Visual Basic).
- Откройте список ссылок: в меню Tools > References...
- Отметьте пункты «Microsoft Scripting Runtime» и «Microsoft VBScript Regular Expressions 5.5». Нажмите OK.
- Скачайте архив с библиотекой VBA-JSON. Распакуйте его.
- В меню File > Import file... выберите JsonConverter.bas из распакованного архива.
- Откройте модуль Лист1.
- Скопируйте код из примера в модуль.
- Замените значение константы API_KEY с CHANGE_ME на ваш API-ключ.
Введите название компании или ИНН в ячейку A1, нажмите «энтер». В соседних ячейках появятся реквизиты компании из Подсказок.
Добрый день. Спасибо nalgeon за код. Для обработки ИНН в столбце А последовательно для каждого ряда мне помогла замена строк 104-117 на:
Мне необходимо было на сайте клиента сделать Яндекс карту с метками продаж. Для этих целей понадобились долгота и широта адреса организации: Function ExtractLongitude и Function ExtractLatitude.
Соответственно убирайте/закомментируйте лишние столбцы с данными, если они вам не нужны.