[Excel] Intterrogazione REST e gestione JSON

[Dylan666]

Ciao a tutti,
devo provare a interrogare un webservice da Excel che mi restituirà un JSON.
Dovrò gestire un POST con autenticazione, header personalizzati ecc, ma ho deciso di partire da un esempio semplice.
Ho trovato questo:
https://marquesfernandes.com/en/develop ... son/?amp=1

Ho fatto quanto descritto (almeno credo) ma su questa riga:

Codice: Seleziona tutto

For Each pokemon InJsonObject("results")

ottengo un errore di sintassi.
Dove posso aver sbagliato?

[Anthony47]

Non hai sbagliato, ci sono proprio errori nel codice che ti hanno detto di copiare..

C'e' un errore di sintassi sulla linea che ho "commentato"

Codice: Seleziona tutto

'For Each pokemon InjsonObject("results")
For Each pokemon In jsonObject("results")


Qui invece, si e' "sconfuso":

Codice: Seleziona tutto

'Set ObjectJSon = JsonConverter.ParseJson(json)
Set jsonObject = JsonConverter.ParseJson(json)

Ri-prova...

[Dylan666]

Grazie veramente, lo spazio mancante dopo "In" non lo avevo proprio visto e nemmeno l'errore nel nome della variabile richiamata...
Risolto!

Posto il codice corretto:

Codice: Seleziona tutto

Sub listPokemons()
Dim json As String
Dim jsonObject As Object, item As Object
Dim i As Long
Dim ws As Worksheet
Dim objHTTP As Object

'We selected our results sheet
Set ws = Worksheets("results")

'We create our request object and send
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
Url = "https://pokeapi.co/api/v2/pokemon"
objHTTP.Open "GET", Url, False
objHTTP.Send
strResult = objHTTP.responseText
json = strResult

Set objectJson = JsonConverter.ParseJson(json)

'We create the header cells
ws.Cells(1, 1) = "name"
ws.Cells(1, 2) = "link"

'We loop the results property of the API response
'We will start the counter on line 2
i = 2
For Each pokemon In objectJson("results")
    ws.Cells(i, 1) = pokemon("name")
    ws.Cells(i, 2) = pokemon("url")
    i = i + 1
Next

End Sub



[Anthony47]

Ho inserito per errore in altra tua discussione questo messaggio: viewtopic.php?f=26&t=112670&p=662281#p662281

Ovviamente era da riferito a QUESTA discussione...

[Dylan666]

Grazie ma non ti preoccupare, il vero webservice che interrogo risponde sia in JSON che in XML ed ho optato per quest'ultimo.
Nel leggere la risposta però certe volte il tag che cerco non c'è e sto cercando di gestire questa eccezione ma con poco successo.
Posso scocciarti anche su questo?

[Anthony47]

Chiedere si puo' sempre, non e' sempre garantita una risposta soddisfacente