Макрос на выгрузку курса валют с ЦБ РФ

Макрос на выгрузку курса валют с ЦБ РФ, Усовершенствование приема

Пользователь

Сообщений: 223 Регистрация: 25.01.2018

29.06.2018 02:16:25

Здравствуйте,

Наткнулся на великолепный макрос, который позволяет в две секунды выгрузить курс доллара с сайта ЦБ РФ на любую дату:

Код

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=&quot; & _
        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

Но мне необходимо в том числе и евро. Хочу, чтобы помимо даты, макрос запрашивал и валюту: евро или доллар, а дальше как обычно, помогите дополнить код, пожалуйста.
Буду очень признателен за помощь.

Игорь Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#2 29.06.2018 04:46:08 а погуглить не пробовали? https://excelvba.ru/code/CurrencyRate Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему