Excel의 NBU 웹사이트에서 환율 가져오기

NBU_RATE() 설명

환율을 자주 사용해야 하는 분들을 위해 미리 만들어진 기능 NBU ~에 Excel .

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

NBU_RATE 함수에 대한 VBA 코드

기능을 추가하려면 NBU의 수입 환율 , 메뉴를 엽니다 Service - Macros - Visual 기본 편집기 , 새 모듈을 삽입 (메뉴 Insert - Module ) 거기에 이 함수의 텍스트를 복사합니다.

Function NBU_RATE(ByVal pCurrency, ByVal pDate)
  'moonexcel.com.ua 
  If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function
  
  With WorksheetFunction
    tDate = .Text(pDate, "YYYYMMDD")
    Website = "https://bank.gov.ua/NBU_Exchange/exchange_site"
    RequestString = Website & "?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency
    WebServiceResponse = .WebService(RequestString)
    NBU_RATE = .FilterXML(WebServiceResponse, "//rate_per_unit")
  End With
End Function

닫아 Visual Basic Editor 그리고로 돌아간다 Excel .

이제 수동으로 기능을 입력할 수 있습니다 NBU_RATE() . 이 함수의 구문은 다음과 같습니다.

=NBU_RATE ( 통화 코드 ; 날짜 )

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

확장 프로그램 사용

무료 확장 프로그램을 설치하여 NBUA() 함수를 사용할 수도 있습니다. YouLibreCalc.xlam .

그 후에는 Excel에서 열리는 모든 파일에서 이 기능을 사용할 수 있습니다.