Döviz kurlarının NBU web sitesinden LibreOffice Calc'a aktarılması

YLC

Excel

NBU_RATE() Açıklama

LibreOffice Calc'de NBU döviz kurlarını sıklıkla kullanmak zorunda kalanlar için hazır bir işlev.

Döviz kurunun değerini otomatik olarak elde etmeye yardımcı olur NBU web siteleri koduna ve tarihine göre.

BASIC işlevi için kod NBU_RATE

NBU döviz kurlarını içe aktarma işlevini eklemek için Tools - Macros - Edit Macros... menüsünü açın, Module1'yi seçin ve aşağıdaki metni bu modüle kopyalayın:

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'u kapatın ve LibreOffice Calc'ye dönün.

Artık NBU_RATE() fonksiyonumuzu manuel olarak girebilirsiniz. Bu fonksiyonun sözdizimi aşağıdaki gibidir:

=NBU_RATE ( para birimi kodu ; tarih )

Aşağıdaki sonuca sahip olacağız:

YouLibreCalc uzantısını kullanma

"NBURATE() işlevini" uzantısını ayarlayarak da kullanabilirsiniz. YouLibreCalc.oxt ". Bundan sonra LibreOffice Calc'de açılacak tüm dosyalarda bu fonksiyon mevcut olacaktır.

VIDEO TUTORIAL