Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Http-Request (POST) für GraphQL API-Abfrage

Forumthread: Http-Request (POST) für GraphQL API-Abfrage

Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 14:03:38
Marc
Hallo zusammen,

ich versuche mich seit Stunden daran einen HTTP-Request zu erstellen via VBA mit dem ich Daten von der freien API (GraphQL) der Deutschen Börse ziehen kann. Ich hab schon so ziemlich jede erdenkliche Variante probiert in bezug auf die Gestaltung des Request-Headers aber das Ergebnis ist immer das Gleiche.

Mein Code liefert zwar keine Fehlermeldung und ich bekomme eine Antwort vom Server aber ich bekomme trotzdem keine Daten. Dass die Daten verfügbar sind und geliefert werden habe ich bereits mit einem Python-Code getestet. Ich vermute, dass irgendetwas falsch ist an der Art, wie ich den Http-Header aufbaue bei meinem POST-Request. Ich bin noch nicht so fit mit HTTP-Requests und ich vermute, dass der Fehler trivial ist, aber ich komme nicht drauf woran es liegt.

Das ist mein Code: 

Sub httppost()



Dim xmlhttp As Object, myurl As String, body As String, auth As String



Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")





myurl = "https://console.developer.deutsche-boerse.com/apis/accesstot7-referencedata/1.1.0/"



auth = "{ " & """X-DBP-APIKEY""" & " : " & """68cdafd2-c5c1-49be-8558-37244ab4f513""" & " }"



contype = """{ application/json }"""



xmlhttp.Open "POST", myurl, False



xmlhttp.setRequestHeader "Content-Type", contype



xmlhttp.setRequestHeader "Authorization", "Basic " + auth





body = """query {" & vbCrLf & _

       "ProductInfos{" & vbCrLf & _

       "data {" & vbCrLf & _

       "ProductType" & vbCrLf & _

       "}}}"""

       

   

xmlhttp.Send body



ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value = xmlhttp.getAllResponseHeaders()





End Sub


Hier ist mal eine Beispielabfrage in Python, die das gewünschte Ergebnis problemlos liefert:

https://github.com/Finsinyur/EurexT7ReferenceData/blob/main/get_producttypes_eurex.py

Und hier der Link zur Dokumentation der Deutschen Börse:

https://console.developer.deutsche-boerse.com/apis/a518bf48-661d-468d-af6a-c107d0fc1511/api-details

Es wäre mega wenn jemand einen Tipp für mich hätte was an meinem HTTP-Header falsch ist.

Beste Grüße
Marc
Anzeige

25
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 14:25:32
Marc
Man möge es mir verzeihen, ich hatte eben versäumt noch den Output hinzuzufügen den mir die API liefert:

Http.responseText liefert folgendes Ergebnis:

/apis/accesstot7-referencedata/1.1.0

Ich habe jetzt auch realisiert, dass wohl die Bezeichnung meines Headers verkehrt war und habe dies wie folgt angepasst: 

Sub httppost()



Dim xmlhttp As Object, myurl As String, body As String, auth As String



Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")





myurl = "https://console.developer.deutsche-boerse.com/apis/accesstot7-referencedata/1.1.0/"



auth = "{ " & """X-DBP-APIKEY""" & " : " & """68cdafd2-c5c1-49be-8558-37244ab4f513""" & " }"



MsgBox auth



contype = """{ application/json }"""





xmlhttp.Open "POST", myurl, False



xmlhttp.setRequestHeader "Content-Type", contype



xmlhttp.setRequestHeader auth, "Basic"



body = """query {" & vbCrLf & _

       "ProductInfos{" & vbCrLf & _

       "data {" & vbCrLf & _

       "ProductType" & vbCrLf & _

       "}}}"""

       

   

xmlhttp.Send body



ThisWorkbook.Worksheets("Tabelle1").Range("A3").Value = xmlhttp.responseText()



ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value = xmlhttp.getAllResponseHeaders()





End Sub


Das Ergebnis bleibt leider das Gleiche.

Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
21.04.2024 11:31:01
Yal
Hallo Marc,

sehe ich das richtig, dass Du in einem öffentlichen Forum deine persönliche API-Key gepostet hast?

Wenn diese zu irgendetwas kostenpflichtig führt, würde ich sie umgehend blockieren lassen und eine neue erstellen.

Solche Forum für Ahnungslosen werden automatisiert gescannt. Von wem wohl...

VG
Yal
Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
21.04.2024 12:16:17
Marc
Hallo Yal,

Das siehst Du nicht richtig.

Das ist der freie API-Key der Deutschen Börse, den Du so auch auf deren Webseite vorfindest.

Den Link zur Doku hatte ich eingangs geposted.

VG
Marc
AW: Http-Request (POST) für GraphQL API-Abfrage
21.04.2024 16:48:44
Marc
Irgendwas stimmt mit meinem "Authorization"-Header nicht, das ist mittlerweile klar.

Leider sehe ich keine Möglichkeit, wie ich sicherstellen kann, was das Request-Objekt tatsächlich genau übermittelt, also das Format.

Je nach Variante habe ich teilweise auch einen Fehlercode 400 "Invalid JSON PAYLOAD in graphqlauth error" (oder so ähnlich lautend ) erhalten.

Es ist vermutlich nur ein Detail. Auch ein Studium der Norm für den Authorization-Header hat mich nicht weiter gebracht.

Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
21.04.2024 22:41:16
Oppawinni
Also, ich denke, dass ich ein wenig weiter bin.
Jetzt müsste man den Output halt noch verarbeiten, wenn der das ist, was du wolltest. 



Sub httppost()



'Verweise:

'Microsoft Scripting Runtime

'Microsoft XML, V6.0



Dim myurl As String, body As String



Dim xmlhttp As New MSXML2.XMLHTTP60



myurl = "https://api.developer.deutsche-boerse.com/accesstot7-referencedata-1-1-0/"



xmlhttp.Open "POST", myurl, False



Debug.Print myurl

xmlhttp.setRequestHeader "X-DBP-APIKEY", "68cdafd2-c5c1-49be-8558-37244ab4f513"

xmlhttp.setRequestHeader "Content-Type", "{application/json}"

       

body = "{ ""query"": ""query { ProductInfos" & _

        "{data{ProductType}}}"" }"

                

xmlhttp.Send body



Debug.Print xmlhttp.ResponseText

Debug.Print xmlhttp.Status, xmlhttp.statusText



End Sub
Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
21.04.2024 23:22:58
Marc
@Oppawinni

MEGA!!!!!!!! Es läuft!!!!!!

Du hast mir so geholfen! Ich war echt am verzweifeln!

Tausend Dank!

LG
Marc

AW: Http-Request (POST) für GraphQL API-Abfrage
22.04.2024 00:19:38
Oppawinni
Ja, so ein paar Zeilen Code können einen schon lange beschäftigen :)
Naja, aber so richtig fertig ist das ja nicht und etwas besser aufgeräumt könnte der Code schon auch sein. 



Sub httppost()



'Verweise:

'Microsoft Scripting Runtime

'Microsoft XML, V6.0



Dim myurl As String, body As String, strResponse As String



Dim xmlhttp As New MSXML2.XMLHTTP60



myurl = "https://api.developer.deutsche-boerse.com/accesstot7-referencedata-1-1-0/"

body = "{ ""query"": ""query {ProductInfos{data{ProductType}}}"" }"



With xmlhttp

    .Open "POST", myurl, False

    .setRequestHeader "X-DBP-APIKEY", "68cdafd2-c5c1-49be-8558-37244ab4f513"

    .setRequestHeader "Content-Type", "{application/json}"

    .Send body

    strResponse = .ResponseText

End With



'hier sollte man vielleicht noch den Status abfragen und im Fehlerfall mit Msg abbrechen. 

'ansonsten müsste das JSON dann ggf. verarbeitet werden, also z.B. geparsed und ggf. in eine Tabelle geschrieben werden. 



Debug.Print strResponse



End Sub
Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
22.04.2024 22:13:23
Marc
@Oppawinni

Ich gelobe Besserung! ;)

Einen JSON-Parser hab ich. Das Problem bestand tatsächlich nur darin diese Authorisierung ins richtige Format zu bekommen.

Wobei mein Body ja offensichtlich auch nicht korrekt formatiert war. Da hätte ich wahrscheinlich wieder Stunden mit gekämpft. =P

Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
22.04.2024 22:27:45
Oppawinni
Das mit dem early binding ist ja schön, solange man am Code arbeitet.
Ich würde das dann aber schon auf late binding umstellen also:

Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP.6.0")

Darf ich fragen, welchen Parser du verwendest ?
AW: Http-Request (POST) für GraphQL API-Abfrage
22.04.2024 23:36:18
Marc
Jetzt bin ich etwas irritiert, denn ich war der Meinung was ich mache sei late Binding, da ich mit 
Set httpreq = CreateObject("MSXML2.serverXMLHTTP")
ein Objekt erstelle.

Das ist ein JSON-Parser aus dem Netz. Der Schreiber hat ihn als besonders schnell und zuverlässig angepriesen. Das Teil erstellt ein Dictionary aus dem JSON-File und man kann die einzelnen Elemente dann über deren Index komfortabel ansprechen.

Der Parser kann hier heruntergeladen werden:

https://medium.com/swlh/excel-vba-parse-json-easily-c2213f4d8e7a



Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
23.04.2024 00:51:36
Oppawinni
Es ging darum, dass ich ja mit early binding gepostet hatte.

Der Parser scheint übrigens ganz ok. Ich weiß ja nicht, ob ich den mal brauche, aber es schadet ja nicht, den mal zu speichern.
Danke dafür.
AW: Http-Request (POST) für GraphQL API-Abfrage
24.04.2024 14:48:40
Oppawinni
ich habe gerade noch ein wenig gespielt und meine, dass im body ein query überflüssig ist.
Das sollte genügen: 
    body = "{ ""query"": ""{ProductInfos{data{ProductType}}}"" }"
Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
25.04.2024 18:14:12
Marc
Das hatte ich im Rahmen meiner Recherche tatsächlich auch entdeckt und das wäre im Grunde ideal.

Kostet aber Kohle und auf ein Abo hab ich keine Lust.

Da mach ich mir dann lieber Dir Mühe und lerne die GraphQL Queries um sie nach VBA zu übersetzen.

Aber tausend Dank! ;)
Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
26.04.2024 16:40:25
Oppawinni
Ja, es kostet.. Mühe herauszufinden wie das geht.
Ich hab mal in power query ne doofe url eingegeben, die etwas liefert, also sowas z.B. https://api.restful-api.dev/objects
dann hab ich den erweiterten Editor geöffnet und das eingegeben:

let
url = "https://api.developer.deutsche-boerse.com/accesstot7-referencedata-1-1-0/",
header = [#"Content-Type"="{application/json}", #"X-DBP-APIKEY"="68cdafd2-c5c1-49be-8558-37244ab4f513"],
Content = "{ ""query"": ""{ProductInfos{data{Product,ProductType}}}"" }",
webdata = Web.Contents(url, [Headers=header,Content = Text.ToBinary(content)]),
response = Json.Document(webdata)
in
response

Was halt etwa hier beschrieben wird:
https://community.fabric.microsoft.com/t5/Power-Query/Sending-a-POST-API-request-using-PowerQuery-on-Excel-PBI-with-a/td-p/2764875

Naja dann hab ich mich durch ein paar Einstellungen in Power Query gehangelt und dann hab im Prinzip auch das:
Userbild
Anzeige
Die komplette Abfrage
26.04.2024 16:53:50
Oppawinni
Die sieht dann so aus (ich hatte im vorherigen Post das content einmal fälschlicher Weise groß geschrieben, Zeile 4) :
let
url = "https://api.developer.deutsche-boerse.com/accesstot7-referencedata-1-1-0/",
header = [#"Content-Type"="{application/json}", #"X-DBP-APIKEY"="68cdafd2-c5c1-49be-8558-37244ab4f513"],
content = "{ ""query"": ""{ProductInfos{data{Product,ProductType}}}"" }",
webdata = Web.Contents(url, [Headers=header,Content = Text.ToBinary(content)]),
response = Json.Document(webdata),
#"In Tabelle konvertiert" = Record.ToTable(response),
#"Erweiterte Value" = Table.ExpandRecordColumn(#"In Tabelle konvertiert", "Value", {"ProductInfos"}, {"Value.ProductInfos"}),
#"Erweiterte Value.ProductInfos" = Table.ExpandRecordColumn(#"Erweiterte Value", "Value.ProductInfos", {"data"}, {"Value.ProductInfos.data"}),
#"Value ProductInfos data" = #"Erweiterte Value.ProductInfos"{0}[Value.ProductInfos.data],
#"In Tabelle konvertiert1" = Table.FromList(#"Value ProductInfos data", Splitter.SplitByNothing(), null, null, ExtraValues.Error),
#"Erweiterte Column1" = Table.ExpandRecordColumn(#"In Tabelle konvertiert1", "Column1", {"Product", "ProductType"}, {"Column1.Product", "Column1.ProductType"})
in
#"Erweiterte Column1"
Anzeige
AW: Die komplette Abfrage
26.04.2024 19:54:03
Marc
Hi Oppawinni =)

Du hast Dir jetzt praktisch die Mühe gemacht und eine Excel-Query erstellt, die das Gleiche macht, was CData in ihrem Produkt anbieten?

Das ist stark! Tausend Dank!

Ich werde vermutlich trotzdem nicht drum herum kommen, mich intensiv mit GraphQL zu befassen, da man Details zu den Queries nur über _schema-Abfragen bekommt.

Aber trotzdem top!

Anzeige
AW: Die komplette Abfrage
27.04.2024 18:16:49
Marc
@OppaWinni

Mittlerweile hab ich es geschafft mir in einem GraphQL-Editor, die Query zu basteln, die ich haben wollte. Diese gibt mir alle Basiswerte (Underlyings) aus, auf die Stock Options handelbar sind an der Eurex, mitsamt der Währung, dem Namen der Aktiengesellschaft und ISIN der Aktie.

Dabei habe ich einen Filter eingebaut in die GraphQL-Abfrage, der nach dem ProductType "Single Stock Options" filtert. Funktioniert in GraphQL selbst ganz wunderbar. Nun wollte ich den Request in VBA nachbilden, aber da bekomme ich einen Fehler wegen dem Filter.

Das ist mein Request-body: 

body = "{""query"": ""query{ProductInfos(filter:{ProductType:{eq:""SINGLE STOCK OPTIONS""}}){date data{UnderlyingName, UnderlyingISIN, Product, ProductType, Currency}}}"" }"


Damit bekomme ich vom Server die folgende Fehlermeldung:

obj.errors(0).message --> Invalid JSON payload in GraphQLAuth POST request.
obj.errors(0).errorType --> MalformedHttpRequestException

Wenn ich den Filter weglasse, dann funktioniert die Abfrage. Der Request-body sieht dann so aus: 

body = "{""query"": ""query{ProductInfos{date data{UnderlyingName, UnderlyingISIN, Product, ProductType, Currency}}}"" }"


Hast Du eine Idee, weshalb der Filter Probleme macht?
Anzeige
AW: Die komplette Abfrage
27.04.2024 18:37:15
Marc
Hab gerade einen Post in einem anderen Forum gefunden, der die richtige Syntax für die Verwendung von HTTP-Requests im Zusammenhang mit GraphQL-Queries geliefert hat: 

body = "{""query"": ""{ProductInfos(filter:{ProductType:{eq:\""SINGLE STOCK OPTIONS\""}}){date data{UnderlyingName, UnderlyingISIN, Product, ProductType, Currency}}}"" }"


Man muss ja auch mal Glück haben. =D

\""SINGLE STOCK OPTIONS\""

Die Backslashs waren die Lösung!
Anzeige
AW: Die komplette Abfrage
27.04.2024 19:10:45
Oppawinni
Na, aber da hast du dir das nicht angeschaut,
wo ich das Beispiel von der API - Site gepostet hatte, da war auch ein Filter dabei..
Naja, Hauptsachte es läuft.
AW: Die komplette Abfrage
27.04.2024 20:07:55
Marc
Doch doch, ich hatte in der Tat zunächst in Deinen vorherigen Posts geschaut, ob Du irgendwo einen Filter verwendet hattest, aber offenbar war es mir entgangen. =D
Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
24.04.2024 15:06:55
Oppawinni
ich wollte halt mal das Beispiel auf der API - Site machen und das hatte auch nicht gleich funktioniert: 


    body = "{ ""query"": ""{Contracts(filter:{Product:{eq: \""FDAX\""}}) {date,data {ISIN,Contract,ExpirationDate}}}"" }"
AW: Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 15:51:51
Marc
Zwischenzeitlich habe ich realisiert, dass die Antwort eine Collection sein muss und habe den Code entsprechend angepasst: 

Sub httppost()



Dim xmlhttp As Object, myurl As String, body As String, auth As String, coll



Set coll = New Collection



Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")



myurl = "https://console.developer.deutsche-boerse.com/apis/accesstot7-referencedata/1.1.0/"



auth = "{ " & """X-DBP-APIKEY""" & " : " & """68cdafd2-c5c1-49be-8558-37244ab4f513""" & " }"



xmlhttp.Open "POST", myurl, False



xmlhttp.setRequestHeader "Content-Type", "application/json"



xmlhttp.setRequestHeader auth, "Basic"



body = "query {" & vbCrLf & _

       "ProductInfos{" & vbCrLf & _

       "data {" & vbCrLf & _

       "ProductType" & vbCrLf & _

       "}}}"

       

MsgBox body

       

xmlhttp.Send body



coll = xmlhttp.responseText



End Sub


Das Collection-Objekt enthält jedoch nach wie vor nur den folgenden String: "/apis/accesstot7-referencedata/1.1.0"
Anzeige
AW: Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 16:24:14
Marc
Nun habe ich in der http.response einen "308 Premanent Redirect" entdeckt und festgestellt, dass schon die verwendete URL nicht korrekt war! Der Python-Aufruf verwendete tatsächlich die korrekte URL, daher hat der auch funktioniert! (Wie schön, dass man bei der Deutschen Börse die eigene Webseite so aktuell hält! Unglaublich!)

Mit der neuen URL bekomme ich nun immerhin eine "401 Unauthorized"-Meldung.

Jetzt liegt es wohl tatsächlich am Http.Header.

Mein Code: 

Sub httppost()



Dim xmlhttp As Object, myurl As String, body As String, auth As String, coll



Set coll = New Collection



Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")



myurl = "https://api.developer.deutsche-boerse.com/prod/accesstot7-referencedata/1.1.0/"



auth = "{ " & """X-DBP-APIKEY""" & " : " & """68cdafd2-c5c1-49be-8558-37244ab4f513""" & " }"





xmlhttp.Open "POST", myurl, False



xmlhttp.setRequestHeader "Content-Type", "application/json"



xmlhttp.setRequestHeader auth, "Basic"



body = "query {" & vbCrLf & _

       "ProductInfos{" & vbCrLf & _

       "data {" & vbCrLf & _

       "ProductType" & vbCrLf & _

       "}}}"

       

MsgBox body

       

xmlhttp.Send body



coll = xmlhttp.responseText



ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value = xmlhttp.getAllResponseHeaders



ThisWorkbook.Worksheets("Tabelle1").Range("A3").Value = xmlhttp.responseText



End Sub
Anzeige
;
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige