NBU 웹사이트에서 LibreOffice Calc로 환율 가져오기

YLC

Excel

NBU_RATE() 설명

LibreOffice Calc에서 NBU 환율을 자주 사용해야 하는 분들을 위해 미리 만들어진 기능입니다.

환율의 가치를 자동으로 구하는 데 도움이 됩니다. NBU 웹사이트 코드와 날짜로.

NBU_RATE 함수에 대한 BASIC 코드

NBU 환율 가져오기 기능을 추가하려면 Tools - Macros - Edit Macros... 메뉴를 열고 Module1을 선택한 후 다음 텍스트를 이 모듈에 복사하세요.

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 ( 통화 코드 ; 날짜 )

우리는 다음과 같은 결과를 얻게 될 것입니다:

YouLibreCalc 확장 프로그램 사용

확장자를 "로 설정하여 NBURATE() 함수를 사용할 수도 있습니다. YouLibreCalc.oxt ". 이후에는 LibreOffice Calc에서 열리는 모든 파일에서 이 기능을 사용할 수 있습니다.

VIDEO TUTORIAL