Hallo,
ich wäre für ein kurze Hilfestellung dankbar.
Ich habe mir ein kleines VB Script für Office zusammengeschustert das Werte aus einer Json API abruft und in mein Dokument einfügt.
In diesem Code wird die URL jeder Wertefamilie einzeln geladen, also: 1 api.coinmarketcap.com/v1/ticker/bitcoin 2 api.coinmarketcap.com/v1/ticker/ethereum
Nun würde ich aber lieber aus Gründen der Performace alle Werte aus nur einer URL laden: https://api.coinmarketcap.com/v1/ticker
Wie kann man den Code nun durch eine if-Abfrage erweitern und die dementsprechenden Werte abfragen ?
Nur zum groben Verständnis:
Ich habe auch noch eine zweite Frage wie ist die korrekte Schreibweiße wenn ich in VB zwei Werte dividieren will?
damit geht es auf jeden Fall schonmal nicht.
Ich wäre für jede Hilfe dankbar. So wie es momentan funktioniert, geht es mir auf die Nerven und ist sicher auch für den Server nicht optimal.
ich wäre für ein kurze Hilfestellung dankbar.
Ich habe mir ein kleines VB Script für Office zusammengeschustert das Werte aus einer Json API abruft und in mein Dokument einfügt.
Quellcode
- Private Sub CommandButton1_Click()
- Dim http As Object, JSON As Object, i As Integer
- Set http = CreateObject("MSXML2.XMLHTTP"
- http.Open "GET", "https://api.coinmarketcap.com/v1/ticker/bitcoin", False
- http.Send
- Set JSON = ParseJson(http.responseText)
- i = 3
- For Each Item In JSON
- Sheets(1).Cells(i, 2).Value = Item("name")
- Sheets(1).Cells(i, 3).Value = Item("symbol")
- Sheets(1).Cells(i, 5).Value = Item("price_usd")
- Sheets(1).Cells(i, 6).Value = Item("market_cap_usd")
- Sheets(1).Cells(i, 7).Value = Item("available_supply")
- i = i + 1
- Next
- http.Open "GET", "https://api.coinmarketcap.com/v1/ticker/ethereum", False
- http.Send
- Set JSON = ParseJson(http.responseText)
- i = 5
- For Each Item In JSON
- Sheets(1).Cells(i, 2).Value = Item("name")
- Sheets(1).Cells(i, 3).Value = Item("symbol")
- Sheets(1).Cells(i, 5).Value = Item("price_usd")
- Sheets(1).Cells(i, 6).Value = Item("market_cap_usd")
- Sheets(1).Cells(i, 7).Value = Item("available_supply")
- i = i + 1
- Next
- ...
- End Sub
In diesem Code wird die URL jeder Wertefamilie einzeln geladen, also: 1 api.coinmarketcap.com/v1/ticker/bitcoin 2 api.coinmarketcap.com/v1/ticker/ethereum
Nun würde ich aber lieber aus Gründen der Performace alle Werte aus nur einer URL laden: https://api.coinmarketcap.com/v1/ticker
Wie kann man den Code nun durch eine if-Abfrage erweitern und die dementsprechenden Werte abfragen ?
Nur zum groben Verständnis:
Quellcode
- if id = ("ethereum") dann
- i = 5
- For Each Item In JSON
- Sheets(1).Cells(i, 2).Value = Item("name")
- Sheets(1).Cells(i, 3).Value = Item("symbol")
- Sheets(1).Cells(i, 5).Value = Item("price_usd")
- Sheets(1).Cells(i, 6).Value = Item("market_cap_usd")
- Sheets(1).Cells(i, 7).Value = Item("available_supply")
- i = i + 1
- Next
Ich habe auch noch eine zweite Frage wie ist die korrekte Schreibweiße wenn ich in VB zwei Werte dividieren will?
damit geht es auf jeden Fall schonmal nicht.
Ich wäre für jede Hilfe dankbar. So wie es momentan funktioniert, geht es mir auf die Nerven und ist sicher auch für den Server nicht optimal.