NBU Web サイトから LibreOffice Calc への為替レートのインポート

NBU_RATE() 説明

為替レートを頻繁に使用する必要がある人向けの既製の機能 NBU で LibreOffice Calc 。

から為替レートの値を自動的に取得するのに役立ちます。 NBUウェブサイト コードと日付によって異なります。

StarBASIC 関数のコード NBU_RATE

機能を追加するには NBUの輸入為替レート 、メニューを開きます Tools - Macros - Edit Macros... 、 選択する モジュール1 次のテキストをこのモジュールにコピーします。

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

閉じてください Macro Editor そして、に戻ります LibreOffice Calc 。

これで関数を手動で入力できるようになりました NBU_RATE() 。この関数の構文は次のとおりです。

=NBU_RATE ( 通貨コード ; 日付 )

次の結果が得られます。

拡張機能の使用

無料の拡張機能をインストールすると、NBUA() 関数を使用することもできます。 YouLibreCalc.oxt またはそのフル機能バージョン YLC_ユーティリティ.oxt 。

その後、この関数は LibreOffice Calc で開かれるすべてのファイルで使用できるようになります。