TOP

Excel में NBU वेबसाइट से मुद्रा दरों का आयात

NBU_RATE() विवरण

उन लोगों के लिए एक रेडीमेड फ़ंक्शन जिन्हें अक्सर मुद्रा दरों का उपयोग करना पड़ता है एनबीयू में Excel .

से विनिमय दर का मूल्य स्वचालित रूप से प्राप्त करने में मदद करता है एनबीयू वेबसाइट उसके कोड और दिनांक के अनुसार।

VBA फ़ंक्शन के लिए कोड NBU_RATE

एक सुविधा जोड़ने के लिए एनबीयू की आयात विनिमय दरें , मेनू खोलें Service - Macros - विज़ुअल बेसिक एडिटर , नया मॉड्यूल डालें (मेनू Insert - Modle ) और इस फ़ंक्शन के टेक्स्ट को वहां कॉपी करें:

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

इसे बंद करें विजुअल बेसिक एडिटोर्ट और वापस लौटें Excel .

अब आप मैन्युअल रूप से हमारे फ़ंक्शन में प्रवेश कर सकते हैं NBU_RATE() . इस फ़ंक्शन का सिंटैक्स इस प्रकार है:

=NBU_RATE ( मुद्रा कोड ; तारीख )

हमारे पास निम्नलिखित परिणाम होंगे: