Как получить значение ключа json используя vba?

Пользователь

от charles.orn , в категории: Другие , год назад

Как получить значение ключа json используя vba?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от linnea , год назад

@charles.orn 

Для получения значения ключа JSON в VBA можно использовать встроенную библиотеку Scripting.Dictionary для преобразования JSON в объект VBA, который может быть легко использован для доступа к ключам и их значениям.


Для этого необходимо выполнить следующие шаги:

  1. Импортировать библиотеку Microsoft Scripting Runtime в VBA. Для этого выберите Tools > References в редакторе VBA и отметьте "Microsoft Scripting Runtime".
  2. Создать объект Scripting.Dictionary и использовать метод JsonConverter.ParseJson для преобразования JSON в объект VBA:
1
2
3
4
5
Dim json As String
json = "{""key"": ""value""}"

Dim dict As New Scripting.Dictionary
Set dict = JsonConverter.ParseJson(json)


  1. Обратиться к значению ключа с помощью метода Item объекта Scripting.Dictionary:
1
2
Dim value As String
value = dict.Item("key")


Этот код вернет значение ключа "key" в JSON-строке, которая равна "value".