为那些经常需要在 LibreOffice Calc 中使用 NBU 汇率的人提供现成的功能。
帮助自动获取汇率值 国立大学网站 通过其代码和日期。
要添加导入NBU汇率的功能,打开菜单Tools - Macros - Edit Macros...,选择Module1并将以下文本复制到该模块中:
Function NBU_RATE(ByVal pCurrency, ByVal pDate) 'moonexcel.com.ua Dim FCalc As Object If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess") tDate = FCalc.callFunction("TEXT", Array(pDate,"YYYYMMDD")) RequestString = "https://bank.gov.ua/NBU_Exchange/exchange_site?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency WebServiceResponse = FCalc.callFunction("WEBSERVICE", Array(RequestString)) NBU_RATE = FCalc.callFunction("FILTERXML", Array(WebServiceResponse,"//rate_per_unit")) End Function
关闭 Macro Editor 并返回到 LibreOffice Calc。
现在您可以手动输入我们的 NBU_RATE() 函数。该函数的语法如下:
=NBU_RATE (
我们将得到以下结果:
您还可以通过设置扩展名“来使用 NBURATE() 函数 YouLibreCalc.oxt ”。此后,该功能将在LibreOffice Calc中打开的所有文件中可用。