# Zugriff auf Shopware 6 über API und VBA und EXCEL?

**URL:** <https://forum.shopware.com/t/zugriff-auf-shopware-6-uber-api-und-vba-und-excel/71793>\
**Category:** Allgemein\
**Created:** [30. Dezember 2020 um 12:07 UTC](https://forum.shopware.com/t/zugriff-auf-shopware-6-uber-api-und-vba-und-excel/71793 "2020-12-30T12:07:16Z")\
**Posts on this page:** 6\
**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:** [30. Dezember 2020 um 12:07 UTC](https://forum.shopware.com/t/zugriff-auf-shopware-6-uber-api-und-vba-und-excel/71793/1 "2020-12-30T12:07:16Z")

</div>

Hallo Allerseits!

Ich bekomme es leider nicht hin, per **VBA** auf Shopware 6 zuzugreifen. Leider ist mir auch nicht klar, wie ich einen Benutzernamen + Passwort **oder** Benutzernamen + API-Key übertragen muss. Ohne diese Angabe wird man bestimmt keine Abfrage vornehmen dürfen. **Kann hier jemand helfen, der Erfahrungen hat?**

url = “[https://apfelbaum.de/api/articles/](https://apfelbaum.de/api/articles/)”  
'MsgBox url

'Verweis notwendig: Microsoft WINHTTP-Services

With CreateObject(“WINHTTP.WinHTTPRequest.5.1”)  
&nbsp;&nbsp;&nbsp; .Open “GET”, url, False  
&nbsp;&nbsp;&nbsp; .send  
&nbsp;&nbsp;&nbsp; MsgBox .responseText  
End With

Vielen Dank! JM

---

<div class="post-metadata">

**Author:** ![lhairman](https://avatars.discourse-cdn.com/v4/letter/l/cdc98d/32.png) [@lhairman](https://forum.shopware.com/u/lhairman)\
**Post date:** [30. Dezember 2020 um 14:02 UTC](https://forum.shopware.com/t/zugriff-auf-shopware-6-uber-api-und-vba-und-excel/71793/2 "2020-12-30T14:02:51Z")

</div>

Hallo JM,

ich habe eine Anbindung zwischen Access (VBA) und Shopware programmiert.

Dafür verwende ich hauptsächlich die Komponente von&nbsp;chilkatsoft, mit der sich die Abfragen über REST und JSON sehr komfortabel erledigen lassen. Ich habe anfangs viel mit Postman gearbeitet und mir damit die Logik und Abfragestruktur erarbeitet.&nbsp;

Um überhaupt mal an die Schnittstelle von Shopware zu kommen, musst Du mit den „Integrations-Daten“ einen Token holen („OAuth“). Mit diesem Token kannst Du dann alle Anfragen ausführen, was wirklich sehr gut funktioniert, wenn man die Logik mal verstanden hat. Ich bin total begeistert von Shopware und die Anbindung über die API!

Viel Erfolg!

---

<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:** [30. Dezember 2020 um 14:46 UTC](https://forum.shopware.com/t/zugriff-auf-shopware-6-uber-api-und-vba-und-excel/71793/3 "2020-12-30T14:46:15Z")

</div>

Hallo lhairman!

Vielen Dank für Deine Zeilen. Der Tooken wurde schon in einigen Treffern bei Dr. Google erwähnt. Leider gibt es kaum VBA-Fundstücke darunter. Die Vielfalt der Anmeldungsmöglichkeiten ist einfach beeindruckend. Kannst Du mir Deinen Codeblock herauskopieren (die Anmeldungsdaten unkenntlich machen), damit ich die komplette Vorgehensweise in VBA habe? Den Rest bekomme ich dann hin. MfG. JM

---

<div class="post-metadata">

**Author:** ![lhairman](https://avatars.discourse-cdn.com/v4/letter/l/cdc98d/32.png) [@lhairman](https://forum.shopware.com/u/lhairman)\
**Post date:** [31. Dezember 2020 um 09:25 UTC](https://forum.shopware.com/t/zugriff-auf-shopware-6-uber-api-und-vba-und-excel/71793/4 "2020-12-31T09:25:48Z")

</div>

So hole ich einen Token über die Chilkat-Komponente (die kostet allerdings ein paar Euro)

```
Set json = CreateObject("Chilkat_9_5_0.JsonObject")
json.updateString "grant_type", "client_credentials"
json.updateString "client_id", client_id
json.updateString "client_secret", client_secret
        
Set http = CreateObject("Chilkat_9_5_0.Http")
' resp is a Chilkat_9_5_0.HttpResponse
Set resp = http.PostJson3(getAPIURL(False) & "api/oauth/token", "application/json", json)
If (http.LastMethodSuccess <> 1) Then Exit Function
    
Set jsonResp = CreateObject("Chilkat_9_5_0.JsonObject")
jsonResp.Load resp.BodyStr

myToken = jsonResp.stringof("access_token")

```

Grüße und guten Rutsch!

---

<div class="post-metadata">

**Author:** ![Jogi2021](https://avatars.discourse-cdn.com/v4/letter/j/e68b1a/32.png) [@Jogi2021](https://forum.shopware.com/u/Jogi2021)\
**Post date:** [30. Januar 2021 um 10:28 UTC](https://forum.shopware.com/t/zugriff-auf-shopware-6-uber-api-und-vba-und-excel/71793/5 "2021-01-30T10:28:25Z")

</div>

Hallo,

&nbsp;

dein Tippp hat mir sehr geholfen!

---

<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:** [30. Januar 2021 um 10:48 UTC](https://forum.shopware.com/t/zugriff-auf-shopware-6-uber-api-und-vba-und-excel/71793/6 "2021-01-30T10:48:30Z")

</div>

Hallo Jogi2021!

Ich hatte die Anbindung an VBA aus Zeitgründen erstmal beiseitegelegt. Sie interessiert mich jedoch noch immer. Benutzt Du die Chilkat-Komponenten? Wenn nicht, kannst Du den Code für die Anmeldung posten? Est ist schon erstaunlich, wie wenig man zu diesem Thema (Shopware und VBA) findet. Irgendwie wollen alle nur fertige Komponenten verkaufen (möglichst noch kompiliert). Oder man bekommt den Hinweis “Du willst nur lesen, dann benutze doch den Standardexport”. Ein gutes Beispiel würde mir sehr helfen.

MfG. JM