проблема с запросом XMLHTTPRequest

[Vostokkk]

Методом тыка ты ничего не дебьешься

Да это понятно. Я просто примерчик похожий встречал (с прокси), вот и решил воспользоваться. Да видимо примерчик давно писали....

[Vostokkk]

А вот интересное кино, как это всё здорово работает. Это тот самый собеседник с другого форума снимал. У него всё грузится без проблем.

[Vostokkk]

Конкретизировал ошибку. Макрос, как выяснилось, отказывается передавать заголовок:

.setRequestHeader "Referer", "http://ru.investing.com/indices/us-spx-500"

объекта "MSXML2.XMLHTTP". Осталось разобраться как заставить его Это всё -таки сделать и что ему в этом мешает.

[Vostokkk]

Вот этот вариант вроде заработал. Всем кому может пригодится:

[CODE]Sub HD_TimeFrame_()
 Dim XMLHTTP As Variant, URL As String, HD_TimeFrame As Variant
  
 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=area&pair_id_for_news=166&pair_id=166&symbol=S%2526P%2B500"
  
 Set XMLHTTP = CreateObject("Msxml2.XMLHTTP.2.6")
      With XMLHTTP
      .Open "GET", URL, False
      .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 "Referer", "http://ru.investing.com/indices/us-spx-500"
      .setRequestHeader "x-requested-with", "XMLHttpRequest"
      .setRequestHeader "Accept-Encoding", "gzip, deflate"
      .setRequestHeader "Host", "ru.investing.com"
      .setRequestHeader "Connection", "Keep-Alive"
      .send
      End With
        
      HD_TimeFrame = XMLHTTP.responseText
 '  Debug.Print HD_TimeFrame
      Set XMLHTTP = Nothing
 End Sub[/CODE]