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
Reading, United Kingdom
Member for 2 years
20 profile views
Last seen Jan 15 at 8:20