title: VBA Parse JSON Data
body: <p>I am trying to parse the JSON data from a website. I successfully get the JSON string, but I can't parse it. An exception is thrown in the code below:</p>
  
  <blockquote>
    <p>Runtime Error 424. Object Required</p>
  </blockquote>
  
  <p>This is my code:</p>
  
  <pre><code>' Download string from URL
  Public Function DownloadDataFromURL(url As String) As String
      Set Myrequest = CreateObject("WinHttp.WinHttpRequest.5.1")
      Myrequest.Open "GET", url
      Myrequest.send
      Dim WebResponse As String
      WebResponse = Myrequest.responseText
      Cells(1, 1).Value = WebResponse
      DownloadDataFromURL = WebResponse
  End Function
  
  ' Download all cryptocoins in
  Public Sub LoadCryptocoins()
      Dim Path As String
      Dim Data As String
      Dim json As Object
  
      Path = "https://api.coinmarketcap.com/v1/ticker/"
      Data = DownloadDataFromURL(Path)
  
      Set jp = New JsonParser
      Set jo = jp.Decode(Data)
  
      For Each Item In jp.EnumKeys(jo)
          MsgBox (Item.GetValue(jo, "id")) 'The exception is thrown here
      Next
  End Sub
  </code></pre>
  
  <p>I'm using the JSON Parser from here: <a href="https://stackoverflow.com/questions/6627652/parsing-json-in-excel-vba">Parsing JSON in Excel VBA</a></p>
  
  <p>The raw JSON data I a processing can be found here: <a href="https://api.coinmarketcap.com/v1/ticker/" rel="nofollow noreferrer">https://api.coinmarketcap.com/v1/ticker/</a></p>
  
  <p>How can I get every coin name and the price in USD?</p>