[Vostokkk]

Судя по редиректу на главную страницу хтмл которой ты получаешь, либо url не верный, либо параметры не верны, либо доступ к этим api только для авторизированных пользователей, либо эти api ныне закрыты. Выбирай
Вероятно теперь доступно только это http://www.investing.com/webmaster-tools/

Вот. Тот же сайт, но запрос методом POST.

Sub HistoricalData()
Dim XMLHTTP As Variant, URL As String, Data As String

URL = "http://ru.investing.com/instruments/HistoricalDataAjax"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
With XMLHTTP
  .Open "POST", URL, False
  .setRequestHeader "Accept", "text/plain, */*; q=0.01"
  .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  .setRequestHeader "Host", "ru.investing.com"
  .setRequestHeader "Accept-Encoding", "gzip,deflate"
  .setRequestHeader "X-Requested-With", "XMLHttpRequest"
  .setRequestHeader "Referer", "http://ru.investing.com/indices/us-spx-500-historical-data"
  .setRequestHeader "Accept-Language", "uk-UA,uk;q=0.8,ru;q=0.6,en-US;q=0.4,en;q=0.2,de;q=0.2"
  .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2062.103 Safari/537.36"
  .send "action=historical_data&curr_id=166&st_date=01%2F11%2F2014&end_date=15%2F12%2F2014&interval_sec=Daily"
End With

Data = XMLHTTP.responseText
Debug.Print Data

Set XMLHTTP = Nothing
End Sub

Если ты возьмёшь URL - тоже будет редирект, но в процедуре запрос идёт туда куда надо. URL верный. (Google Chrome-F12-Network-Headers). Параметры тоже верные. Про закрытые api - не знаю, но мне мой знакомый по другому форуму демонстрирует удачный процесс соединения, а у меня - тупик. Вот где собака зарыта, все мозги стёр уже.