Gotowa funkcja dla tych, którzy często muszą korzystać z kursów wymiany NBU w LibreOffice Calc.
Pomaga automatycznie uzyskać wartość kursu wymiany z stronie internetowej NBU według kodu i daty.
Aby dodać funkcję importu kursów walut NBU należy otworzyć menu Tools - Macros - Edit Macros..., wybrać Module1 i skopiować do tego modułu poniższy tekst:
Function NBU_RATE(ByVal pCurrency, ByVal pDate) 'moonexcel.com.ua Dim FCalc As Object If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess") tDate = FCalc.callFunction("TEXT", Array(pDate,"YYYYMMDD")) RequestString = "https://bank.gov.ua/NBU_Exchange/exchange_site?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency WebServiceResponse = FCalc.callFunction("WEBSERVICE", Array(RequestString)) NBU_RATE = FCalc.callFunction("FILTERXML", Array(WebServiceResponse,"//rate_per_unit")) End Function
Zamknij Macro Editor i wróć do LibreOffice Calc.
Teraz możesz ręcznie wprowadzić naszą funkcję NBU_RATE(). Składnia tej funkcji jest następująca:
=NBU_RATE (
Będziemy mieli następujący wynik:
Możesz także użyć funkcji NBURATE(), ustawiając rozszerzenie „ YouLibreCalc.oxt ". Następnie ta funkcja będzie dostępna we wszystkich plikach, które zostaną otwarte w LibreOffice Calc.