TOP

Importação de taxas de câmbio do site NBU em Excel

NBU_RATE() Descrição

Uma função pronta para quem costuma usar taxas de câmbio NBU em Excel .

Ajuda a obter automaticamente o valor da taxa de câmbio de Site da NBU por seu código e data.

VBA código para função NBU_RATE

Para adicionar um recurso taxas de câmbio de importação do NBU , abra o menu Service - Macros - Editor Visual Basic , insira o novo módulo (menu Insert - Module ) e copie o texto desta função lá:

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

Feche Editor do Visual Basic e voltar para Excel .

Agora você pode inserir manualmente nossa função NBU_RATE() . A sintaxe desta função é a seguinte:

=NBU_RATE ( código da moeda ; data )

Teremos o seguinte resultado: