Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Данные с сайта ЕЦБ - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Данные с сайта ЕЦБ (Формулы/Formulas)
Данные с сайта ЕЦБ
forest1333 Дата: Среда, 08.10.2014, 14:22 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем доброго времени суток.
Возникла такая проблема. Нужно с сайта ЕЦБ выцепить курс новозеландского доллара (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
Дата добавления - 08.10.2014 в 14:22
krosav4ig Дата: Среда, 08.10.2014, 17:05 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
в модуль код [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
[/vba]в ячейку формулу
Код
=ЕЦБ("NZD")

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 08.10.2014, 17:07
 
Ответить
Сообщениев модуль код [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
[/vba]в ячейку формулу
Код
=ЕЦБ("NZD")
Автор - krosav4ig
Дата добавления - 08.10.2014 в 17:05
forest1333 Дата: Среда, 08.10.2014, 22:17 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
krosav4ig, спасибо. Но excel чего-то ругаеца. Выделяет в модуле фрагмент второй строки после Dim и пишет: "Compile error: User-defined type not defined". А потом ещё первую строчку выделяет жёлтым цветом. И ничего не хочет выводить в ячейку. Что надо сделать?


Сообщение отредактировал forest1333 - Среда, 08.10.2014, 22:20
 
Ответить
Сообщениеkrosav4ig, спасибо. Но excel чего-то ругаеца. Выделяет в модуле фрагмент второй строки после Dim и пишет: "Compile error: User-defined type not defined". А потом ещё первую строчку выделяет жёлтым цветом. И ничего не хочет выводить в ячейку. Что надо сделать?
Автор - forest1333
Дата добавления - 08.10.2014 в 22:17
krosav4ig Дата: Среда, 08.10.2014, 22:49 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
совсем забыл, нужно подключить библиотеку msxml. В редакторе VBA tools->references-> отметить галочкой Microsoft XML любой версии->OK

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 08.10.2014, 22:50
 
Ответить
Сообщениесовсем забыл, нужно подключить библиотеку msxml. В редакторе VBA tools->references-> отметить галочкой Microsoft XML любой версии->OK
Автор - krosav4ig
Дата добавления - 08.10.2014 в 22:49
forest1333 Дата: Четверг, 09.10.2014, 00:47 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
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
Дата добавления - 09.10.2014 в 00:47
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Данные с сайта ЕЦБ (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!