NBU Web サイトから Excel に通貨レートをインポート

NBU_RATE() 説明

為替レートを頻繁に使用する必要がある人向けの既製の機能 NBU で Excel 。

から為替レートの値を自動的に取得するのに役立ちます。 NBUウェブサイト コードと日付によって異なります。

関数 NBU_RATE の VBA コード

機能を追加するには NBUの輸入為替レート 、メニューを開きます Service - Macros - Visual Basic Editor 、 新しいモジュールを挿入します （メニュー 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 で開かれるすべてのファイルで使用できるようになります。