Всем доброго времени суток. Возникла такая проблема. Нужно с сайта ЕЦБ выцепить курс новозеландского доллара (NZD). Я вообще много работаю с валютами, но остальные я цеплял с сайта ЦБ РФ, там у меня есть готовый модуль, формула и все дела. Но ЦБ РФ и не устанавливает курс новозеландского доллара по отношению к рублю, поэтому приходится работать с кросс-курсом NZDEUR. Данные представлены вот тут: https://www.ecb.europa.eu/stats/exchange/eurofxref/html/index.en.html и вот тут: https://www.ecb.europa.eu/stats....en.html Там есть ещё какие-то штуковины для разработчиков, но я так и не понял, как ими пользоваться (вкладка for developers). Если там есть что-то нужное - научите, как этим пользоваться, пожалуйста.
Всем доброго времени суток. Возникла такая проблема. Нужно с сайта ЕЦБ выцепить курс новозеландского доллара (NZD). Я вообще много работаю с валютами, но остальные я цеплял с сайта ЦБ РФ, там у меня есть готовый модуль, формула и все дела. Но ЦБ РФ и не устанавливает курс новозеландского доллара по отношению к рублю, поэтому приходится работать с кросс-курсом NZDEUR. Данные представлены вот тут: https://www.ecb.europa.eu/stats/exchange/eurofxref/html/index.en.html и вот тут: https://www.ecb.europa.eu/stats....en.html Там есть ещё какие-то штуковины для разработчиков, но я так и не понял, как ими пользоваться (вкладка for developers). Если там есть что-то нужное - научите, как этим пользоваться, пожалуйста.forest1333
Function ЕЦБ#(ByVal Curr$) Dim d As New DOMDocument Set d = New DOMDocument d.async = 0: d.Load ("http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml") ЕЦБ = Val(d.SelectSingleNode("//Cube[@currency='" & UCase(Curr) & "']").Attributes(1).Text) Set d = Nothing End Function
[/vba]в ячейку формулу
Код
=ЕЦБ("NZD")
в модуль код [vba]
Код
Function ЕЦБ#(ByVal Curr$) Dim d As New DOMDocument Set d = New DOMDocument d.async = 0: d.Load ("http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml") ЕЦБ = Val(d.SelectSingleNode("//Cube[@currency='" & UCase(Curr) & "']").Attributes(1).Text) Set d = Nothing End Function
krosav4ig, спасибо. Но excel чего-то ругаеца. Выделяет в модуле фрагмент второй строки после Dim и пишет: "Compile error: User-defined type not defined". А потом ещё первую строчку выделяет жёлтым цветом. И ничего не хочет выводить в ячейку. Что надо сделать?
krosav4ig, спасибо. Но excel чего-то ругаеца. Выделяет в модуле фрагмент второй строки после Dim и пишет: "Compile error: User-defined type not defined". А потом ещё первую строчку выделяет жёлтым цветом. И ничего не хочет выводить в ячейку. Что надо сделать?forest1333
Сообщение отредактировал forest1333 - Среда, 08.10.2014, 22:20
krosav4ig, спасибо огромное! Вы мне очень помогли.
А можно ещё вас одну штучку попросить сделать? Мне нужно выцепить цену на серебро с сайта ЦБ РФ. Вот тут есть кое-какие примеры, но для драгметаллов там выводится архив котировок за период, а мне нужно на сегодняшний день: http://www.cbr.ru/scripts/Root.asp?PrtId=SXML
Помогите, пожалуйста. [moder]Читаем Правила форума: один вопрос - одна тема[/moder]
krosav4ig, спасибо огромное! Вы мне очень помогли.
А можно ещё вас одну штучку попросить сделать? Мне нужно выцепить цену на серебро с сайта ЦБ РФ. Вот тут есть кое-какие примеры, но для драгметаллов там выводится архив котировок за период, а мне нужно на сегодняшний день: http://www.cbr.ru/scripts/Root.asp?PrtId=SXML
Помогите, пожалуйста. [moder]Читаем Правила форума: один вопрос - одна тема[/moder]forest1333