VBA and Amazon API Integration

[lewisgmorris]

Can someone point me in the right direction to make this work?

GetLowestPricedOffersForASIN

I have all the keys i need and i'm trying to to use XMLHTTP60 lib to open the address http://mws.amazonservices.com?&ASIN=B00COK3FD8... etc but its not working.

Would anyone know what im doing wrong. I could be totally on the wrong track.


[h=2]Examples:[/h][h=3]Example query request[/h]POST /Products/2011-10-01 HTTP/1.1
Content-Type: x-www-form-urlencoded
Host: mws.amazonservices.com
User-Agent: <Your User Agent Header>

&ASIN=B00COK3FD8
&AWSAccessKeyId=AKIAEXAMPLEFWR4TJ7ZQ
&Action=GetLowestPricedOffersForASIN
&MWSAuthToken=amzn.mws.4ea38b7b-f563-7709-4bae-87aeaEXAMPLE
&MarketplaceId=ATVPDKIKX0DER
&ItemCondition=New
&SellerId=A1IMEXAMPLEWRC
&SignatureMethod=HmacSHA256
&SignatureVersion=2
&Timestamp=2015-05-22T21%3A23%3A31Z
&Version=2011-10-01
&Signature=V1uTEXAMPLE8HVCfobAqQDKzylYyTRWfv3X4SEXAMPLEY%3D

 

[John_w]

I've never used the API, but try something like this. Obviously you have to change the example key, auth token, seller Id, etc. to your own values, and probably the Timestamp to the current date-time.

Public Sub Test()

    Dim httpReq As XMLhttp, XMLdoc As DOMDocument  'requires reference to MS XML
    Dim POSTdata As String
    
    POSTdata = "&ASIN=B00COK3FD8" & _
        "&AWSAccessKeyId=AKIAEXAMPLEFWR4TJ7ZQ" & _
        "&Action=GetLowestPricedOffersForASIN" & _
        "&MWSAuthToken=amzn.mws.4ea38b7b-f563-7709-4bae-87aeaEXAMPLE" & _
        "&MarketplaceId=ATVPDKIKX0DER" & _
        "&ItemCondition=New" & _
        "&SellerId=A1IMEXAMPLEWRC" & _
        "&SignatureMethod=HmacSHA256" & _
        "&SignatureVersion=2" & _
        "&Timestamp=2015-05-22T21%3A23%3A31Z" & _
        "&Version=2011-10-01" & _
        "&Signature=V1uTEXAMPLE8HVCfobAqQDKzylYyTRWfv3X4SEXAMPLEY%3D"

    Set httpReq = New XMLhttp
    With httpReq
        .Open "POST", "http://mws.amazonservices.com/Products/2011-10-01", False
        .setRequestHeader "Content-Type", "x-www-form-urlencoded"
        .setRequestHeader "Host", "mws.amazonservices.com"
        .setRequestHeader "User-Agent", "Excel VBA"
        .send POSTdata
        
        'Put XML response in a DOMDocument for parsing
        
        Set XMLdoc = .responseXML
        MsgBox XMLdoc.XML
    End With
    
    'Now parse the XML in XMLdoc using DOMDocument methods
    
End Sub

 

[John_w]

PS according to Amazon MWS endpoints and MarketplaceId values, http in the above code should be https.