Question

从excel文档中查询以从实时XML数据源更新（我无论如何都无法编辑或更改）。

网站上的XML代码

<?xml version='1.0' encoding='utf-8'?>
<evec_api version="2.0" method="marketstat_xml">
  <marketstat><type id="24692">
      <buy><volume>58</volume><avg>187454397.24</avg><max>191102293.00</max><min>170620000.01</min><stddev>6655174.57</stddev><median>191000100.02</median><percentile>191102293.00</percentile></buy>
      <sell><volume>66</volume><avg>211618794.64</avg><max>266968892.26</max><min>202896968.00</min><stddev>11782399.14</stddev><median>206970995.32</median><percentile>202896977.39</percentile></sell>
      <all><volume>224</volume><avg>110889266.01</avg><max>266968892.26</max><min>0.99</min><stddev>30116759.19</stddev><median>186251523.01</median><percentile>0.99</percentile></all>
    </type></marketstat>
</evec_api>

我的UDF Excel模块代码

Function GetPrice(sItemID As String, sItem As String, Optional sURL = "", Optional sSystem = "") As Variant
Dim oHttp As New MSXML2.XMLHTTP60
Dim xmlResp As MSXML2.DOMDocument60
Dim result As Variant
On Error GoTo EH

If sURL = "" Then
    sURL = "http://api.eve-central.com/api/marketstat?typeid="
End If

If sSystem = "" Then
    sSystem = "&usesystem=30000142"
End If

'open the request and send it
oHttp.Open "GET", sURL & sItemID & sSystem, False
oHttp.Send

'get the response as xml
Set xmlResp = oHttp.responseXML
' get Item
GetPrice = xmlResp.getElementsByTagName(sItem).Item(0).Text

' Examine output of these in the Immediate window
Debug.Print sName
Debug.Print xmlResp.XML

CleanUp:
On Error Resume Next
Set xmlResp = Nothing
Set oHttp = Nothing
Exit Function
EH:
GetPrice = CVErr(xlErrValue)
GoTo CleanUp
End Function

当试图查询= GetPrice（24692，“// sell / min”）时，excel返回#VALUE！错误。查询= GetPrice（24692，“卖出”）将返回66211618794.64266968892.26202896968.0011782399.14206970995.32202896977.39 当我希望在min标签下的卖线数据中查询202896968.00时，看起来是卖出线的所有数据，并且买入标签中的最大值用于填充Excel文档。

Answer 1

getElementsByTagName方法只能采用单个标记名称而不能采用XPath查询。如果检查具有子节点的节点的Text属性（例如“sell”节点），则获取上下文节点及其所有子节点的文本内容。

尝试使用selectNodes代替并将XPath查询传递给您的函数，如下所示：

GetPrice = xmlResp.selectNodes(sItem).Item(0).Text

并使用原始=GetPrice(24692, "//sell/min")公式

Answer 2

这对我有用。使用DOMDocument方法。首先，设置对Microsoft XML，V6.0的引用。然后，以下代码将检索“Buy”“Max”的当前值

  Set xmlDoc = CreateObject("MSXML2.DOMDocument")
  xmlDoc.Load ("http://api.eve-central.com/api/marketstat?typeid=24692&usesystem=30000142")

  buy_max = xmlDoc.getElementsByTagName("buy")(0).getElementsByTagName("max")(0).Text

您可以展开，修改以检索您需要的任何标签

使用Excel查询在线XML文档

2 个答案: