MacroFacili: Leggere dati da un server

JSON è un formato per lo scambio di dati che ha preso velocemente piede negli ultimi anni: è possibile con VBA leggere dati in formato JSON direttamente da un indirizzo web.

Dim http As Object, JSON As Object, i As Integer

Set Wba = ActiveWorkbook
Set Fa = Wba.Sheets(1)
Fa.Activate

Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "http://www.datob.it/TestSchedaJson.php", False
http.Send
Set JSON = ParseJson(http.responseText)

Ra = 5
For Each item In JSON
   For Each itemC In item
      Fa.Cells(Ra, 2) = itemC
      Fa.Cells(Ra, 3) = item(itemC)
      Ra = Ra + 1
   Next itemC
Next

Dim http As Object, JSON As Object, i As Integer

Set Wba = ActiveWorkbook
Set Fa = Wba.Sheets(1)
Fa.Activate

Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "http://www.datob.it/TestElencoJson.php", False
http.Send
Set JSON = ParseJson(http.responseText)

Ra = 5
For Each item In JSON
   Ca = 2
   For Each itemC In item
      Fa.Cells(Ra, Ca) = itemC
      Ca = Ca + 1
   Next itemC
   Ra = Ra + 1
Next

Alcuni link utili:

una spiegazione del formato JSON
il link GitHub per il convertitore JSON in VBA distribuito con licenza BSD