Запрос курсов с сайта НБ РБ из VBA

Для того, чтобы получать курсы НБ РБ с сайта нужно использовать следующую фукнцию (VBA)

Public Function GetKursFromNBRB(ByVal Data As Date, Optional curType As String = “USD”) As Double
Dim xmlhtp As MSXML2.XMLHTTP
Dim XMLDoc As MSXML2.DOMDocument
Dim corData As String
Set xmlhtp = New MSXML2.XMLHTTP
Set XMLDoc = New DOMDocument
corData = Replace(Format(Data, “mm/dd/yyyy”), “.”, “/”)
With xmlhtp
.Open “GET”, “http://www.nbrb.by/Services/XmlExRates.aspx?ondate=” & corData, False
.send “http://www.nbrb.by/Services/XmlExRates.aspx?ondate=” & corData
XMLDoc.LoadXML .responseText
End With
GetKursFromNBRB = Replace(XMLDoc.selectSingleNode(“/DailyExRates/Currency[CharCode = “”” & curType & “””]/Rate”).Text, “.”, “,”)
End Function

Не забываем в references включить библиотеку Microsoft XML