Eine vorgefertigte Funktion für diejenigen, die häufig NBU-Wechselkurse in LibreOffice Calc verwenden müssen.
Hilft dabei, automatisch den Wert des Wechselkurses zu ermitteln NBU-Website nach Code und Datum.
Um die Funktion zum Importieren von NBU-Wechselkursen hinzuzufügen, öffnen Sie das Menü Tools - Macros - Edit Macros..., wählen Sie Module1 und kopieren Sie den folgenden Text in dieses Modul:
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
Schließen Sie Macro Editor und kehren Sie zu LibreOffice Calc zurück.
Jetzt können Sie unsere Funktion NBU_RATE() manuell eingeben. Die Syntax dieser Funktion lautet wie folgt:
=NBU_RATE (
Wir werden folgendes Ergebnis haben:
Sie können die Funktion NBURATE() auch verwenden, indem Sie die Erweiterung „ YouLibreCalc.oxt ". Danach ist diese Funktion in allen Dateien verfügbar, die in LibreOffice Calc geöffnet werden.