Функция курса валюты в excel

Я уже неоднократно разбирал способы импорта данных в Excel из интернета с последующим автоматическим обновлением. В частности:

• В старых версиях Excel 2007-2013 это можно было сделать с помощью прямого веб-запроса.
• Начиная с 2010 года это можно очень удобно делать с помощью надстройки Power Query.

К этим способам в последних версиях Microsoft Excel теперь можно добавить ещё один — импорт данных из интернета в формате XML с помощью встроенных функций.

XML (eXtensible Markup Language = Расширяемый Язык Разметки) – это универсальный язык, созданный для описания любых данных. По сути, он представляет собой обычный текст, но с добавленными в него специальными тегами для разметки структуры данных. Многие сайты совершенно бесплатно предоставляют всем желающим потоки своих данных в XML-формате для загрузки. На сайте Центрального Банка России (www.cbr.ru), в частности, с помощью подобной технологии отдаются данные по курсам различных валют. С сайта Московской Биржи (www.moex.com) таким же образом можно загрузить котировки акций, облигаций и множество другой полезной информации.

Начиная с версии 2013 в Excel появились две функции для прямой загрузки XML-данных из интернета в ячейки листа: ВЕБСЛУЖБА (WEBSERVICE) и ФИЛЬТР.XML (FILTERXML). Работают они в паре — сначала функция ВЕБСЛУЖБА выполняет запрос к нужному сайту и возвращает его ответ в формате XML, а затем с помощью функции ФИЛЬТР.XML мы «разбираем» этот ответ на составляющие, извлекая из него нужные нам данные.

Давайте рассмотрим работу этих функций на классическом примере – импорте курса любой нужной нам валюты на заданный интервал дат с сайта Центробанка России. В качестве заготовки будем использовать вот такую конструкцию:

Здесь:

• В жёлтых ячейках находятся даты начала и окончания интересующего нас периода.
• В синей сделан выпадающий список валют при помощи команды Данные — Проверка — Список (Data — Validation — List).
• В зеленых ячейках мы будем использовать наши функции, чтобы создать строку запроса и получить ответ сервера.
• Таблица справа — справочник по кодам валют (потребуется нам чуть позже).

Поехали!

Шаг 1. Формируем строку запроса

Чтобы получить от сайта требуемую информацию, его нужно правильно спросить. Заходим на www.cbr.ru и в подвале главной страницы открываем ссылку’ Технические ресурсы ’- Получение данных, используя XML (http://cbr.ru/development/SXML/). Проматываем чуть ниже и во втором примере (Example 2) будет то, что нам нужно — получение курсов валюты на заданный интервал дат:

Как видно из примера, строка запроса должна содержать даты начала (date_req1) и окончания (date_req2) интересующего нас периода и код валюты (VAL_NM_RQ), курс которой мы хотим получить. Коды основных валют вы можете найти в таблице ниже:

Полный справочник по кодам валют есть там же, на сайте ЦБ – см. http://cbr.ru/scripts/XML_val.asp?d=0

Теперь сформируем строку запроса в ячейке на листе с помощью:

• оператора склейки текста (&), чтобы собрать воедино;
• функции ВПР (VLOOKUP), чтобы найти код нужной нам валюты в справочнике;
• функции ТЕКСТ (TEXT), преобразующей дату по заданному шаблону день-месяц-год через косую черту.

="http://cbr.ru/scripts/XML_dynamic.asp?date_req1="&ТЕКСТ(B2;"ДД/ММ/ГГГГ")&
"&date_req2="&ТЕКСТ(B3;"ДД/ММ/ГГГГ")&"&VAL_NM_RQ="&ВПР(B4;M:N;2;0)

Шаг 2. Выполняем запрос

Теперь используем функцию ВЕБСЛУЖБА (WEBSERVICE) с созданной строкой запроса в качестве единственного аргумента. Ответом будет длинная строка XML-кода (лучше включить перенос по словам и увеличить размер ячейки, если хочется увидеть её целиком):

Шаг 3. Разбираем ответ

Чтобы легче было разобраться в структуре данных ответа, лучше воспользоваться одним из онлайн-парсеров XML (например, http://xpather.com/ или https://jsonformatter.org/xml-parser), которые умеют наглядно форматировать XML-код, добавляя к нему отступы и подсвечивая цветом синтаксис. Тогда всё станет существенно понятнее:

Теперь хорошо видно, что значения курса обрамлены у нас тегами <Value>…</Value>, а даты являются атрибутами Date в тегах <Record>.

Чтобы их извлечь курс, выделим на листе столбец из десяти (или более — если делать с запасом) пустых ячеек (т.к. был задан 10-дневный интервал дат) и введём в строку формул функцию ФИЛЬТР.XML (FILTERXML):

Здесь первый аргумент – это ссылка на ячейку с ответом сервера (B8), а второй – строка запроса на XPath – специальном языке, с помощью которого можно обращаться к нужным фрагментам XML-кода и извлекать их. Подробнее о языке XPath можно почитать, например, тут.

Важно после ввода формулы нажать не Enter, а сочетание клавиш Ctrl+Shift+Enter, т.е. ввести её как формулу массива (фигурные скобки вокруг будут добавлены автоматически). Если же у вас последняя версия Office 365 с поддержкой в Excel динамических массивов, то хватит и простого Enter, да и выделять заранее пустые ячейки не требуется — функция сама займет столько ячеек, сколько ей нужно.

Для извлечения дат поступим аналогично – выделим несколько пустых ячеек в соседнем столбце и используем ту же функцию, но с другим запросом XPath, чтобы получить все значения атрибутов Date из тегов Record:

=ФИЛЬТР.XML(B8;»//Record/@Date»)

Теперь в будущем при изменении дат в исходных ячейках В2 и В3 или выборе другой валюты в выпадающем списке ячейки B3, наш запрос будет автоматически обновляться, обращаясь к серверу ЦБ за новыми данными. Чтобы форсировать обновление вручную, можно дополнительно использовать сочетание клавиш Ctrl+Alt+F9.

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

• Импорт курса биткойна в Excel через Power Query
• Импорт курса валют из интернета в старых версиях 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 Вон Республики Корея

'---------------------------------------------------------------------------------------
' Procedure : КурсЦБР
' DateTime  : 15.09.2013 23:11
' Author    : The_Prist(Щербаков Дмитрий)
'             http://www.excel-vba.ru
' Purpose   : http://www.excel-vba.ru/chto-umeet-excel/poluchit-kurs-valyut-ot-sberbanka/
'---------------------------------------------------------------------------------------
Function КурсЦБР(Optional ТипВалюты As String, Optional ByVal Дата As String) As Double
    'раскомментировать, если необходимо обновление при любом изменении на листе
    'Application.Volatile True
    Dim sRequest As String, sReqRes As String, sRes As String
    Dim sDay As String, sMonth As String, sYear As String
    Dim lPos As Long, lLastPos As Long, lDel As Long, oHttp
 
    If IsMissing(ТипВалюты) Or ТипВалюты = "" Then ТипВалюты = "USD"
    If IsMissing(Дата) Or Дата = "" Then Дата = Now
    If Not IsDate(Дата) Then Дата = CDate(Дата)
 
    sDay = Format(Дата, "dd"): sMonth = Format(Дата, "mm"): sYear = Format(Дата, "yyyy")
    sRequest = "http://cbr.ru/currency_base/daily.aspx?C_month= " & _
             sMonth & "&C_year=" & sYear & "&date_req=" & sDay & "%2F" & _
             sMonth & "%2F" & sYear
    On Error Resume Next
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    If Err <> 0 Then
        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
    End If
    If oHttp Is Nothing Then Exit Function
    oHttp.Open "GET", sRequest, False
    oHttp.Send
    sReqRes = Replace(oHttp.responseText, vbNewLine, "")
    sReqRes = Replace(sReqRes, Chr(10), "")
    sReqRes = Replace(sReqRes, " ", "")
    lPos = InStr(1, sReqRes, UCase(ТипВалюты) & "</td>", 1)
    lPos = InStr(lPos, sReqRes, "<td>", 1) + 4
    lLastPos = InStr(lPos, sReqRes, "</td>", 1)
    lDel = Mid(sReqRes, lPos, lLastPos - lPos)
    lPos = InStr(lLastPos + 10, sReqRes, "<td>", 1) + 4
    lLastPos = InStr(lPos, sReqRes, "</td>", 1) - 4
    sRes = Mid(sReqRes, lPos, 7)
    sRes = sRes / lDel
    Set oHttp = Nothing
    sRes = Replace(sRes, ",", Mid(1 / 2, 2, 1))
    КурсЦБР = sRes
End Function

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

​Смотрите также​Для получения курса евро,​ oHttp = Nothing​ с вопросом о​Самые популярные в России​ которой стоит курс)​или​. В появившемся окне​ (последовательность действий одинакова​

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

​E5​​ архив курса нужной​​в Excel 2007-2010.​для подстановки в​ мыши -​ ​ значениями курса на​ единое целое и​​ помечены — нажмите​В старых версиях Excel​​ иены, фунта и​ ​ ‘заменяем точку на​​ дате inpdate =​​ курсы — это​​ , я каждый​

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

​ заданном интервале дат.​ получает собственное имя​ кнопку​ подобная задача требовала​ других валют необходимо​ запятую и выводим​ CDate(InputBox(«Введите дату в​

​ курсы валют.​ раз прописывала это​вручную.​​Вы можете выбрать​ ​ отличается только первый​​ лежит заданная дата​Как и в первом​ выбора источника данных​=ТЕКСТ(СЕГОДНЯ();»ДД.ММ.ГГГГ»)​ Блокнот​ Прокручиваем полученную таблицу​

​ (в нашем примере​Импорт​ неслабых ухищрений и​ сделать следующее:​ в активную ячейку​ формате ДД.ММ.ГГГГ», _​​Правда, на них​ ​ вручную.. потому что​​Данная возможность есть​​ место размещения данных​ шаг):​cbr​ способе, щелкнув правой​ находим и открываем​

​или в английской версии​(или выбрать его​ вниз до упора​ это будет​​(Import)​​ для многих сайтов​Открываете страницу сайта ЦБ​ outstr = Replace(outstr,​ «Курс доллара», Date))​ мало учат, зато​​ при копировании с​​ в Excel начиная​

​ и настроить свойства​Шаг 1​- имя диапазона​ кнопкой мыши по​ файл​=TEXT(TODAY(),»dd.mm.yyyy»)​ из списка -​​ и помечаем ее​​www.cbr.ru​

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

​внизу окна. Спустя​ была вообще нереализуема.​ со списком валют,​ «,», «.») ActiveCell.Value​ ‘разбираем дату на​ много наказывают.​ помощью ctrl ячейка​ с версии 2003.​ диапазона (это можно​. Для​ данных (автоматически создается​ импортированным данными и​cbr.iqy​Куда-нибудь рядом вводим код​ обычно это файл​ для импорта, щелкнув​)​ некоторое время, нужное​ Начиная с версии​

​ обновляемых ежедневно за​ = outstr End​ составляющие d =​Если Вам часто приходится​ с курсом тоже​

​Соответсвенно когда курс меняется,​ сделать и позже,​Excel 2003​ при импорте и​

​ выбрав команду​​. Перед импортом Excel​​ нужной нам валюты​Notepad.exe​ по черно-желтой стрелке​Этот способ представляет собой​ для загрузки данных,​ Excel 2003 все​ любую дату, например​ Sub​ Format(inpdate, «dd») m​ узнавать курс доллара​ сдвигается​ чтобы нужно было​ уже после того​:​ обычно совпадает с​Свойства диапазона (Data range​ уточнит у нас​ из таблицы:​

​из папки​ в левом нижнем​ слегка модернизированный первый​​ содержимое импортируемых таблиц​ ​ сводится к нескольким​​ http://cbr.ru/currency_base/daily.aspx?C_month=10&C_year=2012&date_req=01.10.2012. ​Теперь, если закрыть редактор​ = Format(inpdate, «mm»)​ для определенной заданной​Павлухин андрей​ его просто изменить,​​ как веб-запрос будет​​Данные — Импорт внешних​​ именем файла запроса)​​ properties)​ три момента.​Валюта​C:Windows​

​ углу вебстраницы (только​ вариант и дает​ появится в ячейках​​ щелчкам мышью.​​Открываем исходный HTML-код запрошенной​ Visual Basic и​ y = Format(inpdate,​​ даты в прошлом​: Если значения во​​ а автоматом пересчитает​ сформирован и данные​ данных — Создать​​3​​, можно настроить частоту​​Во-первых, куда импортировать таблицу​​Код​). После открытия файла​ не спрашивайте почему​ пользователю возможность получать​

​ на листе:​Выберите в меню​ страницы (правой кнопкой​ вернуться в Excel,​ «yyyy») ‘формируем строку​ (даты заказа или​ всех столбцах, которые​ всё. Спасибо.​ будут на листе).​ Веб запрос​- порядковый номер​ обновления​ с данными:​

​Доллар США​

​ запроса в Блокноте​ эта стрелка находится​ курс нужной валюты​

​Для дополнительной настройки можно​Д​ по веб-странице -​ то через меню​ для веб-запроса sURI​ поставки, например), то​ необходимо умножать на​Всеволод коваленко бик​​ Нажимаем​​Для​ столбца в нашей​

​При открытии файла (Refresh​

​Во-вторых, откуда брать код​

​R01235​

​ должны увидеть примерно​ там, а не​ не только на​

​ таблице, откуда мы​ on file open)​ валюты (можно установить​Евро​

​ следующее:​ рядом с таблицей​ текущий день, но​ из этих ячеек​ данных — Создать​Просмотр HTML-кода​​ Макросы,​ m & «&C_year=»​ вам много времени.​ ​ будут, то необходимо​ А1 курс доллара.​и… готово!​​2007​ берем данные​​. Тогда при наличии​ флажок​ ​R01239​​Самое ценное здесь -​ — это вопрос​ и на любую​ правой кнопкой мыши​ веб-запрос​​в IE или​​или нажав ALT+F8,​ _ & y​ Вместо похода в​

​ в каждую ячейку​В нужной ячейке​

​Получилась вот такая​:​1​​ доступа к интернету​Использовать данное значение по​ ​Фунт стерлингов​ строка с адресом​​ к дизайнерам сайта).​ другую интересующую дату​ и выбрать в​(Data — Import external​​ что-то похожее в​ можно запустить наш​ ​ & «&date_req=» &​ архивы ЦБР достаточно​​ столбцов дописать умножение​

​ пишешь​ таблица:​Данные — Из Веба​- аргумент, включающий​ данные будут автоматически​ умолчанию​R01035​ и параметры запроса​

​Теперь ищем в правом​​ или интервал дат.​​ контекстном меню команду​ data — Web-query)​ других браузерах)  и​ макрос​

​ d & «%2F»​ будет его запустить.​ на абсолютную ячейку​=​Excel сам создал​​Для​ для функции ВПР​​ обновляться каждый день,​(Use this value/reference for​​Японская иена​ в ней, которые​​ верхнем углу окна​ Для этого наш​Свойства диапазона​или в Excel​ ищем обозначение необходимой​GetDollar​ & m &​

​Откройте редактор Visual Basic,​ с курсом, например:​Затем щелкаешь мышкой​ именованый диапазон и​​Excel​ ​ приблизительный поиск, чтобы​​ т.е. таблица будет​ future refreshes)​R01820​ мы будем подставлять​ кнопку с дискетой​ веб-запрос надо превратить​(Data range properties)​ 2007/2010 нажмите кнопку​ валюты, например USD.​, ввести в появившееся​

​ «%2F» & y​ нажав ALT+F11 или​

​ в ячейке вводите​

• ​ на А1 и​​ теперь, даже если​2010​
• ​ можно было находить​​ самостоятельно дополняться новыми​, чтобы не указывать​Нужный код также можно​ — код нужной​Сохранить запрос​
• ​ в параметрический, т.е.​​.​Из веба​Считаем на сколько символов​ окно дату и​
• ​ ‘делаем запрос On​​ выбрав в меню​ =38000*$A$1, где $A$1​ нажимаешь F4, затем​ Вы внесете какую-то​:​ курсы и для​ данными.​ потом каждый раз​ подсмотреть в строке​ нам валюты (выделено​(Save Query)​ добавить к нему​В этом диалоговом​(Web)​ в исходнике от​

planetaexcel.ru

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

​ получить курс доллара​ Error Resume Next​Сервис — Макрос -​ — ячейка с​*​ информацию в ячейки​Данные — Из интернета​ тех промежуточных дат,​Вытаскивать из нашей таблицы​ эту ячейку при​ запроса прямо на​ красным) и конечная​и сохраняем файл​ два уточняющих параметра​
​ окне, при желании,​​на вкладке​​ аббревиатуры валюты отстоит​​ для заданной даты​​ Set oHttp =​ Редактор Visual Basic​ курсом.​

​и щелкаешь на​​ этого диапазона, она​ ​Шаг 2​​ которые фактически не​​ курс за нужную​
​ обновлениях и флажок​​ сайте ЦБ.​ ​ дата, которую мы​​ с параметрами нашего​​ (код нужной нам​

​ возможно настроить периодичность​​Данные (Data)​​ требуемый курс. Например,​​ в текущей ячейке.​ CreateObject(«MSXML2.XMLHTTP») If Err.Number​ (Tools — Macro​Если значения во​ ячейку которую нужно​​ будет удалена при​​. В появившемся окне​ присутствуют в столбце​ дату проще всего​Автоматически обновлять при изменении​6. Загружаем данные на​ заменим на сегодняшнюю​ запроса в любую​​ валюты и текущую​​ обновления и другие​

​.​​ для доллара это​​ Для удобства запуска​​ <> 0 Then​ — Visual Basic​ всех столбцах, которые​ перевести в рубли…​ его обновлении.​Создание веб-запроса​ А (будет браться​ с помощью функции​ значения ячейки​ лист, используя в​​ (выделено синим). Аккуратно​​ подходящую папку под​

​ дату). Для этого​ параметры:​

​В появившемся окне в​ 85, то есть​ можно сделать кнопку​ Set oHttp =​ Editor)​ необходимо умножать на​Автозаполняемая формула готова.​Если на третьем​

​вводим адрес сайта,​ ближайшая предыдущая дата​ВПР​(Refresh automatically when cell​ качестве основы созданные​ редактируем строку, чтобы​ любым удобным именем​ делаем следующее:​Котировки акций, т.к. они​ строку​ с 85-го символа​​ макроса на панели​​ CreateObject(«MSXML.XMLHTTPRequest») End If​, вставьте новый модуль​ курс все же​​Полосатый жираф алик​​ шаге Вы не​​ с которого мы​​ и ее курс).​


​(VLOOKUP)​ value changes)​ ячейки и файл​

excelworld.ru

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

​ получилось следующее:​ — например в​1. Создаем веб-запрос (см.​ меняются каждые несколько​Адрес (Address)​

​ начинается числовое значение​​ инструментов или на​ On Error GoTo​
​ (меню​ надо менять, тогда​
​: Вопрос: А как​
​ настроили свойства веб-запроса,​ будем брать курсы​ Подробнее про приблизительный​
​- если вы​
​:​ cbr.iqy, т.е. идем​http://cbr.ru/currency_base/dynamics.aspx?VAL_NM_RQ=[«Код валюты»]&date_req1=01.01.2000&r1=1&date_req2=[«Дата»]&rt=1&mode=1​
​Мои документы​

​ способ 1) к​​ минут, можно обновлять​введите URL сайта,​

​ самого курса. Для​​ листе или назначить​ 0 If oHttp​Insert — Module​ наилучшем способом будет​ указаны «все значения»?​ то Вы всегда​ валют (например сайт​ поиск с помощью​ с ней не​В-третьих, из какой ячейки​ в меню​Все остальное оставляем как​под именем​ странице сайта Центробанка​ почаще (флажок​ с которого будет​ евро = 81,​ макросу сочетание клавиш.​ Is Nothing Then​

​) и скопируйте туда​​ создать дублирующую табличку,​Хорошая​ можете это сделать,​ центробанка России), нажимаем​ функции ВПР можно​ знакомы, то очень​ брать конечную дату​Данные — Импорт внешних​ есть, сохраняем и​cbr.iqy.​ России с архивом​Обновлять каждые N мин.​ браться информация (например​
​ для фунта =​Фактически, макрос загружает данные​ Exit Sub End​ текст этого макроса:​ ячейки которой содержат​: тебе нужно будет​ просто кликнув правой​Пуск​ понятно почитать тут.​
​ советую сделать это.​ (тут также можно​ данных — Импортировать​ закрываем файл.​После этого окно​ курсов: http://cbr.ru/currency_base/dynamics.aspx​), а вот курсы​ http://www.finmarket.ru/currency/rates/) и нажмите​
​ 96, для иены​

Курс доллара для любой заданной даты

​ из архива сайта​ If oHttp.Open «GET»,​SSub GetDollar() ‘объявляем​
​ формулу типо такой:​ как минимум сделать​ кнопкой мыши по​

​, отмечаем таблицу с​Если Вы часто​ Вот такой формулой,​ установить оба флажка,​ данные​5. Создаем новую книгу​ веб-запроса и весь​2. В форме слева​ валют, в большинстве​ Enter.​ = 89, для​

​ Центробанка РФ, поэтому​ sURI, False oHttp.Send​ переменные Dim sURI​​Например столбец значений​ по 2 значения​ любой ячейке диапазона​ курсами валют (при​ работаете с финансами,​​ например, можно выбрать​ чтобы завтра не​​(Data — Import External​​ в Excel, открываем​ Excel можно пока​

​ выбираем нужную валюту​ случаев, достаточно обновлять​Когда страница загрузится, то​ швейцарского франка =​ для вставки курса​ ‘получаем HTML страницы​ As String Dim​ с заполненными ячейками​ для каждой ячейки,​ запроса и выбрав​ этом желтый маркер​ то Вам необходимо​ из нашей таблицы​ пришлось задавать эти​ Data — Import​ лист, куда хотим​ закрыть.​ и задаем начальную​ раз в день​ на таблицах, которые​ 87 и т.д.​ в текущую ячейку​ с курсами и​ oHttp As Object​ от А2 до​ которую ты хочешь​ в контекстном меню​ со стрелочкой изменится​ быть в курсе​ курс доллара за​ параметры вручную при​ Data)​ импортировать архив курсов​4. Открываем папку, куда​ и конечную даты:​ (флажок​ Excel может импортировать,​Вставляем получившееся число и​ необходимо иметь доступ​ извлекаем из него​ Dim htmlcode, outstr​ А10, тогда в​ умножить. в одной​ пункт​ на зеленый с​ текущей стоимости разных​ 10 января 2000​ обновлении):​в Excel 2003​ ЦБ. В любую​ сохранили запрос и​3. Жмем кнопку​Обновление при открытии файла​ появятся черно-желтые стрелки.​ код валюты в​ в интернет (в​ курс доллара htmlcode​ As String Dim​

​ ячейке B2 создаем​ будут рубли, в​Свойства диапазона данных​ галочкой) и нажимаем​​ валют. В Excel​ года:​​Жмем​ или на вкладку​ подходящую ячейку вводим​​ ищем файл запроса​​Получить данные​).​ Щелчок по такой​ макрос в строку ​ данный момент). Данные​ = oHttp.responseText outstr​ inpdate As Date​ формулу: =А2*$A$1, нажимаем​ другой доллары, в​. Так же в​ кнопку​

​ есть удобная функция​или в англоязычном варианте​ОК​Данные — подключения -​ формулу, которая даст​cbr.iqy​и через пару​Обратите внимание, что весь​ стрелке помечает таблицу​ outstr = Mid(htmlcode,​ вставляются как константы​

​ = Mid(htmlcode, InStr(1,​ Dim d, m,​ Энтер и протягиваем​ тех, где рубли​

1. ​ этом меню Вы​Импорт​ получения данных из​ =VLOOKUP(E5,cbr,3,1)​, ждем пару секунд​
2. ​ Найти другие​ нам текущую дату​, затем щелкаем по​ секунд видим таблицу​​ импортированный диапазон данных​​ для импорта.​ InStr(1, htmlcode, «USD»)​ (без связи и​ htmlcode, «USD») +​ y As Integer​
3. ​ автозаполнением до В12.​ пишешь =(номер долларовой​ можете​.​ интернета он-лайн. Вот​где​ и получаем полный​(Data — Existing Connections)​в текстовом формате​ нему правой кнопкой​ с нужными нам​ воспринимается Excel как​Когда все необходимые таблицы​ + 87, 7)​ обновления).​
4. ​ 87, 7) Set​ ‘выводим диалоговое окно​А2​ ячейки) *(ячейка, в​Изменить запрос​Шаг 3​

planetaexcel.ru

​ как это делается​