TOP

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

NBU_RATE() Описание

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

Помогает автоматически получать значение курса валюты с сайта НБУ по ее коду и дате.


VBA код для функции NBU_RATE

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

  1. Function NBU_RATE(ByVal pCurrency, ByVal pDate)  
  2.   'moonexcel.com.ua   
  3.   If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function  
  4.     
  5.   With WorksheetFunction  
  6.     tDate = .Text(pDate, "YYYYMMDD")  
  7.     Website = "https://bank.gov.ua/NBU_Exchange/exchange_site"  
  8.     RequestString = Website & "?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency  
  9.     WebServiceResponse = .WebService(RequestString)  
  10.     NBU_RATE = .FilterXML(WebServiceResponse, "//rate_per_unit")  
  11.   End With  
  12. End Function  

Закройте Visual Basic Editor и вернитесь в Excel .

Теперь Вы можете вручную ввести нашу функцию NBU_RATE() . Синтаксис этой функции таков:

=NBU_RATE ( код валюты ; дата )

У нас будет такой результат:

Использование расширения

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