|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.03.2015, 17:18 | #1 |
Форумчанин
Регистрация: 08.06.2009
Сообщений: 179
|
импорт курсов валют с сайта НБУ
Добрый день. У меня есть готовый код программы импорта курсов валют с сайта НБУ (Украина) (сайт "http://moonexcel.com.ua/kurs-nbu_ua"). Но эта функция почему-то не работает (хотя месяц назад работала). Подскажите, пожалуйста, в чем проблема.
Код:
|
05.03.2015, 23:38 | #2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Немного сократил код.
Код:
Анализ,обработка данных Недорого
Последний раз редактировалось doober; 05.03.2015 в 23:42. |
06.03.2015, 11:14 | #3 |
Форумчанин
Регистрация: 08.06.2009
Сообщений: 179
|
Спасибо, Сергей
|
20.09.2016, 22:33 | #4 |
Новичок
Джуниор
Регистрация: 20.09.2016
Сообщений: 1
|
Привет. Подскажите, почемо макрос не работает? Вставил ваш код, а курс не видает.
|
20.09.2016, 22:52 | #5 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код рабочий
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
26.09.2016, 16:29 | #6 |
Форумчанин
Регистрация: 24.01.2011
Сообщений: 136
|
|
09.03.2017, 11:49 | #7 |
Новичок
Джуниор
Регистрация: 13.02.2017
Сообщений: 1
|
Добрый день ! при обновлении курса на дату выдает 0 !!! подскажите в чем может быть причина
Function NBU_RATE(sCurr$, iiDate As Date) Dim sURI As String Dim oHttp As Object Dim htmlcode As String sURI = "http://bank.gov.ua/control/uk/curmetal/currency/search?formType=" & _ "searchFormDate&time_step=daily&dat e=" & iiDate & "&execute" On Error Resume Next Set oHttp = CreateObject("MSXML2.XMLHTTP") If Err.Number <> 0 Then Set oHttp = CreateObject("MSXML.XMLHTTPRequest" ) End If If oHttp Is Nothing Then Exit Function On Error GoTo ConnectionError oHttp.Open "GET", sURI, False oHttp.Send htmlcode = Replace(Replace(oHttp.responseText, vbTab, ""), vbCrLf, "") bRes = False Set RegExp = CreateObject("VBScript.RegExp") RegExp.Pattern = "<tr>\s{1,}<td[^>]*>" & sCurr & "</td>\s{1,}" & _ "<td[^>]*>(.+?)</td>\s{1,}" & _ "<td[^>]*>([0-9]+)</td>\s{1,}" & _ "<td[^>]*>(.+?)</td>\s{1,}" & _ "<td[^>]*>([0-9\.]+)</td>" bRes = RegExp.test(htmlcode) If bRes Then Set oMatches = RegExp.Execute(htmlcode) NBU_RATE = Val(oMatches(0).subMatches(3)) / oMatches(0).subMatches(1) Exit Function End If Exit Function ConnectionError: End Function |
09.03.2017, 12:00 | #8 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Сравни строки:
Исходник: Код:
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
05.05.2017, 07:44 | #9 |
Новичок
Джуниор
Регистрация: 05.05.2017
Сообщений: 2
|
здравствуйте.
Пишу сюда так как тут суть вопроса очень близка к моей возникшей проблемы. Излагаю суть проблемы. не знаю и не могу импортировать курс биткоина в эксель таблицу с какой либо биржы или сайта, сколько не старался и не пытался. Курс доллара импортировал без труда с сайта ЦБ РФ в эксель файл, теперь при открытие файла у меня актуальный курс отображается. Прошу помочь и разъяснить как это сделать уже с биткоином. За ранее спасибо за помощь |
05.05.2017, 09:45 | #10 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Добрый день.
Покажите в чём разница - а то пока никакой разницы не вижу
webmoney: E265281470651 Z422237915069 R418926282008
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Фрактальный анализ курсов валют | N@stya | Фриланс | 4 | 01.06.2014 12:16 |
Обновление курсов валют | Che Guevara | PHP | 1 | 10.02.2012 12:38 |
Скрипт для загрузки курсов валют с сайта http://www.rbc.ua/ | ARseny | PHP | 0 | 07.06.2008 22:16 |
Загрузка курсов валют с сайта | Paul Hindenburg | Работа с сетью в Delphi | 1 | 25.05.2008 20:48 |
Загрузка курсов валют | 69angel69 | Microsoft Office Excel | 3 | 09.04.2008 20:44 |