使用VBA从HTML中提取xml值

如何使用VBA提取html xml。我想得到“4.2117”的值

链接：

---

我使用xhttpresest从

https://api.nbp.pl/api/exchangerates/rates/a/eur/

并在输出Div中显示结果

希望这就是你想要的

var xhttp=new-XMLHttpRequest（）；
xhttp.onreadystatechange=函数（）{
if（this.readyState==4&&this.status==200）{
var result=JSON.parse（this.responseText）；
document.getElementById（“output”）.innerHTML=result['rates'][0]['mid']；
}
};
xhttp.open（“GET”https://api.nbp.pl/api/exchangerates/rates/a/eur/“，对）；
xhttp.send（）

请稍候
OP正在查找VBA代码。您发布的内容不是。欢迎使用SO。这不是一个免费的代码编写服务，但我们可以帮助您使用复杂的公式或您试图开发的代码。首先，采取行动。然后阅读帮助主题以及您提供的链接仅返回一行，因此您可以使用文本函数解析它。
{“table”：“a”，“currency”：“euro”，“code”：“EUR”，“rates”：[{“no”：“121/a/NBP/2017”，“effectiveDate”：“2017-06-26”，“mid”：4.2117}
<ExchangeRatesSeries xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<Table>A</Table>
<Currency>euro</Currency>
<Code>EUR</Code>
<Rates>
<Rate>
<No>121/A/NBP/2017</No>
<EffectiveDate>2017-06-26</EffectiveDate>
<Mid>4.2117</Mid>
</Rate>
</Rates>
</ExchangeRatesSeries>