TOP
Импорт курсов валют с сайта НБУ в Excel
NBU_RATE() Описание
Готовая функция для тех, кому часто приходится использовать курсы валют НБУ в Excel .
Помогает автоматически получать значение курса валюты с сайта НБУ по ее коду и дате.
VBA код для функции NBU_RATE
Чтобы добавить функцию импорта курсов валют НБУ , откройте меню Service - Macros - Visual Basic Editor , вставьте новый модуль (меню Insert - Module ) и скопируйте туда текст этой функции:
- Function NBU_RATE(ByVal pCurrency, ByVal pDate)
-
- If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function
-
- With WorksheetFunction
- tDate = .Text(pDate, "YYYYMMDD")
- Website = "https://bank.gov.ua/NBU_Exchange/exchange_site"
- RequestString = Website & "?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency
- WebServiceResponse = .WebService(RequestString)
- NBU_RATE = .FilterXML(WebServiceResponse, "//rate_per_unit")
- End With
- End Function
Function NBU_RATE(ByVal pCurrency, ByVal pDate)
'moonexcel.com.ua
If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function
With WorksheetFunction
tDate = .Text(pDate, "YYYYMMDD")
Website = "https://bank.gov.ua/NBU_Exchange/exchange_site"
RequestString = Website & "?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency
WebServiceResponse = .WebService(RequestString)
NBU_RATE = .FilterXML(WebServiceResponse, "//rate_per_unit")
End With
End Function
Закройте Visual Basic Editor и вернитесь в Excel .
Теперь Вы можете вручную ввести нашу функцию NBU_RATE() . Синтаксис этой функции таков:
=NBU_RATE ( код валюты ; дата )
У нас будет такой результат:
Использование расширения
Вы также можете воспользоваться функцией NBUA() установив бесплатное расширение YouLibreCalc.xlam .
После этого данная функция будет доступна во всех файлах, которые будут открыты в Excel.