Импорт курса валют с сайта цб в excel - Word и Excel - помощь в работе с программами

Импорт курса валют из интернета

Импорт курса заданной валюты из интернета с автоматическим обновлением — весьма частая задача для многих пользователей Microsoft Excel. Представьте, что у вас есть прайс-лист, который должен пересчитываться каждое утро в соответствии с курсом. Или бюджет проекта. Или стоимость договора, которую надо посчитать, используя курс доллара на дату заключения договора.

В подобных ситуациях можно решить проблему по разному — всё зависит от того, какая версия Excel у вас установлена и какие надстройки поверх неё стоят.

Способ 1. Простой веб-запрос для текущего курса валют

Этот способ подойдет тем, у кого на компьютере пока ещё старые версии Microsoft Office 2003-2007. Он не использует никаких сторонних надстроек или макросов и оперирует только встроенными функциями.

Нажмите кнопку Из интернета (Web) на вкладке Данные (Data). В появившемся окне в строку Адрес (Address) введите URL сайта, с которого будет браться информация (например http://www.finmarket.ru/currency/rates/) и нажмите клавишу Enter.

Когда страница загрузится, то на таблицах, которые Excel может импортировать, появятся черно-желтые стрелки. Щелчок по такой стрелке помечает таблицу для импорта.

Когда все необходимые таблицы помечены — нажмите кнопку Импорт (Import) внизу окна. Спустя некоторое время, нужное для загрузки данных, содержимое отмеченных таблиц появится в ячейках на листе:

Для дополнительной настройки можно щелкнуть по любой из этих ячеек правой кнопкой мыши и выбрать в контекстном меню команду Свойства диапазона (Data range properties). В этом диалоговом окне, при желании, возможно настроить периодичность обновления и другие параметры:

Котировки акций, т.к. они меняются каждые несколько минут, можно обновлять почаще (флажок Обновлять каждые N мин.), а вот курсы валют, в большинстве случаев, достаточно обновлять раз в день (флажок Обновление при открытии файла).

Обратите внимание, что весь импортированный диапазон данных воспринимается Excel как единое целое и получает собственное имя, которое можно увидеть в Диспетчере имен на вкладке Формулы (Formulas — Name Manager).

Способ 2. Параметрический веб-запрос для получения курса валют на заданный интервал дат

Этот способ представляет собой слегка модернизированный первый вариант и дает пользователю возможность получать курс нужной валюты не только на текущий день, но и на любую другую интересующую дату или интервал дат. Для этого наш веб-запрос надо превратить в параметрический, т.е. добавить к нему два уточняющих параметра (код нужной нам валюты и текущую дату). Для этого делаем следующее:

1. Создаем веб-запрос (см. способ 1) к странице сайта Центробанка России с архивом курсов: http://cbr.ru/currency_base/dynamics.aspx

2. В форме слева выбираем нужную валюту и задаем начальную и конечную даты:

3. Жмем кнопку Получить данные и через пару секунд видим таблицу с нужными нам значениями курса на заданном интервале дат. Прокручиваем полученную таблицу вниз до упора и помечаем ее для импорта, щелкнув по черно-желтой стрелке в левом нижнем углу вебстраницы (только не спрашивайте почему эта стрелка находится там, а не рядом с таблицей — это вопрос к дизайнерам сайта).

Теперь ищем в правом верхнем углу окна кнопку с дискетой Сохранить запрос (Save Query) и сохраняем файл с параметрами нашего запроса в любую подходящую папку под любым удобным именем — например в Мои документы под именем cbr.iqy. После этого окно веб-запроса и весь Excel можно пока закрыть.

4. Открываем папку, куда сохранили запрос и ищем файл запроса cbr.iqy, затем щелкаем по нему правой кнопкой мыши — Открыть с помощью — Блокнот (или выбрать его из списка — обычно это файл Notepad.exe из папки C:Windows). После открытия файла запроса в Блокноте должны увидеть примерно следующее:

Самое ценное здесь — строка с адресом и параметры запроса в ней, которые мы будем подставлять — код нужной нам валюты (выделено красным) и конечная дата, которую мы заменим на сегодняшнюю (выделено синим). Аккуратно редактируем строку, чтобы получилось следующее:

http://cbr.ru/currency_base/dynamics.aspx?VAL_NM_RQ=[«Код валюты»]&date_req1=01.01.2000&r1=1&date_req2=[«Дата»]&rt=1&mode=1

Все остальное оставляем как есть, сохраняем и закрываем файл.

5. Создаем новую книгу в Excel, открываем лист, куда хотим импортировать архив курсов ЦБ. В любую подходящую ячейку вводим формулу, которая даст нам текущую дату в текстовом формате для подстановки в запрос:

=ТЕКСТ(СЕГОДНЯ();»ДД.ММ.ГГГГ»)

или в английской версии

=TEXT(TODAY(),»dd.mm.yyyy»)

Куда-нибудь рядом вводим код нужной нам валюты из таблицы:

Валюта	Код
Доллар США	R01235
Евро	R01239
Фунт стерлингов	R01035
Японская иена	R01820

Нужный код также можно подсмотреть в строке запроса прямо на сайте ЦБ.

6. Загружаем данные на лист, используя в качестве основы созданные ячейки и файл cbr.iqy, т.е. идем на вкладку Данные — Подключения — Найти другие (Data — Existing Connections). В открывшемся окне выбора источника данных находим и открываем файл cbr.iqy. Перед импортом Excel уточнит у нас три момента.

Во-первых, куда импортировать таблицу с данными:

Во-вторых, откуда брать код валюты (можно установить флажок Использовать данное значение по умолчанию (Use this value/reference for future refreshes), чтобы не указывать потом каждый раз эту ячейку при обновлениях и флажок Автоматически обновлять при изменении значения ячейки (Refresh automatically when cell value changes):

В-третьих, из какой ячейки брать конечную дату (тут также можно установить оба флажка, чтобы завтра не пришлось задавать эти параметры вручную при обновлении):

Жмем ОК, ждем пару секунд и получаем полный архив курса нужной валюты на листе:

Как и в первом способе, щелкнув правой кнопкой мыши по импортированным данными и выбрав команду Свойства диапазона (Data range properties), можно настроить частоту обновления При открытии файла (Refresh on file open). Тогда при наличии доступа к интернету данные будут автоматически обновляться каждый день, т.е. таблица будет самостоятельно дополняться новыми данными.

Вытаскивать из нашей таблицы курс за нужную дату проще всего с помощью функции ВПР (VLOOKUP) — если вы с ней не знакомы, то очень советую сделать это. Вот такой формулой, например, можно выбрать из нашей таблицы курс доллара за 10 января 2000 года:

или в англоязычном варианте =VLOOKUP(E5,cbr,3,1)

где

E5 — ячейка, где лежит заданная дата
cbr — имя диапазона данных (автоматически создается при импорте и обычно совпадает с именем файла запроса)
3 — порядковый номер столбца в нашей таблице, откуда мы берем данные
1 — аргумент, включающий для функции ВПР приблизительный поиск, чтобы можно было находить курсы и для тех промежуточных дат, которые фактически не присутствуют в столбце А (будет браться ближайшая предыдущая дата и ее курс). Подробнее про приблизительный поиск с помощью функции ВПР можно понятно почитать тут.

Ссылки по теме

Макрос для получения курса доллара на заданную дату в текущей ячейке
Функция надстройки PLEX для получения курса доллара, евро, гривны, фунта стерлингов и т.д. на любую заданную дату
Вставка курса любой валюты на любую дату в надстройке PLEX

Источник

Большинство работников финансовой сферы воспринимают Excel как красивый калькулятор. Мы решили помочь вам развить навыки использования этого важного инструмента, сделать из него настоящего помощника, а не просто хранителя данных. Предлагаем вам посмотреть, как можно подгрузить данные из сети Интернет непосредственно в таблицу Excel и создать функцию выбора курса валют на необходимую дату.

Немного больше 60 лет прошло с момента изобретения первого компьютера и около 50 лет с первых шагов по созданию интернета. Сейчас практически у каждого в кармане лежит мини-компьютер (смартфон) с доступом в сеть, уже начали появляться машины без водителя, некоторые и вовсе собираются колонизировать Марс. При этом большинство наших слушателей (работников финансовой сферы) до сих пор воспринимают Excel как красивый калькулятор. Мы решили помочь вам развить навыки использования этого важного инструмента, сделать из него настоящего помощника, а не просто хранителя данных.

Сегодня предлагаем вам посмотреть, как можно подгрузить данные из сети Интернет непосредственно в таблицу Excel и обработать их (создать функцию выбора курса валют на необходимую дату).

Для чего может понадобиться эта возможность?

Если вам регулярно необходим курс Центрального Банка РФ, то функция «Загрузка курса с сайта ЦБ» позволит сэкономить много времени.

Разбиваем задачу на две части:

(1) Автоматизируем загрузку курсов валют за необходимый период с сайта Центрального Банка России

(2) Пишем небольшой скрипт, который создаст «Пользовательскую функцию» для выбора курса на дату и предоставит его вставку в ячейку

Хотите уметь делать так сами? Это не сложно…

Ознакомьтесь со следующими курсами по Excel от HOCK Training:

(1) Загрузка курсов

Для решения данной задачи воспользуемся стандартным малоизвестным функционалом Excel.

* оговорка о совместимости версий

⚠ Данный функционал приводится для версий MS Office до 2020 года выпуска. Отличие новых версий офиса состоит в том, что путь к странице с данными указывается строкой (копи-пастом из браузера), а не через встроенный браузер MS Excel. Остальные действия по разработке функции аналогичны приведённым в данной статье.

Подробный разбор алгоритма действий в более новых версиях офиса приведен в дистанционном курсе «Программирование в Excel».

(1.1) Линейка «Данные» —> «Получение внешних данных» —> «Из Интернета»:

(1.2) В открывшемся внутреннем браузере Excel переходим на сайт ЦБ РФ и переходим на страницу с курсами:

(1.3) Далее необходимо указать период для загрузки:

(1.4) После получения данных нажмите кнопку «Импорт» и данные загрузятся в лист Excel

ВАЖНО!

Не забудьте перед этим поставить галочку в небольшом квадратике вверху страницы. На рисунке выше он зеленого цвета.

При этом в Excel будут загружены данные:

(1.5) Если все данные действия записать в виде макроса, то получим следующий скрипт в Visual Basic:

Обратите внимание на выделенные элементы кода. Если вносить в них изменения и запускать код на выполнение — будем получать курсы за нужный период. И не придется каждый раз повторять операции описанные выше в пунктах (1.1-1.4).

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

(2) Создание функции «Выбор курса на дату».

Используем возможности создания «Пользовательских функций» в редакторе Visual Basic:

(2.1) Создаем процедуру для обработки данных. Проверяем корректность работы программы на процедуре. Найденное значение курса записывается в переменную kurs (см листинг ниже).

(2.2) Меняем процедуру на функцию:

Скачать программу

(2.3) Вставляем в ячейку на листе с данными нашу функцию (ищите её в категории «Определенные пользователем»):

(2.4) «Растягиваем» ячейку с формулой на необходимый нам диапазон стандартным образом:

Работает 😉

Только для дочитавших до конца статьи — наш подарок:

Бесплатный воркшоп «Как начать программировать в Excel, совершенно не зная языка Visual Basic»

95% слушателей отметили вебинар как «очень полезный»

Вам понадобится компьютер с Windows и MS Office

Если вы хотите разобраться в автоматизации MS Excel более подробно, обратите внимание на следующие полезные ресурсы:

Справочник по VBA для Excel
https://docs.microsoft.com/ru-ru/office/vba/api/overview/excel

Справочная система «Объектная модель (Excel)»
https://docs.microsoft.com/ru-ru/office/vba/api/overview/excel/object-model

Дистанционный курс HOCK Training «Программирование в Excel»
https://www.hocktraining.com/distancionny-excel-dlya-finansistov

Практический тренинг «Обработка и анализ данных в Excel»
https://www.hocktraining.com/open/obrabotka-i-analiz-dannikh-v-excel

Все блоги

Источник

Данный код (пользовательская функция) позволяет получить данные о курсе валюты с сайта Центробанка.

Данную функцию можно использовать и в виде формулы на листе Excel (см. пример во вложении)

Function GetRate(ByVal CurrencyName As String, ByVal RateDate As Date) As Double
    ' функция возвращает курс валюты CurrencyName на дату RateDate
    ' в случае ошибки (неверная дата или название валюты) возвращается 0
    On Error Resume Next
    CurrencyName = UCase(CurrencyName): If Len(CurrencyName) <> 3 Then Exit Function
    Set xmldoc = CreateObject("Msxml.DOMDocument"): xmldoc.async = False
    url_request = "http://www.cbr.ru/scripts/XML_daily.asp?date_req=" + Format(RateDate, "dd/mm/yyyy")
 
    If xmldoc.Load(url_request) <> True Then Exit Function    ' Запрос к серверу ЦБР

    ' Обработка полученного ответа
    Set nodeList = xmldoc.selectNodes("ValCurs"): Set xmlNode = nodeList.Item(0).CloneNode(True)
    Set node_attr = xmlNode.Attributes(0): strDate = node_attr.Value
    Set nodeList = xmldoc.selectNodes("*/Valute")
    For i = 0 To nodeList.Length - 1    ' поиск нужной валюты
        Set xmlNode = nodeList.Item(i).CloneNode(True)
        If xmlNode.childNodes(1).Text = CurrencyName Then
            CurrencyRate = CDbl(xmlNode.childNodes(4).Text)
            divisor = Val(xmlNode.childNodes(2).Text)
            GetRate = CurrencyRate / divisor
            Exit Function
        End If
    Next
End Function

Sub ПримерИспользованияФункции_GetRate()
    MsgBox "Сегодня курс доллара к рублю составил " & GetRate("USD", Now), vbInformation
    MsgBox "А вчера курс евро к рублю был равен " & GetRate("EUR", Now - 1), vbInformation
End Sub

Поддерживается получение курсов рубля по отношению к следующим валютам:

AUD Австралийский доллар
AZN Азербайджанский манат
GBP Фунт стерлингов Соединенного королевства
AMD Армянский драм
BYR Белорусский рубль
BGN Болгарский лев
BRL Бразильский реал
HUF Венгерский форинт
DKK Датская крона
USD Доллар США
EUR Евро
INR Индийская рупия
KZT Казахский тенге
CAD Канадский доллар
KGS Киргизский сом
CNY Китайский юань
LVL Латвийский лат
LTL Литовский лит
MDL Молдавский лей
NOK Норвежская крона
PLN Польский злотый
RON Новый румынский лей
XDR СДР (специальные права заимствования)
SGD Сингапурский доллар
TJS Таджикский сомони
TRY Турецкая лира
TMT Новый туркменский манат
UZS Узбекский сум
UAH Украинская гривна
CZK Чешская крона
SEK Шведская крона
CHF Швейцарский франк
EEK Эстонская крона
ZAR Южноафриканский рэнд
KRW Вон Республики Корея
JPY Японская иена

Если вы желаете вывести информацию по всем валютам — используйте макрос ВывестиСегодняшниеКурсыВсехВалют:

Sub ВывестиСегодняшниеКурсыВсехВалют()
    On Error Resume Next
    Set xmldoc = CreateObject("Msxml.DOMDocument"): xmldoc.async = False
    url_request = "http://www.cbr.ru/scripts/XML_daily.asp?date_req=" + Format(Now, "dd/mm/yyyy")
    If xmldoc.Load(url_request) <> True Then Exit Sub
    Set nodeList = xmldoc.selectNodes("ValCurs"): Set xmlNode = nodeList.Item(0).CloneNode(True)
    Set node_attr = xmlNode.Attributes(0): strDate = node_attr.Value
    Set nodeList = xmldoc.selectNodes("*/Valute")
    For i = 0 To nodeList.Length - 1
        Set xmlNode = nodeList.Item(i).CloneNode(True)
        Debug.Print "Курс " & xmlNode.childNodes(1).Text & " (установлен " & strDate & "): " & _
                    xmlNode.childNodes(4).Text & " рублей за " & xmlNode.childNodes(2).Text & _
                  " " & xmlNode.childNodes(3).Text
    Next
End Sub

Результат работы макроса ВывестиСегодняшниеКурсыВсехВалют:

Курс AUD (установлен 28/07/2010): 27,2968 рублей за 1 Австралийский доллар
Курс AZN (установлен 28/07/2010): 37,6342 рублей за 1 Азербайджанский манат
Курс BRL (установлен 28/07/2010): 17,1589 рублей за 1 Бразильский реал
…
Курс HUF (установлен 28/07/2010): 13,7407 рублей за 100 Венгерских форинтов
Курс DKK (установлен 28/07/2010): 52,7135 рублей за 10 Датских крон
Курс USD (установлен 28/07/2010): 30,2391 рублей за 1 Доллар США
Курс EUR (установлен 28/07/2010): 39,3139 рублей за 1 Евро
…
Курс CHF (установлен 28/07/2010): 28,6953 рублей за 1 Швейцарский франк
Курс EEK (установлен 28/07/2010): 25,1057 рублей за 10 Эстонских крон
Курс ZAR (установлен 28/07/2010): 41,1383 рублей за 10 Южноафриканских рэндов
Курс KRW (установлен 28/07/2010): 25,6003 рублей за 1000 Вон Республики Корея

Источник

Разбираем загрузку валютных курсов с сайта ЦБ РФ в MS Excel. Подобная статья есть и для Power BI (ссылка).

Этап 1: Сгенерим ссылку на сайте ЦБ РФ.

Зайдём на сайт по адресу:

https://www.cbr.ru/
В меню найдём раздел — “Динамика официального курса заданной валюты” (“Документы и данные” — “Базы данных” — “Базы данных по курсам валют” — “Динамика официального курса заданной валюты”)

Выберем табличный вид, выберем валюту, период дат. Нажмём — “Получить данные”. Увидим табличку с курсами валюты за выбранный диапазон дат:
Скопируем ссылку из адресной строки браузера:
https://www.cbr.ru/currency_base/dynamics/?UniDbQuery.Posted=True&UniDbQuery.mode=1&UniDbQuery.date_req1=&UniDbQuery.date_req2=&UniDbQuery.VAL_NM_RQ=R01010&UniDbQuery.From=05.03.2021&UniDbQuery.To=12.03.2021

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

https://www.cbr.ru/currency_base/dynamics/?UniDbQuery.Posted=True&UniDbQuery.mode=1&UniDbQuery.date_req1=&UniDbQuery.date_req2=&UniDbQuery.VAL_NM_RQ=R01010&UniDbQuery.From=05.03.2021&UniDbQuery.To=12.03.2021

Этап 2: Загрузим данные в Excel

В Excel перейдём на панели вкладку “Данные”, выберем получение данных с web-страницы (“Создать запрос” — “Из других источников” — “Из интернета”):

В появившемся окошке вставим полученную на предыдущем этапе ссылку на сайт ЦБ РФ:
В навигаторе увидим, что на странице распознано четыре табличных элемента. Нам нужен последний. Нажмём “Преобразовать данные”:
Попадаем в Power Query, где мы можем произвести дополнительную обработку данных перед загрузкой в модель данных Power BI. В правой плашке видим уже произведённые шаги — подключение к источнику данных, навигация по таблицам и изменение типов данных. Шаг с изменением типов данных удалим (если оставить, ничего страшного не случится, но он лишний):
Далее удалим первую строку с указанием на валюту:

И поднимем оставшуюся строку до уровня заголовков:
Получим вот такую вполне приличную табличку:
Этап 3: Сделаем диапазон дат подстраивающимся под реальность:

Отправимся в “Расширенный редактор” (“Advanced Editor”):

Там увидим вот такой код, который описывает на языке M все действия, которые мы произвели ранее:
Для желающих сократить путь, вот этот код:

let

Источник = Web.Page(Web.Contents(«https://www.cbr.ru/currency_base/dynamics/?UniDbQuery.Posted=True&UniDbQuery.mode=1&UniDbQuery.date_req1=&UniDbQuery.date_req2=&UniDbQuery.VAL_NM_RQ=R01010&UniDbQuery.From=05.03.2021&UniDbQuery.To=12.03.2021 «)),

Data2 = Источник{2}[Data],

#»Удаленные верхние строки» = Table.Skip(Data2,1),

#»Повышенные заголовки» = Table.PromoteHeaders(#»Удаленные верхние строки», [PromoteAllScalars=true]),

#»Измененный тип» = Table.TransformColumnTypes(#»Повышенные заголовки»,{{«Дата», type date}, {«Единиц», Int64.Type}, {«Курс», type number}})

in

#»Измененный тип»

Вспомним, что в ссылке у нас есть даты. Воспользуемся этим и заменим их на те, которые нам нужны. Для этого перед подключением к источнику данных две переменных — дату начала диапазона для выгрузки курсов валюты и дату окончания диапазона. Дату начала определим для начала так:
start_date = #date(2020,1,1)

Далее преобразуем её в текст с помощью функции Date.ToText, чтобы впоследствии вставить в нашу ссылку:
start_date = Date.ToText(#date(2020,1,1), «dd.MM.yyyy»)

Дату окончания диапазона получим с помощью функции DateTime.LocalNow:
end_date = DateTime.LocalNow()

В результате получим текущую дату и время. Нам нужна только дата, поэтому следующим шагом извлечём дату с помощью функции Date.From:
end_date = Date.From(DateTime.LocalNow())

И напоследок аналогично дате старта — преобразуем в текст:
end_date = Date.ToText(Date.From(DateTime.LocalNow()), «dd.MM.yyyy»)

Внимательные читатели спросят — а зачем нам извлекать дату из даты и времени, если мы потом в текст берём всё равно только элементы даты. Казалось бы, можно вместо вот такого:
end_date = Date.ToText(Date.From(DateTime.LocalNow()), «dd.MM.yyyy»)

написать вот так:
end_date = Date.ToText(DateTime.LocalNow(), «dd.MM.yyyy»)
Но — нет. Функция Date.ToText в качестве аргумента принимает формат date, но не datetime.
Однако, справедливо будет отметить альтернативный вариант с использованием DateTime.ToText:
end_date = DateTime.ToText(DateTime.LocalNow(), «dd.MM.yyyy»)

Так или иначе, наша задача — получить две даты в текстовом формате «dd.MM.yyyy» с тем, чтобы после вставить их в ссылку для подключения к web-странице.

После получения дат преобразуем запрос к источнику так, чтобы можно было заменить часть текстовой ссылки на переменные. Для этого разобьём ссылку на части, заменим даты на переменные и соберём обратно с помощью Text.Combine:

Text.Combine({«https://www.cbr.ru/currency_base/dynamics/?UniDbQuery.Posted=True&UniDbQuery.mode=1&UniDbQuery.date_req1=&UniDbQuery.date_req2=&UniDbQuery.VAL_NM_RQ=R01010&UniDbQuery.From=», start_date, «&UniDbQuery.To=», end_date})

Заменим исходную ссылку на вот эту сборную. В конечном итоге получим код:

let

start_date = Date.ToText(#date(2020,1,1), «dd.MM.yyyy»),

end_date = Date.ToText(Date.From(DateTime.LocalNow()), «dd.MM.yyyy»),

Источник = Web.Page(Web.Contents(Text.Combine({«https://www.cbr.ru/currency_base/dynamics/?UniDbQuery.Posted=True&UniDbQuery.mode=1&UniDbQuery.date_req1=&UniDbQuery.date_req2=&UniDbQuery.VAL_NM_RQ=R01010&UniDbQuery.From=», start_date, «&UniDbQuery.To=», end_date}))),

Data2 = Источник{2}[Data],

#»Удаленные верхние строки» = Table.Skip(Data2,1),

#»Повышенные заголовки» = Table.PromoteHeaders(#»Удаленные верхние строки», [PromoteAllScalars=true]),

#»Измененный тип» = Table.TransformColumnTypes(#»Повышенные заголовки»,{{«Дата», type date}, {«Единиц», Int64.Type}, {«Курс», type number}})

in

#»Измененный тип»

В результате получаем таблицу с курсами валют за весь обозначенный диапазон. Остаётся только загрузить.
Далее можно использовать по назначению.

Подробную инструкцию смотрите в нашем небольшом видео.

Источник

КУРС

EXCEL ACADEMY

Научитесь использовать все прикладные инструменты из функционала MS Excel.

По сети уже лет 300 гуляет инструкция, рассказывающая о том, как забрать курс валют с сайта Центробанка. Инструкция, в принципе, рабочая, но за 300 лет сайт ЦБ прилично изменился, да и технология web-разработки шагнули далеко вперёд, поэтому не всегда можно получить желаемые таблички с определённых ресурсов.

Но курсы доллара и евро по-прежнему легко добываются. Давайте начнём именно с них.

Если у вас Microsoft Office 2019 Professtional Plus или Microsoft Office 2013, скачайте Power Query в качестве надстройки с официального сайта.

Тогда вы получите вкладку Power Query на ленте.

В более новых версиях переходим на вкладку «Данные», выбираем «Получить данные», затем «Из других источников» и кликаем «Из интернета». Альтернативный вариант – сразу щёлкнуть по соответствующей иконке рядом с командой «Получить данные».

Вводим адрес сайта Центробанка: https://cbr.ru

В открывшемся окошке можно менять вид просмотрщика.

Представление таблицы – это сортировка одних лишь таблиц (что, по идее, нам и нужно).

Веб-представление подойдёт в тех случаях, когда вам нужно полазать по сайту и проверить, что там Power Query вообще обнаружил. Предупреждаем, что веб-представление – это не браузер, сёрфить тут не разрешают, лишь визуально представлять себе результаты импорта. Даже кукисы принять не сможете…

Мы же выбираем Table 0, которая на просмотрщике отображается как нужная табличка с курсами валют, и нажимаем «Преобразовать данные».

Миссия выполнена! Конечно, мы можем перейти на вкладку «Главная» и нажать «Закрыть и загрузить в», указав вариант «Таблица», но лучше всего учесть вероятность будущих вычислений.

Если вы захотите применить к этой табличке банальное вычитание или сложение, то разживётесь ошибкой «ЗНАЧ». Она вылезает тогда, когда имеются неточности с форматами. Поэтому давайте сразу в запросе зададим нужный формат ячеек, а именно – валюту.

Кликаем по иконке ABC в заголовке столбца и выбираем тип «Валюта». Повторяем операцию в соседнем столбце.

Таким образом, мы будем автоматически получать заранее отформатированные ячейки.

А вот теперь с чистой совестью переходим на главную вкладку, «Закрыть и загрузить в», после чего указываем таблицу.

таблица с динамическими курсами валют в excel

Можем проверить себя и произвести какие-нибудь вычисления, к примеру, вычитание, чтобы узнать разницу курсов за пару дней.

Во-первых, нам достаётся корректный результат и, во-вторых, благодаря преимуществам умных таблиц, этот самый результат протягивается вниз.

Наконец, если в ваших расчётах постоянно участвует курс доллара или евро, и вам требуется обновлять его, ссылаясь на импортированные ячейки, то повторять все эти шаги больше не нужно – достаточно кликнуть правой кнопкой мыши на таблицу в Excel и выбрать «Обновить». Либо вы можете нажать на значок в панели подключений, ну или на вкладке «Данные».

Вот так мы обзаводимся динамическим курсом валют, обновляем его в один клик и адаптируем свои расчёты с Power Query. Узнать о других приемах, которые облегчат вашу работу с Excel, можно на нашем открытом онлайн-курсе «Аналитика в Excel».

КУРС

EXCEL ACADEMY

Научитесь использовать все прикладные инструменты из функционала MS Excel.

Блог SF Education

Uncategorized

О курсе “Power BI и Power Query: аналитика и визуализация данных”

Power BI и Power Query – обучающий курс по работе с Power BI и Power Query. На курсе студенты обучаются формировать, обрабатывать и визуализировать бизнес-данные,…

Tableau vs Power BI

Статья доступна в аудиоверсии Как же приятно осознавать, что мы не только обучаем Вас, дорогие студенты, но и развиваемся сами! Мы запустили новый курс…

Источник

Содержание

0.1 Способ 1. Простой веб-запрос для текущего курса валют
0.2 Способ 2. Параметрический веб-запрос для получения курса валют на заданный интервал дат
0.3 Ссылки по теме
- 0.3.1 Как получить курс валют в excel с сайта?
- 0.3.2 Получить в Excel данные с сайта
0.4 Создание связей между рабочими книгами
0.5 Прежде чем создавать связи между таблицами
0.6 Обновление связей
0.7 Разорвать связи в книгах Excel

1 Зачем это нужно?
2 Настройка XLS файла
3 Что дальше?

В старых версиях Excel подобная задача требовала неслабых ухищрений и для многих сайтов была вообще нереализуема. Начиная с версии Excel 2003 все сводится к нескольким щелчкам мышью.

Способ 1. Простой веб-запрос для текущего курса валют

Выберите в меню Данные — Импорт внешних данных — Создать веб-запрос (Data — Import external data — Web-query) или в Excel 2007/2010 нажмите кнопку Из веба (Web) на вкладке Данные (Data).

В появившемся окне в строку Адрес (Address) введите URL сайта, с которого будет браться информация (например и нажмите Enter.

Когда все необходимые таблицы помечены — нажмите кнопку Импорт (Import) внизу окна. Спустя некоторое время, нужное для загрузки данных, содержимое импортируемых таблиц появится в ячейках на листе:

Обратите внимание, что весь импортированный диапазон данных воспринимается Excel как единое целое и получает собственное имя (в нашем примере это будет www.cbr.ru)

Способ 2. Параметрический веб-запрос для получения курса валют на заданный интервал дат

1. Создаем веб-запрос (см. способ 1) к странице сайта Центробанка России с архивом курсов:

2. В форме слева выбираем нужную валюту и задаем начальную и конечную даты:

Все остальное оставляем как есть, сохраняем и закрываем файл.

=ТЕКСТ(СЕГОДНЯ();»ДД.ММ.ГГГГ»)

или в английской версии

=TEXT(TODAY(),»dd.mm.yyyy»)

Куда-нибудь рядом вводим код нужной нам валюты из таблицы:

Валюта	Код
Доллар США	R01235
Евро	R01239
Фунт стерлингов	R01035
Японская иена	R01820

Нужный код также можно подсмотреть в строке запроса прямо на сайте ЦБ.

6. Загружаем данные на лист, используя в качестве основы созданные ячейки и файл cbr.iqy, т.е. идем в меню Данные — Импорт внешних данных — Импортировать данные (Data — Import External Data — Import Data) в Excel 2003 или на вкладку Данные — подключения — Найти другие (Data — Existing Connections) в Excel 2007-2010. В открывшемся окне выбора источника данных находим и открываем файл cbr.iqy. Перед импортом Excel уточнит у нас три момента.

Во-первых, куда импортировать таблицу с данными:

Жмем ОК, ждем пару секунд и получаем полный архив курса нужной валюты на листе:

или в англоязычном варианте =VLOOKUP(E5,cbr,3,1)

где

E5 — ячейка, где лежит заданная дата
cbr — имя диапазона данных (автоматически создается при импорте и обычно совпадает с именем файла запроса)
— порядковый номер столбца в нашей таблице, откуда мы берем данные
— аргумент, включающий для функции ВПР приблизительный поиск, чтобы можно было находить курсы и для тех промежуточных дат, которые фактически не присутствуют в столбце А (будет браться ближайшая предыдущая дата и ее курс). Подробнее про приблизительный поиск с помощью функции ВПР можно понятно почитать тут.

Ссылки по теме

Макрос для получения курса доллара на заданную дату в текущей ячейке
Функция надстройки PLEX для получения курса доллара, евро, гривны, фунта стерлингов и т.д. на любую заданную дату
Вставка курса любой валюты на любую дату в надстройке PLEX

Я конечно слышал, что встроенными инструментами Excel, можно забирать данные с сайтов, точнее с веб-страниц. Но руки не доходили, пока не пришлось решать реальные задачи, как вывести курс валют в Excel. А задача была простая вывести данные по курсу бакса, евро и юаня на настоящий момент. Взялся, разобрался, рассказываю.

Конечно, у меня были подозрения, что можно написать простенький запрос и куда-нить его разместить в Excel. И встроенным инструментом он будет забирать данные с веб страницы. Так и вышло, инструмент Данные — Импорт внешних данных — Создать веб-запрос уже встроен в табличный редактор. Подробнее как это сделать ниже:

Как получить курс валют в excel с сайта?

Предварительно найдите сайт откуда вы будете забирать данные. У меня курсы нужных валют настроены в Яндексе, но удобнее всего получить из табличной части сайта копируем этот адрес сайта и переходим:

Данные — Получить внешние данные — из Веба

Вставляем адрес сайта в адресную строку. IE может предложить использовать сценарии — отказываемся. Видим желтые стрелочки — жмем на нужную таблицу, которую хотим импортировать (первая картинка). Она станет зеленой

Ищем в правом нижнем углу — кнопку Импорт — кликаем. Появляется окно Импорт данных. Жмем свойства и добавляем галочку «обновление при открытии» — ок. Выбираем нужный диапазон — ок

Все, данные загрузились, они будут обновляться в фоновом режиме и при открытии данных.

К сожалению, если импорт возвращает ошибку «этот запрос не возвращает данные», в 90% случае вернуть данные не удастся.

Теперь на отдельном листе делаем красивые курсы валют и расчеты.

Неплохо получилось!

Пример можно скачать здесь.

Получить в Excel данные с сайта

Как вы поняли, так можно получить любые данные из интернета, будь то рейтинг нового фильма и температуру на улице.

Я например, еще сделал неплохой файл для себя где отобрал показатели, которые я часто проверяю. Удобно — все в одном месте.

Что еще?

Само собой можно придумать конструкцию с OpenXML или параметрический запрос. Но так же гораздо проще, согласитесь?:)

Внимательно следите за импортируемыми датами и временем! Очень часто эксель неверно воспринимает формат таких данных. Как быстро их перевести читайте здесь.

Само собой умельцы пишут много парсеров (программки для собирания данных по нескольким сайтам). Кому надо — пишите в комментарии, что-нить разыщу дельное!

Что логично, можно сделать и обратный обмен. Из таблицы в файле передавать данные при их изменении на сайт. Но это уже другая статья!

Поделитесь нашей статьей в ваших соцсетях:

(Visited 11 329 times, 2 visits today)

Связь между таблицами Excel – это формула, которая возвращает данные с ячейки другой рабочей книги. Когда вы открываете книгу, содержащую связи, Excel считывает последнюю информацию с книги-источника (обновление связей)

Межтабличные связи в Excel используются для получения данных как с других листов рабочей книги, так и с других рабочих книг Excel. К примеру, у вас имеется таблица с расчетом итоговой суммы продаж. В расчете используются цены на продукт и объем продаж. В таком случае имеет смысл создать отдельную таблицу с данными по ценам, которые будут подтягиваться с помощью связей первой таблицы.

Когда вы создаете связь между таблицами, Excel создает формулу, которая включает в себя имя исходной книги, заключенную в скобки [], имя листа с восклицательным знаком на конце и ссылку на ячейку.

Создание связей между рабочими книгами

Открываем обе рабочие книги в Excel
В исходной книге выбираем ячейку, которую необходимо связать, и копируем ее (сочетание клавиш Ctrl+С)
Переходим в конечную книгу, щелкаем правой кнопкой мыши по ячейке, куда мы хотим поместить связь. Из выпадающего меню выбираем Специальная вставка
В появившемся диалоговом окне Специальная вставка выбираем Вставить связь.

Есть еще один, более простой, вариант создания связи между таблицами. В ячейку, куда мы хотим вставить связь, ставим знак равенства (так же как и для обычной формулы), переходим в исходную книгу, выбираем ячейку, которую хотим связать, щелкаем Enter.

Вы можете использовать инструменты копирования и автозаполнения для формул связи так же, как и для обычных формул.

Прежде чем создавать связи между таблицами

Прежде чем вы начнете распространять знания на свои грандиозные идеи, прочитайте несколько советов по работе со связями в Excel:

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

Автоматические вычисления. Исходная книга должна работать в режиме автоматического вычисления (установлено по умолчанию). Для переключения параметра вычисления перейдите по вкладке Формулы в группу Вычисление. Выберите Параметры вычислений –> Автоматически.

Избегайте циклические ссылки. Циклические связи – когда две рабочие книги содержат ссылки друг на друга – могут быть причиной медленного открытия и работы файла.

Обновление связей

Для ручного обновления связи между таблицами, перейдите по вкладке Данные в группу Подключения. Щелкните по кнопке Изменить связи.

В появившемся диалоговом окне Изменение связей, выберите интересующую вас связь и щелкните по кнопке Обновить.

Разорвать связи в книгах Excel

Разрыв связи с источником приведет к замене существующих формул связи на значения, которые они возвращают. Например, связь =Цены!$B$4 будет заменена на 16. Разрыв связи нельзя отменить, поэтому прежде чем совершить операцию, рекомендую сохранить книгу.

Перейдите по вкладке Данные в группу Подключения. Щелкните по кнопке Изменить связи. В появившемся диалоговом окне Изменение связей, выберите интересующую вас связь и щелкните по кнопке Разорвать связь.

О чем здесь?

Привязки колонки цен к валюте в прайс-листе Excel и настройка автоматического обновления курса

Зачем это нужно?

Если вы работаете с поставщиками, которые дают цены в валюте, которая не совпадает с основной валютой магазина, то наверняка уже устали исправлять курс в магазине. А возможно, вы или ваши клиенты стали жертвой скачков курсов за последнее время.

Сейчас мы настроим свой прайс лист в Excel так, что нам не придется больше думать об обновлении курсов.

Настройка XLS файла

Откройте прайс и создайте в нем новый пустой лист:

Перейдите во вкладку «Данные» и выберите в ней Получить внешний данные — Из Веба:

У меня открылась страница www.yandex.ru, вы можете выбрать любую другую (например сайт Центробанка), главное, чтобы на ней был курс необходимой валюты. Щелкните по значку с черной стрелкой на желтом фоне и нажмите кнопку «Импорт»:

Укажите ячейку, в которую следует поместить данные из веба:

Дождитесь, пока данные загрузятся и найдите ячейку с валютой (у меня они оказались на 83 строке):

Нажмите правой кнопкой мыши и выберите пункт «Свойства диапазона данных»:

Укажите интервал обновления или дайте команду курсу обновляться каждый раз, когда открываете файл.

Теперь осталось умножить колонку с нашими ценами на курс. Но что делать, если в ячейке содержаться текстовые символы валюты, например руб. 61,8457 как на cbr.ru? Для этого нам понадобится функция ПСТР:

 =ПСТР(Лист1!B48;6;10)

Где: Лист1!B48 — ячейка с курсом; 6 — количество символов, которые нужно «отрезать» от начала строки; 10 — количество знаков, которое следует извлечь из текста.

Все что, что нужно теперь — это создать новую колонку в которой умножить цену в у.е. на курс. Теперь ваши цены автоматически обновляются в xls прайсе и могут за несколько минут попасть в интернет магазин.

Что дальше?

Источник

Example 1

Например, для получения котировок на заданный день
http://www.cbr.ru/scripts/XML_daily.asp?date_req=02/03/2002
date_req= Date of query (dd/mm/yyyy)

* если параметр(date_req) отсутствует, то Вы получите документ на последнюю зарегистрированную дату.

XSD Схема

— Справочник по кодам валют: http://www.cbr.ru/scripts/XML_val.asp?d=0

XSD Схема

   (XML_valFull.asp список включающий ISO коды валют)
    d=0 Коды валют устанавливаемые ежедневно.
    d=1 Коды валют устанавливаемые ежемесячно.
XSD Схема

http://www.cbr.ru/scripts/XML_daily.asp?date_req=02/03/2002&d=1 — котировки валют устанавливаемые ежемесячно (устарело).
Aнгл. версия:
http://www.cbr.ru/scripts/XML_daily_eng.asp?date_req=22/01/2007
http://www.cbr.ru/scripts/XML_daily_eng.asp?date_req=01/01/2007&d=1

Example 2
Пример получения динамики котировок доллара США:
http://www.cbr.ru/scripts/XML_dynamic.asp?date_req1=02/03/2001&date_req2=14/03/2001&VAL_NM_RQ=R01235
date_req1 — date_req2 = Date range
VAL_NM_RQ — unique code (you can get this code from Example 1)

XSD Схема

Example 3

Пример получения динамики сведений об остатках средств на корреспондентских счетах кредитных организаций
date_req1 — date_req2 = Date range
http://www.cbr.ru/scripts/XML_ostat.asp?date_req1=01/06/2001&date_req2=05/06/2001

Example 4

Пример получения динамики котировок драгоценных металлов
date_req1 — date_req2 = Date range
http://www.cbr.ru/scripts/xml_metall.asp?date_req1=01/07/2001&date_req2=13/07/2001

ВНИМАНИЕ c 01.07.2008 дата установления цены является действующей, до 01.07.2008 — датой установления.

Example 5

Пример получения динамики ставок межбанковского рынка
date_req1 — date_req2 = Date range
http://www.cbr.ru/scripts/xml_mkr.asp?date_req1=01/07/2001&date_req2=13/07/2001

Example 6

Пример получения динамики ставок привлечения средств по депозитным операциям Банка России на денежном
рынке

date_req1 — date_req2 = Date range
http://www.cbr.ru/scripts/xml_depo.asp?date_req1=01/07/2001&date_req2=13/07/2001

Example 7

Получение новостей сервера
http://www.cbr.ru/scripts/XML_News.asp

Example 8

Получение соответствия названий кредитных организаций кодам BIC (9 знаков)
http://www.cbr.ru/scripts/XML_bic.asp?name=АВТО&bic=044525774,

где:
bic — код кредитной организации (9 знаков)
name — название (часть названия) кредитной организации

* Вы можете указать какой — либо один или оба параметра.
Если оба параметра отсутствуют, тогда Вы получите полный список
соответствия названий кредитных организации и кодов BIC.

Example 9
Пример получения динамики ставок «валютный своп» — » Валютный своп buy/sell overnight «
date_req1 — date_req2 = Date range
http://www.cbr.ru/scripts/xml_swap.asp?date_req1=01/12/2002&date_req2=06/12/2002

Example 10
Пример получения динамики отпускных цен Банка России на инвестиционные монеты
date_req1 — date_req2 = Date range
http://www.cbr.ru/scripts/XMLCoinsBase.asp?date_req1=01/12/2005&date_req2=06/12/2005

Список компаний с выявленными признаками нелегальной деятельности на финансовом рынке

полный список:
http://www.cbr.ru/ref/blacklist/BlackList.xml

XSD Схема

Простые примеры
получения
данных на MS Visual Basic
(в примере использована SoapToolkit 3.0 и Xml sdk от Microsoft)

Простое получение валюты (ProjectXML.vbp)

Получение динамики валюты и экспорт в
Excel файл(ProjectXMLDynamic.vbp)
usd_cbr_php.zip Примеры получения курса доллара, используя PHP4 (unix, windows) в виде графического информера.

По вопросам
импорта
данных: webmaster@mail.cbr.ru

Последнее обновление страницы: 22.03.2022

Источник

МЕНЮ САЙТА

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ

Курсы валют из интернета онлайн

Если Вы часто работаете с финансами, то Вам необходимо быть в курсе текущей стоимости разных валют. В Excel есть удобная функция получения данных из интернета он-лайн. Вот как это делается (последовательность действий одинакова для всех версий, отличается только первый шаг):
Шаг 1. Для Excel 2003: Данные — Импорт внешних данных — Создать Веб запрос

Для Excel 2007: Данные — Из Веба
Для Excel 2010 и последующие версии: Данные — Из интернета

Шаг 2. В появившемся окне Создание веб-запроса вводим адрес сайта, с которого мы будем брать курсы валют (например сайт центробанка России), нажимаем Пуск, отмечаем таблицу с курсами валют (при этом желтый маркер со стрелочкой изменится на зеленый с галочкой) и нажимаем кнопку Импорт.

Шаг 3. В появившемся окне Импорт данных Вы можете выбрать место размещения данных и настроить свойства диапазона (это можно сделать и позже, уже после того как веб-запрос будет сформирован и данные будут на листе). Нажимаем ОК и… готово!

Получилась вот такая таблица:

Excel сам создал именованый диапазон и теперь, даже если Вы внесете какую-то информацию в ячейки этого диапазона, она будет удалена при его обновлении.

Если на третьем шаге Вы не настроили свойства веб-запроса, то Вы всегда можете это сделать, просто кликнув правой кнопкой мыши по любой ячейке диапазона запроса и выбрав в контекстном меню пункт Свойства диапазона данных. Так же в этом меню Вы можете Изменить запрос или Обновить данные вручную.

Данная возможность есть в Excel начиная с версии 2003.

Категория: Excel и интернет | Добавил: Serge_007 (27.01.2012)

Просмотров: 55655 | Комментарии: 14
| Теги: рубль, доллар, курс, курсы валют эксель, валюта, евро, фунт
| Рейтинг: 3.8/5

Всего комментариев: 14
Порядок вывода комментариев: Добрый день, serge_007, не подскажете как можно добавлять новый курс валют на новую строку? Доброго времини и суток если кто стикалса с таким вопросом мне надо с помощью встроенного Visual Basic в Exel перенести дание с Эксель в ворд мне нужен макрос чтоби из 1000 тестов мог рандомно перенести только 30 тестов вот мой макрос которий я зделал Private Sub CommandButton1_Click() Open «E:1.doc» For Output As #1 i = 2 Do While Not IsEmpty(Cells(i, 2)) Print #1, Cells(i, 2) & «. «; Cells(i, 2) i = i + 1 Do While Not IsEmpty(Cells(i, 3)) If IsEmpty(Cells(i, 4)) = True Then Print #1, «-» & Cells(i, 3) Else Print #1, «+» & Cells(i, 3) End If i = i + 1 Loop Print #1, » » Loop Close #1 End Sub я незнаю как зделать чтоби тесты били рандомно списку и чтоби порядок тестов чтоби видно было от 1 теста до 30 помогите пожалоста решить мне ето проблему Доброго времени суток. Подскажите, пожалуйста, как вытащить курс валют конкретно с вот этого сайта, именно с этой страницы Банк Открытие. Обмен валют для бизнеса. Делов том, что указанный в Вашей статье способ не срабатывает: курс находится не в таблице, а в div и при импортировании не отображается Добрый день! как зафиксировать в данном файле в табличном виде сумму портфеля валют ежедневно в одно и тоже время автоматически? 0 semenych1980, здравствуйте Что именно Вы имеете ввиду под автоматической фиксацией? не в ручную так как иногда нет возможности быть за компом долгое время, то есть каждый день допустим в 12:00 автоматически записывать сумму в портфеле 0 Это несложно Можно макросом записывать данные по расписанию Используйте Метод VBA Application.OnTime Он помогает запланировать процедуру, которая будет запускаться в определенное время в будущем (либо в определенное время суток, либо после определенного времени). Добрый вечер! Кто нибудь сталкивался с таким вопросом: курс доллара на втором листе, при выполнении в требуемой ячейке первого листа =ИНДЕКС(‘Курс доллара’!A22;) эксель падает …Что делать? Excel 2010. >Шаг 2. В появившемся окне Создание веб-запроса вводим адрес сайта НЕВОЗМОЖНО ОТОБРАЗИТЬ WEB СТРАНИЦУ ПРОВЕРЬТЕ СОЕДИНЕНИЕ С INTERNET INTERNET работает. Вот пишу это сообщение. Сайт www.cbr.ru в браузере открывается. Может в настройках чего «подкрутить» требуется . . 0 Можно много чего предполагать, но не видя проблему — её не решить У меня такого никогда не было

Добавлять комментарии могут только зарегистрированные пользователи.

[

Регистрация

Вход

]

Источник