Option Explicit
Private Sub PROVINCE()
Dim APICall As String
Dim Query As String
Dim strKey As String
Dim myXML As New MSXML2.DOMDocument60
Dim nodes As IXMLDOMSelection
'APICall = "https://cap.openapi.it/cerca_comuni"
APICall = "https://comuni.openapi.it/province/"
Query = "?comune=ROMA" ' use Rome as an example
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", APICall, False
.setRequestHeader "Authorization", "Bearer xxxxxxxxxxxxxxxxxxxxxx"
.send
Debug.Print .responseText
JSONDecode Replace(.responseText, "data", "info") ' avoid the trap that data is a reserved word in VB
End With
End Sub
Sub JSONDecode(JSONString)
Dim oJSON, mydata
With CreateObject("ScriptControl")
.Language = "JScript"
Set oJSON = .Eval("(" + JSONString + ")")
For Each mydata In oJSON.info.result
Debug.Print "PROVINCIA: " & mydata.comune & ", " & mydata.istat
Next
End With
End Sub
Private Sub Command1_Click()
Call PROVINCE
End Sub
l'output di Debug.Print .responseText è questo:
{
"data": {
"AG": "Agrigento",
"AL": "Alessandria",
"AN": "Ancona",
"AO": "Valle d'Aosta\/Vall\u00e9e d'Aoste",
"AP": "Ascoli Piceno",
"AQ": "L'Aquila",
"AR": "Arezzo",
"AT": "Asti",
"AV": "Avellino",
"BA": "Bari",
"BG": "Bergamo",
"BI": "Biella",
"BL": "Belluno",
"BN": "Benevento",
"BO": "Bologna",
"BR": "Brindisi",
"BS": "Brescia",
"BT": "Barletta-Andria-Trani",
"BZ": "Bolzano\/Bozen",
"CA": "Cagliari",
"CB": "Campobasso",
"CE": "Caserta",
"CH": "Chieti",
"CL": "Caltanissetta",
"CN": "Cuneo",
"CO": "Como",
"CR": "Cremona",
"CS": "Cosenza",
"CT": "Catania",
"CZ": "Catanzaro",
"EN": "Enna",
"FC": "Forl\u00ec-Cesena",
"FE": "Ferrara",
"FG": "Foggia",
"FI": "Firenze",
"FM": "Fermo",
"FR": "Frosinone",
"GE": "Genova",
"GO": "Gorizia",
"GR": "Grosseto",
"IM": "Imperia",
"IS": "Isernia",
"KR": "Crotone",
"LC": "Lecco",
"LE": "Lecce",
"LI": "Livorno",
"LO": "Lodi",
"LT": "Latina",
"LU": "Lucca",
"MB": "Monza e della Brianza",
"MC": "Macerata",
"ME": "Messina",
"MI": "Milano",
"MN": "Mantova",
"MO": "Modena",
"MS": "Massa-Carrara",
"MT": "Matera",
"NA": "Napoli",
"NO": "Novara",
"NU": "Nuoro",
"OR": "Oristano",
"PA": "Palermo",
"PC": "Piacenza",
"PD": "Padova",
"PE": "Pescara",
"PG": "Perugia",
"PI": "Pisa",
"PN": "Pordenone",
"PO": "Prato",
"PR": "Parma",
"PT": "Pistoia",
"PU": "Pesaro e Urbino",
"PV": "Pavia",
"PZ": "Potenza",
"RA": "Ravenna",
"RC": "Reggio Calabria",
"RE": "Reggio nell'Emilia",
"RG": "Ragusa",
"RI": "Rieti",
"RM": "Roma",
"RN": "Rimini",
"RO": "Rovigo",
"SA": "Salerno",
"SI": "Siena",
"SO": "Sondrio",
"SP": "La Spezia",
"SR": "Siracusa",
"SS": "Sassari",
"SU": "Sud Sardegna",
"SV": "Savona",
"TA": "Taranto",
"TE": "Teramo",
"TN": "Trento",
"TO": "Torino",
"TP": "Trapani",
"TR": "Terni",
"TS": "Trieste",
"TV": "Treviso",
"UD": "Udine",
"VA": "Varese",
"VB": "Verbano-Cusio-Ossola",
"VC": "Vercelli",
"VE": "Venezia",
"VI": "Vicenza",
"VR": "Verona",
"VT": "Viterbo",
"VV": "Vibo Valentia"
},
"message": "107 Risultati",
"success": true,
"error": null
ho errore 438 in
For Each mydata In oJSON.info.result
per favore ci sono soluzioni.?