Курсы за любой месяц года с cbr.ru

[Zhiltsov]

Всем привет!
Есть у меня макрос который достает курсы валют за текущую дату с cbr.ru. И есть макрос (спасибо SAS888, за огромную помощь) который берет курс с другого сайта, разница в макросах была следующая: марос cbr: с сайта берется значение курса валютыи вставляется в указанную ячейку. Макрос с другого сайта: тут логика такая: макрос брал всю таблицу со всеми курсами, вставлял её в новый лист, брал от туда нужные значения, копировал в лист "курсы", удалял лист. Последний макрос всем хорош, только работает очень долго и курсы берет с сайта на котором информация не всегда достоверна. Я хотел используя два этих макроса слепить свой, т.е. при выборе в ячейке а2 месяца с сайта cbr подгружались курсы за все даты выбранного месяца. Слепил, все быстро работает, только почему то не те данные вставляет, не могу понять почему, потому как с VBA на ВЫ. Help

[SAS888]

Посмотрите вложение. Выберите в выпадающем списке требуемый месяц.

[Zhiltsov]

То что нужно, спасибо.

[Zhiltsov]

Доброго времени суток!!!

Сегодня случилось нечто ужасное.

На протяжении 3-х лет все работало безукоризненно, а сегодня перестали загружаться курсы валют за текущий месяц.
Помогите пожалуйста, вложение с макросом через пост выше.

[Hugo121]

        Cells(i + 2, 2) = Replace(Mid(htmlcode, InStr(1, htmlcode, "USD") + 47, 7), ",", ".")
        Cells(i + 2, 3) = Replace(Mid(htmlcode, InStr(1, htmlcode, "EUR") + 41, 7), ",", ".")

[Hugo121]

Вообще-то я смотрю там и адрес стал попроще - теперь например
http://cbr.ru/currency_base/daily.as...req=28.02.2014
Так что и эту часть лучше в коде сразу и поправить. Кому это нужно...

[doober]

Все изменилось.
Юзайте Веб — сервис
Много различных данных можно получить

[EducatedFool]

Ничего не изменилось...

Мой макрос по-прежнему получает курсы валют:
http://excelvba.ru/code/CurrencyRate

только что сделал в одном файле без макросов (через веб-запрос, и формулу ВПР) - тоже все работает.
Ссылка для веб-запроса: http://www.cbr.ru/scripts/XML_daily.asp
(всё как и раньше)

[EducatedFool]

Может, кому пригодится:
http://excelvba.ru/programmes/RatesWorksheet

одно нажатие кнопки, - и в вашем файле автообновляемые курсы доллара и евро на текущую дату
(используется веб-запрос к сайту центробанка)