Как вставить в ячейку в excel значение курса доллара?
http://www.microsoft.ru/offext/developers/materials/material...
Умный вариант - искать веб-сервис в инете с курсом доллара.
Тупой вариант - Умный вариант - искать веб-сервис в инете с курсом доллара.
http://www.cbr.ru/scripts/XML_dynamic.asp?VAL_NM_RQ=R01235&date_req1=02/03/2001&date_req2=02/03/2001&
это самый официальный источник какой только можно придумать.
первый параметр - валюта (тут доллар)
2 - начало периода
3 - конец периода
Если тебе именно в Excel надо, то вставь такую функцию:
Тогда в любой ячейке сможешь писать формулу типа =CBR_Rate и все сработает
это самый официальный источник какой только можно придумать.
первый параметр - валюта (тут доллар)
2 - начало периода
3 - конец периода
Если тебе именно в Excel надо, то вставь такую функцию:
Public Function CBR_Rate(Optional RateDate As Date) As Double
If IsMissing(RateDate) Or RateDate < 1/1994# Then RateDate = Date
Set objxml = CreateObject("MSXML2.DOMDocument")
objxml.async = False
objxml.Load "http://www.cbr.ru/scripts/XML_dynamic.asp?" & _
"VAL_NM_RQ=R01235" & _
"&date_req1=" & Format(RateDate, "dd\/mm\/yyyy") & _
"&date_req2=" & Format(RateDate, "dd\/mm\/yyyy")
CBR_Rate = CDbl(objxml.childNodes(1).childNodes(0).childNodes(1).Text)
Set objxml = Nothing
End Function
Тогда в любой ячейке сможешь писать формулу типа =CBR_Rate и все сработает
Оставить комментарий
lena_go
Собственно - excel должен получать это значение из интернета в реальном времени.