Добрый день нашел в эксель пример отличный работающий вот только нужно его переделать на другую нац валюту. помогите пожалуйста переделать макрос. на этот http://www.nbt.tj/tj/kurs/kurs.php сайт если конечно это возможно.
Option Explicit
Dim dic As Object
Function НБТ(Optional ByVal Curr$, Optional id$, Optional ByVal dDate As Date) As Currency
Dim arr() As Variant, d$, url$
If dic Is Nothing Then Set dic = CreateObject("scripting.dictionary")
d = "&date=" & Format(IIf(dDate, dDate, Date), "yyyy-mm-dd")
url = "http://www.nbt.tj/ru/kurs/export_xml.php?export=xmlout" & d
With CreateObject("msxml.DOMDocument")
If IsEmpty(dic(url)) Then
.async = 0: .Load url: dic(url) = .xml
Else: .LoadXML dic(url)
End If
With .SelectSingleNode("//Valute[(CharCode='" & Curr & "')or(@ID='" & id & "')]")
НБТ = CCur(Val(.SelectSingleNode("Value").Text)) / .SelectSingleNode("Nominal").Text
End With
End With
End Function