Здравствуйте,
Наткнулся на великолепный макрос, который позволяет в две секунды выгрузить курс доллара с сайта ЦБ РФ на любую дату:
Наткнулся на великолепный макрос, который позволяет в две секунды выгрузить курс доллара с сайта ЦБ РФ на любую дату:
Код |
---|
Sub GetUSD() Dim xmldoc, nodeList On Error Resume Next Set xmldoc = CreateObject("Msxml.DOMDocument"): xmldoc.async = False If Not xmldoc.Load("http://www.cbr.ru/scripts/XML_daily.asp?date_req=" & _ Format(InputBox("Введите дату в формате ДД.ММ.ГГГГ", "Курс доллара", Date), "dd\/mm\/yyyy")) Then Exit Sub Set nodeList = xmldoc.SelectNodes("//Valute[@ID='R01235']") If nodeList.Length Then ActiveCell.Value = CDbl(nodeList.Item(0).ChildNodes(4).Text) End Sub |
Но мне необходимо в том числе и евро. Хочу, чтобы помимо даты, макрос запрашивал и валюту: евро или доллар, а дальше как обычно, помогите дополнить код, пожалуйста.
Буду очень признателен за помощь.