如何为网站确定带有JSON响应的超链接（假设网站支持JSON）？

我正在开发一个小型VBA程序，从多个网站提取数据。我得到了一些结果，但有很多问题。对于这个特殊的问题，假设我想从这个链接中提取“状态”

https://www.molex.com/molex/products/part-detail/crimp_housings/0334724802

。目前，我使用以下代码：

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.Navigate "https://www.molex.com/molex/products/part-detail/crimp_housings/0334724802"
While IE.Busy = True: DoEvents: Wend

On Error GoTo checkstatus
debug.Print IE.Document.getElementsByClassName("status active vam")(0).innertext


' Clean up
IE.Quit
Set IE = Nothing

它大部分时间都能工作，但我仍然需要增加额外的等待时间，因为

IE.Busy

不是很可靠（尝试了

READYSTATE

）。我还必须捕获类名，因为

状态活动vam

可以更改为类似

状态计划vam

---

感谢这个网站的一位成员，我了解JSON，我知道如何运行API，和解析JSON结果，但我还没有弄清楚如何将标准超链接转换为可以返回JSON的超链接。

关于如何返回JSON的文档应该在您使用的api文档中。对于您现有的代码，请在IE.Busy=True或IE.ReadyState 4:DoEvents:Wend时添加，然后添加一个定时循环，测试所需节点的存在和/或类属性值的变化。