Добрый день!
С недавнего времени стало невозможным получить котировку нефти с 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 |
