TOP

NBU web sitesinden Excel'deki döviz kurlarının içe aktarılması

NBU_RATE() Açıklama

Sık sık döviz kurlarını kullanmak zorunda kalanlar için hazır bir işlev NBU içinde Excel .

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

VBA işlevi için kod NBU_RATE

Özellik eklemek için NBU ithalat döviz kurları , menüyü aç Service - Macros - Visual Basic Düzenleyici , yeni modülü takın (menü Insert - Module ) ve bu işlevin metnini buraya kopyalayın:

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

Kapat onu Visual Basic Düzenleyici ve geri dön Excel .

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

=NBU_RATE ( para birimi kodu ; tarih )

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