Option Explicit
Открытый JSON As Object
Частный т.е. As Object

Sub Test ()

Вызов initJson

    Тусклое jsObj As Object
    Тусклое jsArray As Object

   

Dim х As Long, у As Long
    Дим НТМ As Object

    Набор НТМ = CreateObject ("HTMLFILE")

    С CreateObject ("Msxml2.XMLHTTP")
        .открыто "ПОЛУЧИТЬ", "https://www.bitstamp.net/api/ticker/", Ложь
        .Отправить
        htm.body.innerhtml = .responsetext
    End With
   
    Установите jsObj = JSON.parse (htm.body.innerhtml)
    Клетки (1, 2) = (jsObj.getItem"высокая")
    Клетки (2, 2) = (jsObj.getItem"последний")
    Клетки (3, 2) = (jsObj.getItem"отметка времени")


End Sub




Public Sub initJson ()
    Dim HTML As String

    HTML = "<глава><скрипт>" & _
    "Object.prototype.getItem = функция (ключ) {вернуть это [ключ]}; " & _
    "Object.prototype.setItem = функция (ключ, значение) {это [ключ] = значение}; " & _
    "Object.prototype.getKeys = функция (фиктивная) {ключи = []; для (ключ вар в этом), если (TypeOf (это [ключ]) == 'функция'!) keys.push (ключ); возврат ключей; }; " & _
    "window.onload = функция () { " & _
    "document.body.parse = функция (JSON) {вернуть JSON.parse (JSON); }; " & _
    "document.body.stringify = функция (объект, пространство) {вернуть JSON.stringify (OBJ, нулевое, пространство); }" & _
    "}" & _
    "<Тело ID = 'JSONElem'>"

    Набор т = CreateObject ("InternetExplorer.Application")
    С, т.е.
        .проводить "о: пусто"
        Do While .Busy: DoEvents: Loop
        Do While .readyState <> 4: DoEvents: Loop
        .Видимые = False
        .document.write HTML
        .document.close
    End With

    "Это элемент тела, мы называем это JSON 🙂
    Установите JSON = ie.document.getElementById ("JSONElem")

End Sub

Public Function closeJSON ()
    ie.Quit
End Function