Excel 从URL从XML获取信息

我正在尝试从这个URL提取信息

我想提取的信息是102557，可以从XML URL的这一部分找到：

<zestimate>
<amount currency="USD">102557</amount>

---

试试这个，它对我有用。你只需要稍微修改一下就可以了

Sub GetInfo2()
    Dim objHttp As XMLHTTP60, objXml As DOMDocument60, strUrl As String

    Set objHttp = New XMLHTTP60
    Set objXml = New DOMDocument60

    strUrl = "https://www.zillow.com/webservice/GetSearchResults.htm?zws-id=X1-ZWz18hxnbvw0ej_40oka&address=2912%20WEST%201ST%20STREET%20UNIT%201&citystatezip=Jacksonville%20FL%2032254"

    With objHttp
        .Open "GET", strUrl, False
        .send
    End With

    If objXml.LoadXML(objHttp.responseText) Then
        Debug.Print objXml.DocumentElement.SelectSingleNode("response/results/result/zestimate/amount").Text
    End If
End Sub

。。。显然，我把它剥离回原始通话，以便我可以针对具体情况

这也适用于

objXml.DocumentElement.SelectSingleNode("//amount").Text

---

。。。不过要小心这一点。

你是在哪一行出错的？你好！我很高兴再次见到你的名字。真是松了一口气！错误出现在sdd=Html.querySelectorspan[class='zsg-tooltip-launch_关键字']0.innerText不要说得太快。：-事实上，我从来没有在你的另一个问题上尝试过异步，而对于这一个问题，我不得不花一点时间，而我目前没有，也许明天。。。如果你那时还没有得到答案。很抱歉至少现在每个人都知道哪一行出错了。哦，当然。我很高兴看到你的名字再次出现在我的一个问题上。你一直以来都是一个巨大的帮助，我真的很感激你：尽量不要使用保留字作为你的变量名，也就是说，把Http改成oHttp，把Html改成OHTMLHANKS，Skin！我已经修改了我的代码，并在其中添加了你的代码。现在我的部分代码是这样的：如果objXml.LoadXMLobjHttp.responseText，那么Debug.Print objXml.DocumentElement.SelectSingleNoderesponse/results/result/zestimate/amount.Text End如果i=i+1 DD.Cellsi，J=sdd，我在DD.Cellsi，J=sdd上得到一个错误。我也无法将sdd分配给调试。请打印objXml.DocumentElement.SelectSingleNoderesponse/results/result/zestimate/amount。Text@SoaringRioren删除debug.print，只需将其写入即时窗口以进行调试。这有点像其他语言中的console.writeline。这有意义吗？基本上，将debug.print替换为sdd=，然后他再次执行此操作！简直太神奇了！您的解决方案简洁优雅。非常感谢你。真的很感谢你一如既往的迅速帮助。@SoaringRioren你充满了赞美，不是吗？哈哈！不用担心，很高兴我能帮上忙。我只是很感激。我没想到答案会这么快、简单、优雅

objXml.DocumentElement.SelectSingleNode("//amount").Text