Імпорт курсів валют з сайту НБУ в Excel

NBU_RATE() Опис

Готова функція для тих, кому часто приходиться використовувати курси валют НБУ в Excel.

Допомагає автоматично отримувати значення курсу валюти з сайту НБУ по її коду та даті.

VBA код для функції NBU_RATE

Щоби добавити функцію імпорту курсів валют НБУ, відкрийте меню Service - Macros - Visual Basic Editor, вставте новий модуль (меню Insert - Module) і скопіюйте туди текст цієї функції:

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.