Importazione dei tassi di cambio dal sito web della NBU in Excel

NBU_RATE() Descrizione

Una funzione già pronta per coloro che devono utilizzare spesso i tassi di cambio NBU In Excel .

Aiuta a ottenere automaticamente il valore del tasso di cambio Sito web dell'NBU dal suo codice e dalla data.

VBA codice per la funzione NBU_RATE

Per aggiungere una funzionalità tassi di cambio delle importazioni della NBU , aprire il menu Service - Macros - Visual Basic Editor , inserire il nuovo modulo (menu Insert - Module ) e copia lì il testo di questa funzione:

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

Chiudilo Visual Basic Editor e tornare a Excel .

Ora puoi accedere manualmente alla nostra funzione NBU_RATE() . La sintassi di questa funzione è la seguente:

=NBU_RATE ( codice valuta ; data )

Avremo il seguente risultato:

Utilizzando l'estensione

Puoi anche utilizzare la funzione NBUA() installando l'estensione gratuita YouLibreCalc.xlam .

Successivamente, questa funzione sarà disponibile in tutti i file che verranno aperti in Excel.