Здравствуйте,
Наткнулся на великолепный макрос, который позволяет в две секунды выгрузить курс доллара с сайта ЦБ РФ на любую дату:
Наткнулся на великолепный макрос, который позволяет в две секунды выгрузить курс доллара с сайта ЦБ РФ на любую дату:
| Код |
|---|
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 |
Но мне необходимо в том числе и евро. Хочу, чтобы помимо даты, макрос запрашивал и валюту: евро или доллар, а дальше как обычно, помогите дополнить код, пожалуйста.
Буду очень признателен за помощь.
