Добрый день!
С недавнего времени стало невозможным получить котировку нефти с MOEX на заданную дату макросом:
на этапе .send получаю ошибку "Отказано в доступе". Причем через браузер ссылка открывается без проблем. Подскажите в чем заковырка?
С недавнего времени стало невозможным получить котировку нефти с MOEX на заданную дату макросом:
Код |
---|
Dim oHttp, xmlhttp As Object Dim sURL, htmlcode As String sURL = "http://moex.com/ru/derivatives/contractresults.aspx?day1=20170522&day2=20170522&code=BR-6.17" On Error Resume Next Set oHttp = CreateObject("MSXML2.XMLHTTP") If Err.Number <> 0 Then Set oHttp = CreateObject("MSXML.XMLHTTPRequest") On Error GoTo 0 If oHttp Is Nothing Then Exit Sub With oHttp .Open "GET", sURL, False .send htmlcode = .responsetext End With Set oHttp = Nothing |