Ich bekomme nicht hin, die Trading-API von ebay in VBA (Excel 2003) zu nutzen. Ich hoffe, es kann mir jemand den passenden Anstoß geben, denn ich sitze schon seit Tagen dran. Mit dem API-Test-Tool klappt es.

Mein Code gibt unter anderem auch den Fehler 21359 zurück. Auch andere Anfrage, wie zB GetMyeBaySelling funktioniert nicht.

Das ganze soll mal soweit enden, dass ich die ebay-Rückmeldung entsprechend als XML weiter verarbeiten kann.

Ich zeige euch mal meinen mageren Code, in der Hoffnung, dass dort vllt schon der Fehler zu finden ist.

Private Sub CommandButton5_Click()
    Dim strURL As String
    Dim objHTTP
    strURL = "https://api.ebay.com/ws/api.dll"
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    objHTTP.Open "GET", strURL, False
    objHTTP.SetRequestHeader "X-EBAY-API-COMPATIBILITY-LEVEL", "721"
    objHTTP.SetRequestHeader "X-EBAY-API-DEV-NAME", "xxxDEVKEYxxx"
    objHTTP.SetRequestHeader "X-EBAY-API-APP-NAME", "xxxAPPKEYxxx"
    objHTTP.SetRequestHeader "X-EBAY-API-CERT-NAME", "xxxCERTKEYXXX"
    objHTTP.SetRequestHeader "X-EBAY-API-SITEID", "77"
    objHTTP.SetRequestHeader "X-EBAY-API-CALL-NAME", "GeteBayOfficialTime"
    objHTTP.Send ("C:\Users\PeterD\Desktop\test.xml")
    MsgBox (objHTTP.responsetext)
End Sub

Der Inhalt der test.xml sieht wie folgt aus:

<?xml version="1.0" encoding="utf-8"?>
<GeteBayOfficialTimeRequest xmlns="urn:ebay:apis:eBLBaseComponents">
<RequesterCredentials>
<eBayAuthToken>xxxTOKENxxx</eBayAuthToken>
</RequesterCredentials>
</GeteBayOfficialTimeRequest>

Die Keys/Token sind im Original entsprechend korrekt eingetragen.

Bitte nicht mit Steinen werfen, aber ein paar Denk-Anstöße könnt ich gebrauchen. Bei Fragen, bitte fragen.

Vielen Dank schonmal im Vorraus.