макрос обновления данных из интернета

[Legame]

добрый вечер,

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

Необходимо реализовать макрос обновления курсов валют(доллар США, евро) при открытии книги в определенную ячейку выбранную изначально на главном листе. а также помимо этого дополнительная кнопка - по результатам действий которой будет обновлен курс валют.

прикладываю файл:
rates.xls
в файле постарался максимально возможно описать требуемую реализацию...

если не трудно - помогите, плиз!!!

[SAS888]

Посмотрите вложение.

[Legame]

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

Посмотрите вложение.

SAS, добрый день
спасибо Вам за рещение этой задачи.


есть еще маленькие просьбы, поможете?
1. вы не могли бы объяснить действие этого набора функций и параметров
Sheets("rates").[B3] = CDbl(Split([F3], " ")(0)): Sheets("rates").[B4] = CDbl(Split([F5], " ")(0))

2. каким образом и где найти форму кнопки (в редакторе она почему не отображается)

3. при попытке обновить курсы - если отсутствует подключение к интернету, то выводить соответствующее сообщение об этом

[SAS888]

1. При создании Web-запроса, создается временный новый лист, в который вставляются требуемые данные. После этой процедуры, в ячейке "F3" этого листа, получим значение курса доллара. В этой же ячейке, через пробел будет (может) присутствовать слово "down" или "up" и еще через один пробел цифра - на сколько упал (поднялся) доллар. Строка кода

Sheets("rates").[B3] = CDbl(Split([F3], " ")(0))

означает: в ячейку "B3" листа "rates" поместить преобразованное в тип "Double" значение первого (по умолчанию нулевого) элемента массива, полученного из значения ячейки "F3" активного (в данном случае - временно созданного) листа, где каждый элемент массива - фрагмент текста, разделенного пробелом. Т.е. фрагмент текста ячейки "F3" до первого пробела. Аналогично для евро: ячейки "B4" листа "rates" и "F5" временного листа.
2. В приложении используется элемент управления "Кнопка" из панели инструментов "Элементы управления". Откройте эту панель, войдите в "Режим конструктора" и получите доступ к свойствам этого элемента (это в Excel 2003).
3. Ваше пожелание

при попытке обновить курсы - если отсутствует подключение к интернету, то выводить соответствующее сообщение об этом

реализовано в следующем вложении.

[Legame]

Огромное спасибо Вам, SSAS888 !!!

[yuretsnsk]

а сложно ли будет написать макрос для обновления курса в зависимости от даты?
т.е. в одной ячейке вручную ставится дата, а в двух других курсы на эту дату (доллар и евро)

[SAS888]

Посмотрите пример во вложении.

[hamlook]

Я и не знал о таких возможностях Excel !!!
Попробовал применить к своей задаче - ничего не получилось. Создается новый лист, но пустой. Подскажите как сделать.
Для примера выкладываю часть исходных данных, которые я получаю в сети и часть своей сводной таблицы.
Необходимо из п.1 скопировать значение "Показаний" в F4, F5, F6 (взависимости от времени), из п.3 - в F8, F9, F10 и т.д.

[hamlook]

Ну все таки у меня что то получилось...
Возникло две проблемы:
1. Когда создается временный лист, ему дается имя "Лист1". Я действие макроса прописал относительно этого имени. Но если запустить макрос заново - создается "Лист2" и выходит ошибка. Приходится перезапускать файл.
Где нужно прописать создание временного листа с определенным именем?
2. При закрытии файла выходит сообщение такого рода

Как от него избавится? Безопасность стоит на низком уровне.

[SAS888]

Где нужно прописать создание временного листа с определенным именем?

Создать новый лист и присвоить ему имя можно так:

Sheets.Add.Name = "Имя_листа"

Но тогда нужно либо проверять, не существует ли уже лист с этим именем, либо, т.к. лист временный, то перед созданием листа, можно безусловно его удалять, при этом отключив обработчик ошибок (на случай, если лист не существует) и всплывающие предупреждения Excel. Т.е. так:

Application.DisplayAlerts = False
On Error Resume Next: Sheets("Имя_листа").Delete: On Error GoTo 0
Sheets.Add.Name = "Имя_листа"

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

При закрытии файла выходит сообщение такого рода...
Как от него избавится? Безопасность стоит на низком уровне.

В "Сервис - Параметры - Безопасность" снимите флажок опции "Удалять личные сведения из свойств файла при сохранении". А так же, на всякий случай, первой строкой кода вставьте "Application.DisplayAlerts = False".