Макросом с ИНТЕРНЕТА - Microsoft Office Excel - Страница 2

Hugo121 · 05.08.2010, 15:47

Сформируй строку адреса из нужной даты, потом в полученном тексте ищешь USD или что там надо, и на определённой позиции правее будет курс. В принципе всё как в примере. В редакторе VBA Debug.print sHtmlCode и анализируй, что выдало и как с помощью InStr() найти нужный курс.
Писать код сейчас нет времени.

EducatedFool · 05.08.2010, 15:51

Цитата:

Сообщение от sasha_prof

Выложите пжл код а то у меня первый сайт заблокирован(

Как это заблокирован? Кем?
Объясните подробнее, если не секрет

sasha_prof · 05.08.2010, 16:04

Цитата:

Сообщение от EducatedFool

Как это заблокирован? Кем?
Объясните подробнее, если не секрет

Работниками IT Деппартамента)))

sasha_prof · 05.08.2010, 16:57

В коде который в даный вами экселе:
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/"

И не работает(((

Hugo121 · 05.08.2010, 17:02

Надеюсь, на

Код:

http://tables.finance.ua/ru/currency/official/~/1/2010/08/04/

?

Проверил, работает. И кстати там в тексте красиво так:
<td colspan="6" class="summary">Рассчет на 04.08.2010: <b>1 USD = 7.8916 UAH</b></td>

sasha_prof · 05.08.2010, 17:20

Цитата:

Сообщение от Hugo121

Надеюсь, на

Код:

http://tables.finance.ua/ru/currency/official/~/1/2010/08/04/

?

Проверил, работает. И кстати там в тексте красиво так:
<td colspan="6" class="summary">Рассчет на 04.08.2010: <b>1 USD = 7.8916 UAH</b></td>

ага вставил этот. Курсы нахди но не обрабатывает вот этим макросом

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)

Hugo121 · 05.08.2010, 17:32

Ну так конечно, тут надо типа
sDollarRate = Mid(sHtmlCode, InStr(sHtmlCode, "1 USD =")+8, 6)
Может ошибся на пару позиций, не проверял.
Можно взять чуть больше вправо и затем отрезать только цифры. Вдруг курс изменитися до 789.1623456

sasha_prof · 05.08.2010, 18:18

Ребята всем спасибо всё работает

05.08.2010, 15:47	#11
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Сформируй строку адреса из нужной даты, потом в полученном тексте ищешь USD или что там надо, и на определённой позиции правее будет курс. В принципе всё как в примере. В редакторе VBA Debug.print sHtmlCode и анализируй, что выдало и как с помощью InStr() найти нужный курс. Писать код сейчас нет времени. webmoney: E265281470651 Z422237915069 R418926282008 Последний раз редактировалось Hugo121; 05.08.2010 в 15:51.

05.08.2010, 17:02	#15
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Надеюсь, на Код: `http://tables.finance.ua/ru/currency/official/~/1/2010/08/04/` ? Проверил, работает. И кстати там в тексте красиво так: <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:32	#17
Hugo121 Старожил Регистрация: 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.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Архивировать макросом	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

05.08.2010, 16:57	#14
sasha_prof Форумчанин Регистрация: 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, 18:18	#18
sasha_prof Форумчанин Регистрация: 06.01.2010 Сообщений: 292	Ребята всем спасибо всё работает