(Excel) Walmart - Get All Feed Statuses

Demonstrates how to send a Walmart REST API request to get all feed statuses.

Note: This example requires Chilkat v9.5.0.67 or greater.

Download Excel Class Modules Chilkat Excel Class Modules

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' Demonstrates how to send a request such as the following to get all feed statuses:
' Also demonstrates how to parse the results.

' GET /v2/feeds HTTP/1.1
' WM_SVC.NAME: Walmart Marketplace
' WM_QOS.CORRELATION_ID: 123456abcdef
' WM_SEC.TIMESTAMP: 1438147839
' WM_SEC.AUTH_SIGNATURE: 9khb0lPeRt0WSGbXNGGj4kSQ9L6PMBX/q+ovdy9bDQfvdhYs8NoEsjRX4fD7UNIHTddgkmSVqAqeIIHlaLcRIl0Y4DcJqQYHL27LiWlsm91nYodGssWTKsOq6dJfUHEy95M4zXFGWDDhbHYCor28SCV/g/JdEQybGkcX9Zj5aDyg=
' WM_CONSUMER.ID: a20ac266-9add-4fc7-9392-fec303f5155c
' Accept: application/xml
' Host: https://marketplace.walmartapis.com


requestUrl = "https://marketplace.walmartapis.com/v2/feeds"

requestMethod = "GET"

' First we need to generate a signature for our request.
' The signature needs to be re-generated for each new Walmart HTTP request.
Dim authUtil As Chilkat.AuthUtil
Set authUtil = Chilkat.NewAuthUtil


wmConsumerId = "WALMART_CONSUMER_ID"

wmPrivateKey = "WALMART_PRIVATE_KEY"

jsonStr = authUtil.WalmartSignature(requestUrl,wmConsumerId,wmPrivateKey,requestMethod)
If (authUtil.LastMethodSuccess <> True) Then
    Debug.Print authUtil.LastErrorText
    Exit Sub
End If

' The JSON returned by WalmartSignature contains the values to be used in the following
' header fields: WM_SEC.AUTH_SIGNATURE, WM_SEC.TIMESTAMP, and WM_QOS.CORRELATION_ID
Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
Dim success As Boolean
success = json.Load(jsonStr)

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp
http.SetRequestHeader "WM_SVC.NAME","Walmart Marketplace"
http.SetRequestHeader "WM_QOS.CORRELATION_ID",json.StringOf("correlation_id")
http.SetRequestHeader "WM_SEC.TIMESTAMP",json.StringOf("timestamp")
http.SetRequestHeader "WM_SEC.AUTH_SIGNATURE",json.StringOf("signature")
http.SetRequestHeader "WM_CONSUMER.ID",wmConsumerId
http.Accept = "application/xml"

' Note: Do not explicitly set the "Host" header.  Chilkat will set it automatically.


xmlStr = http.QuickGetStr(requestUrl)
If (http.LastMethodSuccess <> True) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim xml As Chilkat.Xml
Set xml = Chilkat.NewXml
success = xml.LoadXml(xmlStr)

' A successful response should have a 200 response status
If (http.LastStatus <> 200) Then
    Debug.Print xml.GetXml()
    Debug.Print "Response Status Code: "; http.LastStatus
    Debug.Print "Failed."
    Exit Sub
End If

' A sample XML response is shown below..

' To iterate over the Walmart feeds:

numFeeds = xml.NumChildrenAt("ns2:results")

i = 0
Do While i < numFeeds
    xml.I = i

    Debug.Print "Feed ID: "; xml.GetChildContent("ns2:results|ns2:feed[i]|ns2:feedId")
    Debug.Print "Feed Type: "; xml.GetChildContent("ns2:results|ns2:feed[i]|ns2:feedType")
    Debug.Print "Num Items Recieved: "; xml.GetChildIntValue("ns2:results|ns2:feed[i]|ns2:itemsReceived")
    Debug.Print "Feed Status: "; xml.GetChildContent("ns2:results|ns2:feed[i]|ns2:feedStatus")
    Debug.Print "--"

    i = i + 1
Loop

Debug.Print "Success."

' ---------------------------------------
' Sample XML response
' ---------------------------------------

' <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
' <ns2:list xmlns:ns2="http://walmart.com/">
'     <ns2:totalResults>1293</ns2:totalResults>
'     <ns2:offset>0</ns2:offset>
'     <ns2:limit>50</ns2:limit>
'     <ns2:results>
'         <ns2:feed>
'             <ns2:feedId>AAAA7F0345E9403C91223F7139FFC341@AQsBAQA</ns2:feedId>
'             <ns2:feedType>inventory</ns2:feedType>
'             <ns2:partnerId>10000999999</ns2:partnerId>
'             <ns2:itemsReceived>130088</ns2:itemsReceived>
'             <ns2:itemsSucceeded>113154</ns2:itemsSucceeded>
'             <ns2:itemsFailed>16934</ns2:itemsFailed>
'             <ns2:itemsProcessing>0</ns2:itemsProcessing>
'             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
'             <ns2:feedDate>2017-04-27T17:05:42.078Z</ns2:feedDate>
'             <ns2:modifiedDtm>2017-04-27T18:06:10.795Z</ns2:modifiedDtm>
'         </ns2:feed>
'         <ns2:feed>
'             <ns2:feedId>AAAAF1F402CD407FA363AD2929593FFF@AQsBAQA</ns2:feedId>
'             <ns2:feedType>inventory</ns2:feedType>
'             <ns2:partnerId>10000999999</ns2:partnerId>
'             <ns2:itemsReceived>39594</ns2:itemsReceived>
'             <ns2:itemsSucceeded>34533</ns2:itemsSucceeded>
'             <ns2:itemsFailed>5061</ns2:itemsFailed>
'             <ns2:itemsProcessing>0</ns2:itemsProcessing>
'             <ns2:feedStatus>PROCESSED</ns2:feedStatus>
'             <ns2:feedDate>2017-04-27T05:18:59.739Z</ns2:feedDate>
'             <ns2:modifiedDtm>2017-04-27T05:20:30.192Z</ns2:modifiedDtm>
'         </ns2:feed>
' ...
'     </ns2:results>
' </ns2:list>