了解当前经济，VBA一键获取不同货币实时汇率

了解当前经济数据，VBA一键获取不同货币间实时汇率

    当下较火的经济新闻：黄金价格、日元贬值、美元加息等，咱们不去分析了解这些经济变动背后的动机及原因，做一点本份的事，如何用VBA获取不同货币之间的实时汇率。这肯定是需要联网的，现从“外汇查询” 网站（https://www.waihui999.com/）上获取不同货币间的汇率。
网站截图：

    该网站实时货币汇率数据提取需要使用货币的英文缩写，我们平时常用的都是汉语，如“人民币”，“美元”，“欧元”等，这就需要将我们平时常用的货币名称由汉语转换为英文字母缩写。粗略算了一下，全世界的货币约200余种，如果都列举出来将有很大的工作量，且影响运行速度，现只将部分常用的货币种类列举转换。有其他需求的童鞋可自行添加其他货币。若已知其他外币的字母缩写，无需转换，可直接在Excel单元格内输入。
操作思路：
    1、用两个一维数组，列举常见货币种类，将货币种类由汉语转换为英文字母缩写；2、将转换后的货币英文字母缩写发送到网站，获取网站的反馈数据；3、选取反馈数据的有用信息，获得汇率数据。 
代码如下：
'获取不同货币间的实时汇率

Function GetExchangeRateAA(ex As String, cur As String) As String

Dim url, xmlhttp, responseText, e