TOP

استيراد أسعار العملات من موقع البنك الوطني الأوكراني في Excel

NBU_RATE() الوصف

وظيفة جاهزة لأولئك الذين غالبًا ما يضطرون إلى استخدام أسعار العملات البنك الأهلي الأوكراني في Excel .

يساعد على الحصول على قيمة سعر الصرف تلقائيا من موقع البنك الوطني الأوكراني من خلال الكود والتاريخ الخاص به.

رمز VBA للوظيفة NBU_RATE

لإضافة ميزة أسعار صرف الواردات من البنك الأهلي الأوكراني ، افتح القائمة Service - Macros - محرر Visual Basic , أدخل الوحدة الجديدة (قائمة طعام Inser - 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 والعودة إلى Excel .

الآن يمكنك إدخال وظيفتنا يدويًا NBU_RATE() . بناء جملة هذه الوظيفة كما يلي:

=NBU_RATE ( رمز العملة ; تاريخ )

ستكون لدينا النتيجة التالية: