Import kursów walut ze strony NBU w Excel

NBU_RATE() Opis

Gotowa funkcja dla tych, którzy często muszą korzystać z kursów walut NBU W Excel .

Pomaga automatycznie uzyskać wartość kursu wymiany z stronie internetowej NBU według kodu i daty.

VBA kod funkcji NBU_RATE

Aby dodać funkcję kursy walut importowych NBU , otwórz menu Service - Macros - Visual Basic Editor , włóż nowy moduł (menu Insert - Module ) i skopiuj tam tekst tej funkcji:

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

Zamknij to Edytor Visual Basic i wróć do Excel .

Teraz możesz ręcznie wprowadzić naszą funkcję NBU_RATE() . Składnia tej funkcji jest następująca:

=NBU_RATE ( kod waluty ; data )

Będziemy mieli następujący wynik:

Korzystanie z rozszerzenia

Możesz także użyć funkcji NBUA(), instalując bezpłatne rozszerzenie YouLibreCalc.xlam .

Następnie ta funkcja będzie dostępna we wszystkich plikach, które zostaną otwarte w Excel.