288
reputation
2
16

Petrichor

MEng, PhD candidate. A bit of experience in C++, Fortran 77 and now VBA via excel.

Saving for a later project, scraping and analysing data for fantasy football:

 Public Sub exceljson()
Dim https As Object, Json As Object, i As Integer

Dim Item As Variant

Set https = CreateObject("MSXML2.XMLHTTP")
https.Open "GET", "https://min-api.cryptocompare.com/data/price?fsym=USD&tsyms=BTC", False
https.Send

Set Json = JsonConverter.ParseJson(https.responseText)

i = 2
For Each Item In Json.Items
    Sheets(1).Cells(i, 2).Value = Item
    i = i + 1
Next
MsgBox ("complete")
End Sub
6
answers
9
questions
~5k
people reached
  • Reading, United Kingdom
  • Member for 1 year, 6 months
  • 15 profile views
  • Last seen Jun 27 at 10:36

Top tags (21)

Score 2
Posts 2
Posts % 13
Score 2
Posts 2
Score 2
Posts 1
Score 1
Posts 8
Score 1
Posts 6
Score 1
Posts 6

Top posts (15) All Questions Answers | Votes Newest

View all questions and answers

Badges (18)

Gold

Silver

2

Rarest

Bronze

16

Rarest