Attribute VB_Name = "Download_TF" Option Explicit Private Sub test_HD_TimeFrame() ' Dim JText As String Dim JB As JsonBag, JC As Collection JText = HD_TimeFrame Set JB = New JsonBag JB.JSON = JText Debug.Print JB.Values.Item(2).Count 'number of candles in the request Debug.Print JB.Values.Item(2).Values.Item(1).JSON 'candles Debug.Print 'how to get here real date in the usual format? End Sub Function HD_TimeFrame() As String 'Request JSON Dim XMLHTTP As Variant, URL As String 'URL = "http://ru.investing.com/common/modules/js_instrument_chart/api/" & _ ' "data.php?volume_series=yes&events=yes&candle_count=120&pair_interval=86400&" & _ ' "chart_type=candlestick&pair_id_for_news=166&pair_id=166&symbol=S%2526P%2B500" URL = "http://ru.investing.com/common/modules/js_instrument_chart/api/" & _ "data.php?volume_series=yes&events=yes&candle_count=70&pair_interval=86400&" & _ "chart_type=candlestick&pair_id_for_news=166&pair_id=166&symbol=S%2526P%2B500" 'candlestick 'area Set XMLHTTP = CreateObject("Msxml2.XMLHTTP.2.6") With XMLHTTP .Open "GET", URL, False .setRequestHeader "Referer", "http://ru.investing.com/indices/us-spx-500" .setRequestHeader "x-requested-with", "XMLHttpRequest" .setRequestHeader "Host", "ru.investing.com" .setRequestHeader "Content-Type", "application/json" .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36" .setRequestHeader "Accept", "application/json, text/javascript, */*; q=0.01" .setRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4" .setRequestHeader "Accept-Encoding", "gzip, deflate" .setRequestHeader "Connection", "Keep-Alive" .setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2014 00:00:00 GMT" .send End With HD_TimeFrame = XMLHTTP.responseText Set XMLHTTP = Nothing End Function 'INVESTING.COM '================================================================================================================= 'S&P 500: 'symbol:S%26P+500 symbol:S%2526P%2B500 'pair_id:166 pair_id:166 'pair_id_for_news:166 pair_id_for_news:166 'chart_type: area chart_type: area 'pair_interval:86400 pair_interval:86400 'candle_count:120 candle_count:120 'events: yes events: yes 'volume_series: yes volume_series: yes '=================================================================================================================