# Einfaches Beispiel gesucht für VBA und EXCEL mit API-Zugriff auf Shopware

**URL:** <https://forum.shopware.com/t/einfaches-beispiel-gesucht-fuer-vba-und-excel-mit-api-zugriff-auf-shopware/100083>\
**Category:** Programmierung\
**Created:** [13. Juni 2023 um 17:32 UTC](https://forum.shopware.com/t/einfaches-beispiel-gesucht-fuer-vba-und-excel-mit-api-zugriff-auf-shopware/100083 "2023-06-13T17:32:19Z")\
**Posts on this page:** 4\
**Page:** 1

<div class="post-metadata">

**Author:** ![UhrenZietz](https://avatars.discourse-cdn.com/v4/letter/u/3ec8ea/32.png) [@UhrenZietz](https://forum.shopware.com/u/UhrenZietz)\
**Post date:** [13. Juni 2023 um 17:32 UTC](https://forum.shopware.com/t/einfaches-beispiel-gesucht-fuer-vba-und-excel-mit-api-zugriff-auf-shopware/100083/1 "2023-06-13T17:32:19Z")

</div>

Guten Abend! Ich möchte nur ungern über die Datenbank direkt auf Shopware 6 zugreifen. Kann mir jemand ein Minimalbeispiel schicken mit VBA + EXCEL + API-Zugriff über API-Key? Ein Minibeispiel mit Auslesen aller Artikelnummern? MfG. Uhren-Zietz

---

<div class="post-metadata">

**Author:** ![tom\_prok](https://avatars.discourse-cdn.com/v4/letter/t/e99b99/32.png) [@tom\_prok](https://forum.shopware.com/u/tom_prok)\
**Post date:** [16. Juni 2023 um 08:57 UTC](https://forum.shopware.com/t/einfaches-beispiel-gesucht-fuer-vba-und-excel-mit-api-zugriff-auf-shopware/100083/2 "2023-06-16T08:57:05Z")

</div>

Hallo Uhren-Zietz,

ich kenne mich leider weder mit der Api, noch mit VBA oder Excel aus, aber vielleicht kommst du ja mit den Verkaufskanälen weiter.

Dazu musst du als Erstes eine dynamische Produktgruppe anlegen, in deinem Fall vielleicht mit Kategorie = deine Root Kategorie, um alle Produkte zu bekommen.

 ![image](https://europe1.discourse-cdn.com/flex013/uploads/shopware/original/3X/7/4/742e0bfdb9501f7941fa21fdf3233085fead260b.png)

Dann legst du einen neuen Verkaufskanal als Produktvergleich an und passt das XML Template an so wie du es brauchst, vielleicht kannst du dann mit Excel/VBA über die Export-URL auf die Daten zugreifen und weiterverarbeiten.

Viele Grüße  
Tom

---

<div class="post-metadata">

**Author:** ![ShopwVBA](https://avatars.discourse-cdn.com/v4/letter/s/838e76/32.png) [@ShopwVBA](https://forum.shopware.com/u/ShopwVBA)\
**Post date:** [27. September 2024 um 13:57 UTC](https://forum.shopware.com/t/einfaches-beispiel-gesucht-fuer-vba-und-excel-mit-api-zugriff-auf-shopware/100083/3 "2024-09-27T13:57:26Z")

</div>

habe Shopware 6 API über VBA Excel bzw. MS Access angezapft der Schlüssel zur API ist  
dieser json Body String

{  
„client\_id“: „administration“,  
„grant\_type“: „password“,  
„scopes“: „write“,  
„username“: „“,  
„password“: „“  
}

---

<div class="post-metadata">

**Author:** ![ShopwVBA](https://avatars.discourse-cdn.com/v4/letter/s/838e76/32.png) [@ShopwVBA](https://forum.shopware.com/u/ShopwVBA)\
**Post date:** [27. September 2024 um 14:15 UTC](https://forum.shopware.com/t/einfaches-beispiel-gesucht-fuer-vba-und-excel-mit-api-zugriff-auf-shopware/100083/4 "2024-09-27T14:15:03Z")

</div>

so kannst Du starten

Dim http As Object  
Dim url As String  
Dim response As String  
Dim akey As String  
url = „[http://domain.de/api/oauth/token](http://domain.de/api/oauth/token)“  
jsonBody = …

’ HTTP-Anfrage erstellen  
Set http = CreateObject(„MSXML2.XMLHTTP“)  
http.Open „POST“, url, False  
http.setRequestHeader „Content-Type:“, „application/json“  
http.setRequestHeader „Accept:“, „application/json“

http.send jsonBody