Import von Wechselkursen von der NBU-Website in LibreOffice Calc

NBU_RATE() Beschreibung

Eine vorgefertigte Funktion für diejenigen, die häufig Währungskurse verwenden müssen NBU In LibreOffice Calc .

Hilft dabei, automatisch den Wert des Wechselkurses zu ermitteln NBU-Website nach Code und Datum.

StarBASIC Code für Funktion NBU_RATE

Um eine Funktion hinzuzufügen Importwechselkurse der NBU , öffnen Sie das Menü Tools - Macros - Edit Macros... , wählen 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ße es Macro Editor und zurück zu LibreOffice Calc .

Jetzt können Sie unsere Funktion manuell eingeben NBU_RATE() . Die Syntax dieser Funktion lautet wie folgt:

=NBU_RATE ( Währungscode ; Datum )

Wir werden folgendes Ergebnis haben:

Verwendung der Erweiterung

Sie können auch die Funktion NBUA() verwenden, indem Sie die kostenlose Erweiterung installieren YouLibreCalc.oxt oder die Vollversion YLC_Utilities.oxt .

Danach steht diese Funktion in allen Dateien zur Verfügung, die in LibreOffice Calc geöffnet werden.