从 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中打开的所有文件中可用。