|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.08.2010, 15:47 | #11 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Сформируй строку адреса из нужной даты, потом в полученном тексте ищешь USD или что там надо, и на определённой позиции правее будет курс. В принципе всё как в примере. В редакторе VBA Debug.print sHtmlCode и анализируй, что выдало и как с помощью InStr() найти нужный курс.
Писать код сейчас нет времени.
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 05.08.2010 в 15:51. |
05.08.2010, 15:51 | #12 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Как это заблокирован? Кем?
Объясните подробнее, если не секрет |
05.08.2010, 16:04 | #13 |
Форумчанин
Регистрация: 06.01.2010
Сообщений: 292
|
|
05.08.2010, 16:57 | #14 |
Форумчанин
Регистрация: 06.01.2010
Сообщений: 292
|
В коде который в даный вами экселе:
sURL = "http://cbr.ru/currency_base/daily.aspx?C_month=" & _ sMonth & "&C_year=" & sYear & "&date_req=" & sDay & "%2F" & sMonth & "%2F" & sYear меняю на код прямой: sURL = "http://tables.finance.ua/ru/currency.../1/2010/08/04/" И не работает((( |
05.08.2010, 17:02 | #15 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Надеюсь, на
Код:
Проверил, работает. И кстати там в тексте красиво так: <td colspan="6" class="summary">Рассчет на 04.08.2010: <b>1 USD = 7.8916 UAH</b></td>
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 05.08.2010 в 17:06. |
05.08.2010, 17:20 | #16 | |
Форумчанин
Регистрация: 06.01.2010
Сообщений: 292
|
Цитата:
sDollarRate = Mid(sHtmlCode, InStr(InStr(1, sHtmlCode, "USD"),sHtmlCode, "</td></tr>") - 10, 20) sEuroRate = Mid(sHtmlCode, InStr(InStr(1, sHtmlCode, "EUR"),sHtmlCode, "</td></tr>") - 10, 20) |
|
05.08.2010, 17:32 | #17 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну так конечно, тут надо типа
sDollarRate = Mid(sHtmlCode, InStr(sHtmlCode, "1 USD =")+8, 6) Может ошибся на пару позиций, не проверял. Можно взять чуть больше вправо и затем отрезать только цифры. Вдруг курс изменитися до 789.1623456
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 05.08.2010 в 17:38. |
05.08.2010, 18:18 | #18 |
Форумчанин
Регистрация: 06.01.2010
Сообщений: 292
|
Ребята всем спасибо всё работает
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Архивировать макросом | sasha_prof | Microsoft Office Excel | 1 | 18.06.2010 12:45 |
б.д и запуск с макросом | neprogrammist | Microsoft Office Access | 0 | 10.05.2010 18:29 |
Помогите с макросом | Romuald | Microsoft Office Excel | 23 | 05.02.2009 11:51 |
хелп с макросом | Aivar | Microsoft Office Word | 8 | 28.09.2008 02:10 |
Помогите с макросом | SoFuWa | Microsoft Office Excel | 7 | 15.08.2008 15:26 |