如何将fixer.io json输出解析为excel（对于傻瓜）

Question

我在VBA中使用FIXER.IO流行的API来获取我的工作表中名为USD，CNY，INR等的一些单元格的汇率。 Fixer.io API返回了一个文本格式，给出了我需要的费率。 截至2018年3月6日，旧的Fixer API（api.fixer.io）已弃用并更改为需要API访问密钥的新版本（在注册时获取）但仅返回JSON文件。如果我打电话给网址：

http://data.fixer.io/api/latest?access_key=XXXXXXXXXXXX&symbols=USD,CNY,INR,THB,SGD,AUD

我得到了这个JSON：

{"success":true,"timestamp":1523343843,"base":"EUR","date":"2018-04-10","rates":{"USD":1.231986,"CNY":7.757563,"INR":79.980529,"THB":38.462602,"SGD":1.614924,"AUD":1.592345}}

如何解析Excel变量（USD，CNY ...）中的交换值？ 我试着环顾四周，但我非常有限的编程技巧并没有帮助我适应任何解决方案。请给出一个＆＃34; for dummy＆＃34;回复:) 感谢您提供的任何帮助 问候 马可

Answer 1

看看下面的例子。 将JSON.bas模块导入VBA项目以进行JSON处理。

if let json = try JSONSerialization.jsonObject(with: data!, options: .allowFragments) as? [String:Any], let pirces = json["prices"] // checking json is formed well.
{
 for price in prices { // iterating throught array that you received. 
    print (price["Price"])
  }
}

我的输出如下：

顺便说一句，类似的方法适用于以下答案：1，2，3，4，5，6， 7，8，9，10，11，12，13，14，{{ 3}}和15。