VBA-JSON Werte aus zellen einfügen

Hallo,
ich bastle seit geraumer Zeit an einem Exceldokument herum, in dem ich verschiedene API's abfragen möchte, um sie miteinander zu verknüpfen und auszuwerten.
nun bin ich an einem Punkt angelangt, an dem ich nicht weiterkomme. ich möchte von https://api.coincap.io/v2/candles?exchange=poloniex&interval=h1&baseId=ethereum&quoteId=bitcoin&start=1649894400000&end=1649898000000 den Wert "volume" in aufeinanderfolgenden Zellen ausgeben lassen. Das funktioniert auch schon gut. Allerdings möchte ich die Parameter für die Abfrage aus einer Zelle beziehen und da harpert es bei mir. Vermutlich ist es nur eine Kleinigkeit aber ich komme selber einfach nicht weiter. Mein code sieht folgendermaßen aus:


Sub GetVolume()
On Error Resume Next
'List of all symbols
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "https://api.coincap.io/v2/candles", False
On Error Resume Next
http.Send
Set json = ParseJson(http.ResponseText)
i = 10
For Each item In json("data")
If item("exchange") = Workbooks(1).Worksheets("Tabelle1").Range("A1").Value And Workbooks(1).Worksheets("Tabelle1").Range("A1").Value  "" Then
Sheets(1).Cells(1, i).Value = item("volume")
i = i + 1
End If
Next
Exit Sub
error:
End Sub

Die Parameter sollen also aus der Zelle A1 genommen werden und die Antwort in J1 und folgenden ausgegeben werden. Die Werte in A1 kommen dann später aus verschiedenen Zellen und sind mit Excel Funktionen zusammengesetzt.
Der Link zu meiner Excel-Datei lautet: https://www.herber.de/bbs/user/157048.xlsm
für jeden Tip bin ich dankbar.

Hallo Matze,
noch keine Antwort, daher lasse ich die Frage offen.
Nur Hygiene-Faktor:
_ ein sauberes Einrücken bringt eine bessere Übersicht über den Code und das Erkennen von dummen Fehler leichter.
_ ich würde auch die Variabledeklaration als "erforderlich" schalten. Profis machen es so. Warum wohl.
Ist es richtig, dass Du bei jedem "Item" abfragst, ob Range("A1") <> "" obwohl dies im Lauf der Behandlung sich nicht ändert?
"sheets(1)" scheint Worksheets("Tabelle1") zu sein. Warum zwei verschiedenen Benennungen? Spass an dich selbst zu verwirren? Zu viel Denkvermögen vorhanden? Langeweile?
Ich bringe den Code nicht zum Laufen: schon auf die Zeile "Sub GetVolume()" bricht es mit "ungültige Prozedureaufruf oder ungültiges Argument".
Ausserdem scheint dein http.Open fehlerhaft zu sein: es ist nicht im Browser zu öffnen.


Sub GetVolume()
On Error Resume Next
'List of all symbols
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "https://api.coincap.io/v2/candles", False
http.Send
Set json = ParseJson(http.ResponseText)
With Workbooks(1).Worksheets("Tabelle1")
i = 10
If .Range("A1").Value  "" Then
For Each Item In json("data")
If Item("exchange") = .Range("A1").Value Then
.Cells(1, i).Value = Item("volume")
i = i + 1
End If
Next
End If
End With
Exit Sub
error:
End Sub

VG
Yal

VBA-JSON Werte aus zellen einfügen

Forumthread: VBA-JSON Werte aus zellen einfügen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial