Вставка актуального курса валют.

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

Вставка актуального курса валют. (Формулы/Formulas)

Новичёк

Дата: Четверг, 11.02.2016, 11:48 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

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

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

Здравствуйте. Подскажите, как можно вставить текущий курс доллара и евро на лист. Прочитал здесь: http://www.excelworld.ru/publ....1-0-106, попробовал сделать по аналогии, но на сайте центрального банка таблица одна, и много ненужных данных на ней. Мне бы просто пару ячеек, куда бы он-лайн фиксировался курс. Заранее спасибо.

Ответить

koyaanisqatsi

Дата: Четверг, 11.02.2016, 12:25 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

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

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

Excel 2010

Новичёк, Похоже Самый простой вариант это отвести делать запрос на весю страничку сайта и уже в экселе уже брать интересующие нас данные.

К сообщению приложен файл: 1253122.xlsx (25.2 Kb)

Ответить

Новичёк

Дата: Четверг, 11.02.2016, 13:08 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

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

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

koyaanisqatsi, а можно подробнее, как это делается?

Ответить

krosav4ig

Дата: Четверг, 11.02.2016, 13:49 | Сообщение № 4

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

[vba]

Код

Function ЦБР(Optional ByVal Curr$ = "USD", Optional ByVal dDate As Date) As Currency
    Dim date_req$
    With CreateObject("msxml.DOMDocument")
        date_req = "?date_req=" & IIf(dDate, dDate, Date): .async = 0
        If .Load("http://www.cbr.ru/scripts/XML_daily.asp" & date_req) Then
            With .SelectSingleNode("*/Valute[CharCode='" & UCase(Curr) & "']")
                ЦБР = CCur(.ChildNodes(4).Text) / Val(.ChildNodes(2).Text)
            End With
        End If
    End With
End Function

[/vba]
и еще
Функции (UDF) "Курс_Доллара" и "Курс_Евро"

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

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

Сообщение отредактировал krosav4ig - Четверг, 11.02.2016, 13:51

Ответить

koyaanisqatsi

Дата: Четверг, 11.02.2016, 14:25 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

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

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

Excel 2010

Новичёк, так все по инструкции. Только главная страница сайта веся целиком копируется на лист экселя. Поэтому мы выделяем лит под это дело потом просто ссылаемся на нужные мам ячейки. У меня поставлено обнавление раз в минуту но можно изменить этот параметр.

Сообщение отредактировал koyaanisqatsi - Четверг, 11.02.2016, 14:26

Ответить

Вставка актуального курса валют. (Формулы/Formulas)

Страница 1 из 1
1