Для того, чтобы получать курсы НБ РБ с сайта нужно использовать следующую фукнцию (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”), “.”, […]