TOP

从 NBU 网站导入货币汇率(Excel)

NBU_RATE() 描述

为经常需要使用货币汇率的人提供现成的功能 国家大学 Excel

帮助自动获取汇率值 国立大学网站 通过其代码和日期。


VBA 函数 NBU_RATE 的代码

添加功能 NBU进口汇率 ,打开菜单 Service - Macros - Visual Basic 编辑器 , 插入新模块 (菜单 Insert - 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 ( 货币代码 ; 日期 )

我们将得到以下结果:

使用扩展

您还可以通过安装免费扩展来使用 NBUA() 函数 YouLibreCalc.xlam

此后,此功能将在Excel中打开的所有文件中可用。