Получение данных с ЦБР

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Получение данных с ЦБР (Формулы/Formulas)

duckky

Дата: Среда, 21.11.2018, 13:05 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 95

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Добрый день.
Давно была такая тема на форуме Получение котировок
в ней krosav4ig предложил решение решение 1 но там не показывались данные в выходные и праздники.

в сообщении №15 предложил окончательное решение.

Я не знаю посещает ли данный эксперт форум или нет, но вы можете помочь мне, пожалуйста, в чем причина, почему последнее решение не работает.
В примере 2 варианта, прошу помочь с последних, где данные можно выгружать с выходными и праздниками. Спасибо

К сообщению приложен файл: CBR.xlsm (30.6 Kb)

Ответить

krosav4ig

Дата: Четверг, 22.11.2018, 02:23 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

duckky, все дело в версии MSXML парсера, у вас нету 4.0, вот и выдает ошибку
[vba]

Код

Private ver%
Function МЕТЦБР2#(Optional Code% = 2, Optional dDate As Date)
    Dim d As Object, ddate1 As Date, elem As Object:
    Set d = CreateObject("msxml2.domdocument." & MSXMLVersion & ".0")
    dDate = IIf(dDate, dDate, Date): ddate1 = Application.EDate(dDate, -1): d.async = 0
    d.Load ("https://www.cbr.ru/scripts/xml_metall.asp?date_req1=" & ddate1 & "&date_req2=" & dDate)
    Select Case ver
        Case Is > 3 'Установлен MSXML >= 4.0, используем XPath функцию last()
            МЕТЦБР2 = CDbl(d.SelectSingleNode("*/Record[@Code='" & Code & "'][last()]/Buy").Text)
        Case Else   'иначе используем IXMLDOMNodeList
            Set elem = d.SelectNodes("*/Record[@Code='" & Code & "']/Buy")
            МЕТЦБР2 = CDbl(elem(elem.Length - 1).Text)
    End Select
    Set d = Nothing
End Function
Private Function MSXMLVersion%()
    Dim arrVersions()
    If ver > 0 Then MSXMLVersion = ver: Exit Function
    With GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
        .EnumValues 2 ^ 31, "CLSID\{2933BF90-7B36-11D2-B20E-00C04F983E60}\VersionList\", arrVersions
    End With
    'номер старшей версии MSXML, установленной в системе
    MSXMLVersion = Split(arrVersions(0), ".")(0)
    ver = MSXMLVersion
End Function

[/vba]