Im ersten Teil der Artikelreihe zum Thema Steuerung von eBay mit VBA haben wir gezeigt, wie man einen Entwickler-Account anlegt, eine neue Anwendung bei eBay erstellt, grundlegende Zugriffsdaten holt und die für die Authentifizierung im Kontext eines bestimmten Benutzerkontos notwendigen Informationen holt – hier speziell das Authentifizierungstoken. Damit haben wir die Basis geschaffen, um per VBA auf die Rest API von eBay zuzugreifen. Damit fahren wir in diesem Teil fort: Wir wollen den grundlegenden Zugriff auf die Rest-API von eBay herstellen und verwenden dazu einfache Beispiele. Wie sich zeigt, gibt es zwei verschiedene Kontexte, in denen wir hier arbeiten, den Anwendungs- und den Benutzerkontext. Beide beschreiben wir in diesem Artikel.<\/b><\/p>\n
Anwendungs- und Benutzerkontext<\/h2>\n
Wir im ersten Teil der Artikelreihe namens eBay per VBA steuern: Zugangsdaten holen <\/b>(www.vbentwickler.de\/460<\/b>) beschrieben, gibt es zwei verschiedene Kontexte, in denen wir auf die Rest-API von eBay zugreifen können:<\/p>\n Zu beachten ist, dass man je nach der verwendeten API und Funktion keine Authentifizierung, die Anwendungsauthentifizierung oder die Benutzerauthentifizierung benötigt. Wann welche Authentifizierung benötigt wird, erfährt man am einfachsten in der API-Dokumentation beziehungsweise im API-Explorer.<\/p>\n eBay hat einen umfangreichen Bestand an API-Funktionen. Einen ersten Überblick findet man auf der folgenden Webseite:<\/p>\n Von hier aus geht es weiter zu den absoluten Grundlagen, zum Entwickeln von Anwendungen zum Verkaufen oder Kaufen oder zu weiteren Themen.<\/p>\n Im Bereich Kaufen <\/b>interessiert uns beispielsweise, wie wir eine Suche nach Artikeln per VBA realisieren können. Im Bereich Verkaufen <\/b>wäre es spannend, eigene Artikel voll automatisiert per VBA bei eBay einstellen zu können. Oder auch herauszufinden, welche Artikel wir gerade bei eBay anbieten und in welcher Anzahl, um hier gegebenenfalls aufzustocken. Beide Bereiche bieten zahlreiche Funktionen bereit, wir wollen uns jedoch auf den Bereich des Verkaufens konzentrieren.<\/p>\n Über diesen können wir uns in den weiterführenden Artikeln des oben genannten Links einen ersten Überblick verschaffen. Diesen finden wir zum Zeitpunkt der Erstellung dieses Artikels unter dem folgenden Link:<\/p>\n Hier finden wir einen Überblick über die Unterbereiche zum Thema Verkaufen auf eBay (siehe Bild 1).<\/p>\n Bild 1: Überblick über die eBay Sell API<\/span><\/b><\/p>\n Zum Einstellen von Artikeln finden wir verschiedene Ansätze:<\/p>\n Wir wollen uns in dieser Artikelreihe auf die aktuellen Techniken funktionieren und schauen uns daher die Variante an, welche die eBay Inventory API <\/b>nutzt.<\/p>\n Aufrufe von Rest-API haben wir in diesem Magazin bereits an einigen Beispielen demonstriert. Aber woher beziehen wir im Falle der eBay-API die wirklich wichtigen Informationen wie die folgenden:<\/p>\n Antworten auf viele dieser Fragen liefert der API-Katalog, den wir unter dem folgenden Link finden (alternativ suchen wir im Internet nach dem Suchbegriff ebay api explorer<\/b>):<\/p>\n Damit landen wir auf der API Explorer<\/b>-Seite (siehe Bild 2). Hier sehen wir verschiedene Elemente.<\/p>\n Bild 2: Aufrufen einer API-Funktion<\/span><\/b><\/p>\n Wichtig ist erst einmal, dass wir oben die richtige Umgebung auswählen, also Sandbox <\/b>oder Production<\/b>.<\/p>\n Danach wählen wir im linken Bereich die zu verwendende Anwendung aus, hier amvBay<\/b>, und die eBay-Seite, die wir untersuchen wollen. Wir möchten auf der deutschen Seite suchen und wählen deshalb (77) Germany <\/b>aus.<\/p>\n Danach entscheiden wir, welche API wir nutzen wollen. Wir wollen erst einmal Angebote durchsuchen, also wählen wir die Browse API<\/b>.<\/p>\n Dies aktualisiert wiederum direkt die Auswahl unter Select an API call<\/b>. Hier wählen wir die Funktion search <\/b>aus.<\/p>\n Dadurch wird rechts das Feld Web Service URI (endpoint) <\/b>gefüllt, in diesem Fall mit dem folgenden Beispielcode:<\/p>\n Dies sind die Bestandteile:<\/p>\n Wichtig ist auch noch der Inhalt des kleinen Kästchens in der Nähe von Call Request, das zum Beispiel GET<\/b>, POST<\/b>, PUT <\/b>oder DELETE <\/b>enthalten kann – eine Information, die wir später für den Aufruf der Rest AP benötigen.<\/p>\n Darunter finden wir den Bereich HTTP Headers<\/b>. Auch hier finden wir wertvolle Informationen, die wir gegebenenfalls in unserem eigenen Aufruf per VBA berücksichtigen müssen. Auch dort haben wir die Möglichkeit, Header zu übersenden. Klicken wir nun auf Execute<\/b>, erhalten wir im unteren Bereich das Ergebnis. Dieses sieht wie in Bild 3 aus.<\/p>\n Bild 3: Ergebnis der Artikelsuche<\/span><\/b><\/p>\n Hier sehen wir im oberen Bereich die Response-Header, die für uns weniger interessant sind. Spannender ist das tatsächliche Ergebnis unter Response Body<\/b>.<\/p>\n Hier finden wir im JSON-Format die Eigenschaften der gefundenen Artikel. Unser Ziel ist es, dieses Dokument per VBA auszulesen und es dann auslesen zu können. Das erledigen wir in den folgenden Abschnitten.<\/p>\n Um auf die Api zuzugreifen, benötigen wir das sogenannte OAuth Application Token. Das holen wir uns, nachdem wir die im Artikel eBay per VBA steuern: Zugangsdaten holen <\/b>(www.vbentwickler.de\/460<\/b>) beschriebenen Schritte zum Erstellen eines Entwicklerkontos und einer App durchgeführt haben, mit der VBA-Prozedur GetEbayAppToken<\/b>. Diese rufen wir wie folgt auf, um das Token direkt in der Registry zu speichern:<\/p>\n Voraussetzung ist, dass wir zuvor die übrigen notwendigen Informationen, also die AppID <\/b>und die CertID <\/b>sowie den APIScope <\/b>wie im oben genannten Artikel ermittelt haben.<\/p>\n In der Prozedur GetItems<\/b> haben wir einen ersten Anlauf zusammengestellt, um eine Liste von Artikeln abzurufen (siehe Listing 1). Wobei erster Anlauf untertrieben ist – wir haben im Vorfeld bereits einige Versuche unternommen, bis wir eine lauffähige Variante hatten.<\/p>\n Listing 1: Erster Aufruf der eBay-Rest API<\/span><\/b><\/p>\n Die Dokumentation des hier verwendeten Endpunkts item_summary\/search <\/b>findest Du hier:<\/p>\n Hier findest Du ausführlich alle möglichen Parameter und wie man sie einsetzt und es wird auch der komplette Output dieses Aufrufs erläutert.<\/p>\n Die Prozedur deklariert zunächst eine Variable des Typs MSXML2.XMLHTTP60<\/b>. Um diese verwenden zu können, benötigen wir einen Verweis auf die Bibliothek Microsoft XML, v6.0 <\/b>hinzu.<\/p>\n In diesem Zuge addieren wir direkt noch einen Verweis auf Bibliothek Microsoft Scripting Runtime<\/b> (siehe Bild 4).<\/p>\n Bild 4: Verweise für XML und JSON<\/span><\/b><\/p>\n Letzteren benötigen wir für Funktionen für den Zugriff auf die von der Rest API zurückgelieferten JSON-Dokumente.<\/p>\n Wenn Du die Anwendung nachbauen möchtest, benötigst Du auf jeden Fall noch die folgenden beiden Module:<\/p>\n Außerdem ist auch das Modul mdlZwischenablage <\/b>hilfreich. Dieses enthält eine Funktion, mit der wir den Inhalt einer Variablen in die Zwischenablage kopieren können.<\/p>\n Das ist hilfreich, wenn wir größere JSON-Dokumente von der Rest-API zurückbekommen, die wir nicht vollständig im Direktbereich ausgeben können, ohne das der obere Teil gelöscht wird. Dann können wir solche Texte aus der Zwischenablage in einen Text- oder JSON-Editor kopieren, um sie dort zu analysieren.<\/p>\n Die Prozedur erstellt noch weitere String<\/b>-Variablen. Dann fügt sie der Variablen strUrl <\/b>die Adresse unserer Rest API-Funktion hinzu, die wir hier vorerst 1:1 aus dem API Explorer entnommen haben. Danach fügt sie das Schlüsselwort Bearer <\/b>mit dem Anwendungstoken aus der Konstanten cStrAppToken <\/b>zusammen.<\/p>\n Damit erstellt sie nun ein Objekt auf Basis des Typs MSXML2.XMLHTTP60<\/b> und ruft dessen Open<\/b>-Methode auf. Die Parameter sehen wie folgt aus:<\/p>\n Danach setzen wir Request-Header, die wir ebenfalls dem entsprechenden Bereich im API Explorer entnehmen können.<\/p>\n Diese teilen wir am Doppelpunkt auf und geben den linken Teil in Anführungszeichen für den Parameter bstrHeader <\/b>an und den rechten als bstrValue<\/b>. So übergeben wir das Token und auch weitere Informationen über den Aufruf wie beispielsweise den zu durchsuchenden Markt.<\/p>\n Danach senden wir die Anfrage schließlich mit der Send<\/b>-Methode ab und erhalten verschiedene Ergebnisse, zum Beispiel:<\/p>\n Geben wir zum Beispiel das falsche Token an, erhalten wir für status <\/b>den Wert 401 <\/b>und für responseText <\/b>diesen Text:<\/p>\n Im Erfolgsfall hingegen erhalten wir ein JSON-Dokument, das etwa wie in Bild 5 aussieht.<\/p>\n Bild 5: Ergebnis der Abfrage im JSON-Format<\/span><\/b><\/p>\n Hier ist der erste von drei Artikel aus dem Ergebnis der Abfrage abgebildet.<\/p>\n Wie aber wollen wir hier nur gezielt auf einzelne Elemente zugreifen?<\/p>\n Während das gelegentlich rein mit Zeichenkettenfunktionen erledigt wird, indem man beispielsweise nach dem Namen des gewünschten Elements sucht, ist das in größeren Dokumenten wie diesem hier keine angenehme Aufgabe.<\/p>\n Hier kommen unsere Prozeduren aus den beiden Modulen mdlJSON <\/b>und mdlJSONDOM <\/b>ins Spiel.<\/p>\n Wir bauen eine Prozedur zum Aufrufen der Funktion GetItems <\/b>und zum Auswerten des Ergebnisses. Diese sieht zunächst wie folgt aus:<\/p>\n Die Variable strJSON<\/b> soll das JSON-Dokument als Zeichenkette aufnehmen.<\/p>\n Die Variable objJSON <\/b>füllen wir mit dem Ergebnis der Funktion ParseJson <\/b>mit dem Parameter strResponse<\/b> und erhalten ein Objektmodell, dass alle Elemente des JSON-Dokuments enthält und aus verschachtelten Dictionary<\/b>– und Collection<\/b>-Elementen besteht.<\/p>\n Wie aber erfahren wir nun, wie wir gezielt auf die einzelnen Informationen zugreifen können – oder wie wir beispielsweise in einer Schleife durch die zurückgelieferten Artikel laufen können?<\/p>\n Die Grundlage dazu liefert die Funktion GetJSONDOM<\/b>. Dieser übergeben wir den kompletten Inhalt des JSON-Dokuments und mit dem zweiten Parameter den Wert True<\/b>, damit nicht nur die Ausdrücke, die zu den Werten führen, ausgegeben, sondern auch die Werte selbst.<\/p>\n Die Funktion durchläuft alle Elemente und trägt sie in einer Zeichenkette zusammen. Diese können wir entweder im Direktbereich ablegen oder wir speichern sie in der Zwischenablage.<\/p>\n Der Inhalt sieht wie in Listing 2 aus. Der linke Teil enthält jeweils das Objekt objJSON<\/b>, dahinter folgt der Ausdruck, mit dem man den Wert für das entsprechende Element auslesen kann.<\/p>\n Listing 2: Ausdrücke für den Zugriff auf den Inhalt des JSON-Dokuments<\/span><\/b><\/p>\n Für den Titel des Artikels verwenden wir:<\/p>\n Auf ähnliche Weise können wir auf die übrigen Elemente zugreifen.<\/p>\n Noch spannender ist die Frage, wie wir Elemente in Schleifen durchlaufen können, die mehrmals vorkommen. Dazu schauen wir uns erst einmal an, um welche Elemente es hier geht.<\/p>\n Die drei Artikel, die unser Ergebnis zurückliefert, können wir grundsätzlich über diese Ausdrücke referenzieren:<\/p>\n Um diese in einer Schleife zu durchlaufen, deklarieren wir eine Zählervariable:<\/p>\n Außerdem benötigen wir eine Variable, in der wir das jeweilige Hauptelement für den aktuellen Artikel speichern:<\/p>\n Danach beginnen wir, die Elemente in einer For…Next<\/b>-Schleife zu durchlaufen. Der erste Indexwert ist offensichtlich der Wert 1<\/b>. Den letzten Indexwert ermitteln wir mit dem Ausdruck objJSON.Item(“itemSummaries”).Count <\/b>und erhalten die folgende For…Next<\/b>-Schleife:<\/p>\n In der Schleife referenzieren wir das aktuelle Objekt objJSON.Item(“itemSummaries”).Item(i) <\/b>mit der Variablen objItem <\/b>und können darüber bequem auf die enthaltenen Elemente zugreifen – zum Beispiel objItem.Item(“itemId”) <\/b>für die Artikelnummer und objItem.Item(“title”) <\/b>für die Bezeichnung des Artikels.<\/p>\n Das Ergebnis sieht in diesem Beispiel wie in Bild 6 aus.<\/p>\n Bild 6: Ergebnis der Abfrage mit den wichtigsten Informationen<\/span><\/b><\/p>\n Unsere Prozedur zum Aufruf der Funktion GetItems<\/b> enthält nun den Code aus Listing 3.<\/p>\n Listing 3: Prozedur zum Verarbeiten der Artikel<\/span><\/b><\/p>\n Aktuell geben wir nur die ItemID<\/b> und den Titel aus. Spannend wäre zum Beispiel, auch noch die Preise zu ermitteln. So könnten wir uns einen eigenen Preisalarm bauen, der alle Angebote eines bestimmten Produkts mit einem bestimmten Artikelnamen ausliest und uns dazu die aktuellen Preise liefert. Dazu schauen wir uns einfach die Ausgabe an und finden im ersten Angebot diese beiden Elemente:<\/p>\n In unser Beispiel können wir den Preis dann wie folgt integrieren:<\/p>\n Allerdings laufen wir damit in einen Fehler, denn das unitPrice<\/b>-Element ist nicht in jedem Angebot enthalten.<\/p>\n Wir müssen also prüfen, ob dieses Element überhaupt vorhanden ist. Das erledigen wir wie folgt:<\/p>\n Damit geben wir zumindest die unitPrice<\/b>-Angaben für die Angebot aus, wo diese vorhanden sind, und erhalten keine Fehler. Aber warum haben manche Angebote keinen unitPrice<\/b>?<\/p>\n Um dies herauszufinden, können wir die Dokumentation unter dem folgenden Link nutzen:<\/p>\n Hier scrollen wir nach unten zum Bereich Output<\/b>. Unter Response payload <\/b>finden wir alle möglichen Elemente der Antwort für die Anfrage.<\/p>\n Im Screenshot aus Bild 7 haben wir bereits die Stelle zum unitPrice <\/b>herausgesucht. Hier sehen wir allerdings nur die Struktur und die verschiedenen Elemente samt Einheit und in manchen Fällen noch Beispiele für die Werte, wie bei den Währungen zu sehen.<\/p>\n Bild 7: Durchsuchen des Outputs einer Abfrage in der Dokumentation<\/span><\/b><\/p>\n Um mehr zu erfahren, können wir die einzelnen Elemente auch noch anklicken und gelangen zu einem weiteren Bereich der Dokumentation für diese Funktion auf der gleichen Seite, wo wir detaillierte Informationen finden (siehe Bild 8).<\/p>\n Bild 8: Beschreibung der einzelnen Elemente der Antwort<\/span><\/b><\/p>\n Hier können wir unter Occurrence<\/b> gleich entnehmen, dass es sich bei unitPrice <\/b>um ein optionales Element handelt.<\/p>\n In der Erklärung erfahren wir außerdem, dass der Preis pro Einheit nur dazu da ist, dass man die Einzelpreise gut vergleichen kann.<\/p>\n Steigen wir tiefer in die Dokumentation ein, sehen wir, dass es für den Preis ohnehin noch das Feld Price<\/b> gibt, das wir ebenfalls auslesen können. Also ändern wir unseren Code wie folgt:<\/p>\n Damit erhalten wir beispielsweise:<\/p>\n Bisher haben wir nur die beiden Parameter q<\/b> und limit <\/b>verwendet. Die Funktion bietet aber noch einige weitere Parameter, und auch zu den bisher verwendeten Parametern gibt es noch weitere Erläuterungen. Eine Übersicht der Parameter finden wir in der Dokumentation wie in Bild 9.<\/p>\n Bild 9: Parameter der search-Funktion<\/span><\/b><\/p>\n Schauen wir uns die einige wichtige Parameter an:<\/p>\n\n
Zurechtfinden im API-Dschungel<\/h2>\n
https:\/\/developer.ebay.com\/develop<\/pre>\n
https:\/\/developer.ebay.com\/api-docs\/sell\/static\/selling-ig-landing.html<\/pre>\n
![\"Überblick](\"..\/fileadmin\/_temp_\/2025_03\/pic_461_001.png\")
<\/p>\nEinstellen von Artikeln<\/h2>\n
\n
API-Katalog<\/h2>\n
\n
https:\/\/developer.ebay.com\/my\/api_test_tool?index=0<\/pre>\n
![\"Aufrufen](\"..\/fileadmin\/_temp_\/2025_03\/pic_461_002.png\")
<\/p>\nhttps:\/\/api.ebay.com\/buy\/browse\/v1\/item_summary\/search?q=drone&limit=3<\/pre>\n
\n
HTTP-Header<\/h2>\n
![\"Ergebnis](\"..\/fileadmin\/_temp_\/2025_03\/pic_461_003.png\")
<\/p>\nVoraussetzung: OAuth Application Token<\/h2>\n
Public Sub <\/span>GetEbayAppTokenInRegistry()\r\n Dim <\/span>strAppToken As String<\/span>\r\n strAppToken = GetEbayAppToken(GetAppSetting(\"AppID\"), _\r\n GetAppSetting(\"CertID\"), cStrAPIScope)\r\n SaveAppSetting \"AppToken\", strAppToken\r\nEnd Sub<\/span><\/pre>\nErster Wurf: Aufruf testen<\/h2>\n
Public Function <\/span>GetItems(strResponse As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>objXMLHTTP As <\/span>MSXML2.XMLHTTP60\r\n Dim <\/span>strURL As String<\/span>\r\n Dim <\/span>strOAuthToken As String<\/span>\r\n strURL = \"https:\/\/api.ebay.com\/buy\/browse\/v1\/item_summary\/search?q=drone&limit=3\"\r\n strOAuthToken = \"Bearer \" & cStrAppToken\r\n Set<\/span> objXMLHTTP = New<\/span> MSXML2.XMLHTTP60\r\n objXMLHTTP.Open \"GET\", strURL, False<\/span>\r\n \r\n objXMLHTTP.setRequestHeader \"Authorization\", strOAuthToken\r\n objXMLHTTP.setRequestHeader \"X-EBAY-C-MARKETPLACE-ID\", \"EBAY_DE\"\r\n objXMLHTTP.setRequestHeader \"X-EBAY-C-ENDUSERCTX\", _\r\n \"ffiliateCampaignId=<ePNCampaignId>,affiliateReferenceId=<referenceId>\"\r\n objXMLHTTP.Send\r\n strResponse = objXMLHTTP.responseText\r\n Select Case objXMLHTTP.status\r\n Case <\/span>200\r\n GetItems = True<\/span>\r\n Case Else<\/span>\r\n Debug.Print<\/span> objXMLHTTP.status & vbCrLf<\/span> & objXMLHTTP.responseText\r\n End Select<\/span>\r\n \r\n Set<\/span> objXMLHTTP = Nothing\r\nEnd Function<\/span><\/pre>\nhttps:\/\/developer.ebay.com\/api-docs\/buy\/browse\/resources\/item_summary\/methods\/search<\/pre>\n
![\"Verweise](\"..\/fileadmin\/_temp_\/2025_03\/pic_461_004.png\")
<\/p>\n\n
\n
\n
{\"errors\":\r\n [\r\n { \"errorId\": 1001, \"domain\": \"OAuth\", \"category\": \"REQUEST\", \"message\": \"Invalid access token\", \"longMessage\": \"Invalid access token. Check the value of the Authorization HTTP request header.\" }\r\n ]\r\n}<\/pre>\n![\"Ergebnis](\"..\/fileadmin\/_temp_\/2025_03\/pic_461_005.png\")
<\/p>\nPublic Sub <\/span>Test_GetItems()\r\n Dim <\/span>strJSON As String<\/span>\r\n Dim <\/span>objJSON As Object<\/span>\r\n \r\n strJSON = GetItems()\r\n Set<\/span> objJSON = ParseJson(strJSON)\r\n Debug.Print<\/span> GetJSONDOM(strJSON, True<\/span>)\r\nEnd Sub<\/span><\/pre>\nobjJSON.Item(\"href\"):https:\/\/api.ebay.com\/buy\/browse\/v1\/item_summary\/search?q=drone&limit=3&offset=0\r\nobjJSON.Item(\"total\"):6081\r\nobjJSON.Item(\"next\"):https:\/\/api.ebay.com\/buy\/browse\/v1\/item_summary\/search?q=drone&limit=3&offset=3\r\nobjJSON.Item(\"limit\"):3\r\nobjJSON.Item(\"offset\"):0\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"itemId\"): v1|145588822372|0\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"title\"): \r\n Refurbished ATOM Fly More Combo GPS Drone 4K Kamera 3-Achsen-Gimbal Kameradrohne\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"leafCategoryIds\").Item(1): 179697\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"categories\").Item(1).Item(\"categoryId\"): 179697\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"categories\").Item(1).Item(\"categoryName\"): Kamera-Drohnen\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"categories\").Item(2).Item(\"categoryId\"): 625\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"categories\").Item(2).Item(\"categoryName\"): Foto & Camcorder\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"image\").Item(\"imageUrl\"): \r\n https:\/\/i.ebayimg.com\/images\/g\/7ssAAOSw18hlvKY6\/s-l225.jpg\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"price\").Item(\"value\"): 309.99\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"price\").Item(\"currency\"): EUR\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"itemHref\"): https:\/\/api.ebay.com\/buy\/browse\/v1\/item\/v1%7C145588822372%7C0\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"seller\").Item(\"username\"): potensic_store\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"seller\").Item(\"feedbackPercentage\"): 99.3\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"seller\").Item(\"feedbackScore\"): 3262\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"seller\").Item(\"sellerAccountType\"): BUSINESS\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"condition\"): Zertifiziert - Refurbished\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"conditionId\"): 2000\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"thumbnailImages\").Item(1).Item(\"imageUrl\"): \r\n https:\/\/i.ebayimg.com\/images\/g\/7ssAAOSw18hlvKY6\/s-l1600.jpg\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"shippingOptions\").Item(1).Item(\"shippingCostType\"): FIXED\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"shippingOptions\").Item(1).Item(\"shippingCost\").Item(\"value\"): 0.00\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"shippingOptions\").Item(1).Item(\"shippingCost\").Item(\"currency\"): EUR\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"buyingOptions\").Item(1): FIXED_PRICE\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"epid\"): 28063837524\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"itemWebUrl\"): \r\n https:\/\/www.ebay.de\/itm\/145588822372?_skw=drone&hash=item21e5c52164:g:7ssAAOSw18hlvKY6&amdata=enc...\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"itemLocation\").Item(\"postalCode\"): 55***\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"itemLocation\").Item(\"country\"): DE\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"additionalImages\").Item(1).Item(\"imageUrl\"): \r\n https:\/\/i.ebayimg.com\/images\/g\/GRIAAOSwzfFlvKam\/s-l225.jpg\r\n...\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"adultOnly\"): Falsch\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"unitPricingMeasure\"): Einheit\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"unitPrice\").Item(\"value\"): 309.99\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"unitPrice\").Item(\"currency\"): EUR\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"legacyItemId\"): 145588822372\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"availableCoupons\"): Falsch\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"itemCreationDate\"): 2024-02-02T08:28:06.000Z\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"topRatedBuyingExperience\"): Wahr\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"priorityListing\"): Wahr\r\nobjJson.Item(\"itemSummaries\").Item(1).Item(\"listingMarketplaceId\"): EBAY_DE\r\nobjJson.Item(\"itemSummaries\").Item(2).Item(\"itemId\"): v1|285778132279|0<\/pre>\n
Debug.Print<\/span> objJson.Item(\"itemSummaries\").Item(1).Item(\"title\")<\/pre>\nobjJson.Item(\"itemSummaries\").Item(1) ...\r\nobjJson.Item(\"itemSummaries\").Item(2) ...\r\nobjJson.Item(\"itemSummaries\").Item(3) ...<\/pre>\n
Dim <\/span>i As Integer<\/span><\/pre>\nDim <\/span>objItem As Object<\/span><\/pre>\nFor i = 1 To objJSON.Item(\"itemSummaries\").Count\r\n Set<\/span> objItem = objJSON.Item(\"itemSummaries\").Item(i)\r\n Debug.Print<\/span> objItem.Item(\"itemId\"), _\r\n objItem.Item(\"title\")\r\nNext<\/span> i<\/pre>\n![\"Ergebnis](\"..\/fileadmin\/_temp_\/2025_03\/pic_461_006.png\")
<\/p>\nPublic Sub <\/span>Test_GetItems()\r\n Dim <\/span>strJSON As String<\/span>\r\n Dim <\/span>objJSON As Object<\/span>\r\n Dim <\/span>objItem As Object<\/span>\r\n Dim <\/span>i As Long<\/span>\r\n Dim <\/span>strResponse As String<\/span>\r\n If <\/span>GetItems(strResponse) = True<\/span> Then<\/span>\r\n Inzwischenablage strResponse\r\n Set<\/span> objJSON = ParseJson(strResponse)\r\n Debug.Print<\/span> GetJSONDOM(strResponse, True<\/span>)\r\n For i = 1 To objJSON.Item(\"itemSummaries\").Count\r\n Set<\/span> objItem = objJSON.Item(\"itemSummaries\").Item(i)\r\n Debug.Print<\/span> objItem.Item(\"itemId\"), objItem.Item(\"title\")\r\n Next<\/span> i\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nobjJson.Item(\"itemSummaries\").Item(3).Item(\"unitPrice\").Item(\"value\"): 269.99\r\nobjJson.Item(\"itemSummaries\").Item(3).Item(\"unitPrice\").Item(\"currency\"): EUR<\/pre>\n
Debug.Print<\/span> \"Preis: \" & objItem.Item(\"unitPrice\").Item(\"value\") & \" \" & objItem.Item(\"unitPrice\").Item(\"currency\")<\/pre>\nSet<\/span> objUnitPrice = Nothing\r\nOn Error Resume Next<\/span>\r\nSet<\/span> objUnitPrice = objItem.Item(\"unitPrice\")\r\nOn Error GoTo<\/span> 0\r\nIf <\/span>Not<\/span> objUnitPrice Is Nothing Then<\/span>\r\n Debug.Print<\/span> \"Preis: \" _\r\n & objItem.Item(\"unitPrice\").Item(\"value\") & \" \" _\r\n & objItem.Item(\"unitPrice\").Item(\"currency\")\r\nEnd If<\/span><\/pre>\nDokumentation nach unitPrice durchsuchen<\/h2>\n
https:\/\/developer.ebay.com\/api-docs\/buy\/browse\/resources\/item_summary\/methods\/search<\/pre>\n
![\"Durchsuchen](\"..\/fileadmin\/_temp_\/2025_03\/pic_461_007.png\")
<\/p>\n![\"Beschreibung](\"..\/fileadmin\/_temp_\/2025_03\/pic_461_008.png\")
<\/p>\nPublic Sub <\/span>Test_GetItems()\r\n ...\r\n Dim <\/span>objPrice As Object<\/span>\r\n ...\r\n If <\/span>GetItems(strResponse) = True<\/span> Then<\/span>\r\n Inzwischenablage strResponse\r\n Set<\/span> objJSON = ParseJson(strResponse)\r\n For i = 1 To objJSON.Item(\"itemSummaries\").Count\r\n Set<\/span> objItem = _\r\n objJSON.Item(\"itemSummaries\").Item(i)\r\n Debug.Print<\/span> objItem.Item(\"itemId\"), _\r\n objItem.Item(\"title\")\r\n Set<\/span> objPrice = objItem.Item(\"price\")\r\n Debug.Print<\/span> \"Preis: \" _\r\n & objPrice.Item(\"value\") & \" \" _\r\n & objPrice.Item(\"currency\")\r\n Next<\/span> i\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nv1|145588822372|0 Refurbished ATOM Fly More Combo GPS Drone 4K Kamera 3-Achsen-Gimbal Kameradrohne\r\nPreis: 289.99 EUR\r\nv1|385601774390|0 Parrot AR Drone 2.0 Quadcopter 720p HD Kamera Drohne Schwarz\r\nPreis: 34.99 EUR\r\nv1|285778132279|0 Potensic ATOM SE GPS Drohne mit 4K Kamera Drone 4KM FPV Übertragung Quadrocopter\r\nPreis: 269.99 EUR<\/pre>\n
Parameter der search-Funktion<\/h2>\n
![\"Parameter](\"..\/fileadmin\/_temp_\/2025_03\/pic_461_009.png\")
<\/p>\n\n