将eBay API XML导入Excel

我目前使用一小段XML来从eBay API导入数据。 我的输出在API Explorer上效果很好 – 但是我无法将它inputExcel（下面的XML）。

这是在API Explorer上工作的XML，我试图提取： 

<?xml version="1.0" encoding="utf-8"?> <GetOrdersRequest xmlns="urn:ebay:apis:eBLBaseComponents"> <!-- Call-specific Input Fields --> <IncludeFinalValueFee>true</IncludeFinalValueFee> <NumberOfDays>30</NumberOfDays> <OrderRole>Seller</OrderRole> <OrderStatus>Completed</OrderStatus> <SortingOrder>Ascending</SortingOrder> <!-- Standard Input Fields --> <DetailLevel>ReturnSummary</DetailLevel> <!-- ... more DetailLevel values allowed here ... --> <ErrorLanguage>en_US</ErrorLanguage> <MessageID>string</MessageID> <!-- ... more OutputSelector values allowed here ... --> <WarningLevel>Low</WarningLevel> </GetOrdersRequest>

有没有人有任何build议或build议更好的方法（或目前的修复），以获取这些数据从易趣API和Excel？

我目前使用的方法如下。 代码运行…但没有返回。 我对VBA相当缺乏经验（我通常使用loggingmacrosfunction…），但即使在下面的日志logging，看看发生了什么会有所帮助！ 

 Sub GetSellerTransactions() Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") URL = "https://api.ebay.com/ws/api.dll" objHTTP.Open "POST", URL, False objHTTP.setRequestHeader "X-EBAY-API-DEV-NAME", "________" objHTTP.setRequestHeader "X-EBAY-API-CERT-NAME", "________" objHTTP.setRequestHeader "X-EBAY-API-APP-NAME", "________" objHTTP.setRequestHeader "X-EBAY-API-CALL-NAME", "GetSellerTransactions" objHTTP.setRequestHeader "X-EBAY-API-SITEID", "0" objHTTP.setRequestHeader "X-EBAY-API-REQUEST-Encoding", "XML" objHTTP.setRequestHeader "X-EBAY-API-COMPATIBILITY-LEVEL", "967" objHTTP.send (body) Set objXML = New MSXML2.DOMDocument objXML.LoadXML (objHTTP.ResponseText) Dim xItemList As IXMLDOMNodeList Set xItemList = objXML.SelectNodes("//Item") Row = 1 Dim xItem As IXMLDOMNode Dim copy As Worksheet For Each xItem In xItemList Cells(Row, 1) = xItem.SelectNodes("//Buyer/UserID").Item(0).Text Cells(Row, 2) = xItem.SelectNodes("//Buyer/Name").Item(0).Text Cells(Row, 3) = xItem.SelectNodes("///Buyer/Phone").Item(0).Text Cells(Row, 4) = xItem.SelectNodes("//Buyer/Email").Item(0).Text Row = Row + 1 Next Set objHTTP = Nothing Set objXML = Nothing End Sub

Interesting Posts