Автоматический Ярлык xls файла

[valerij]

Есть папка, назовем ее "Заявки" в ней еще папка, назовем ее "Февраль" в ней файл с именем "На 01.02.08.xls". Создадим ярлык на Рабочий Стол от этого файла. Первого февраля будет создан новый файл "На 02.02.08.xls", второго февраля будет создан новый файл "На 03.02.08.xls" и. т. д. до конца месяца
Можно ли сделать так, что бы ярлык автоматом переключался на вновь созданные файлы?

[SAS888]

Если все в точности так, как Вы описали, предлагаю файл (см. вложение), при открытии которого откроется файл с именем, соответствующим наибольшей дате по указанному Вами пути.
Для того, чтобы изменить путь - из Excel-я откройте этот файл, удерживая клавишу "Shift" (для предотвращения автозапуска процедуры), войдите в VBE и в коде модуля "Эта книга" сделайте соответствующие исправления (комментарий в коде).
P.S. Имена рабочих файлов должны соответствовать тому шаблону, который Вы задали. Иначе Макрос их игнорирует.

[valerij]

Все разобрался, пробую, пока получилось(путь не тот был)
Так, работает, но я имел ввиду, смены названия ярлыка, был ЯРЛЫК "На 01.02.08", создал новый файл "На 02.02.08" и ЯРЛЫК автоматом переименовался.

Но тут тоже интересно.
СПАСИБО!!!

[SAS888]

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

[valerij]

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

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

Ну как обычно, открыл файл "На 01.02.08", изменил данные и выбрал Сохранить как и меняю имя на "На 02.02.08"-Сохранить. Путь, тот же.

[SAS888]

Посмотрите вложение. При первом запуске (а точнее, после первого закрытия) файла, на рабочем столе будет создан ярлык с именем этого файла. Затем, открываем файл, работаем, сохраняем (не обязательно), закрываем. Имя и ссылка ярлыка изменятся в соответствии с именем, под которым был сохранен файл.
P.S. Если Вы переместите этот код в другой VBA-проект, необходимо будет подключить "Windows Script Host Object Model" в меню VBE "Tools->References..."

[valerij]

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

войдите в VBE и в коде модуля "Эта книга" сделайте соответствующие исправления (комментарий в коде).

Сергей!
Целый год пользуюсь(#2), все супер, но я взял себе диспетчера на работу и теперь мне приходится каждый месяц ездить к нему(бо он ноль) и в ручную в коде менять месяц

FPath = "E:\Temp\Заявки\ЯНВАРЬ\" 'Подставьте Ваш путь

А как сделать автомат, кончился месяц(папки с месяцами, создам заранее или если мона, программно).

[SAS888]

Посмотрите вложение. Сначала откройте файл "OpenDate_2" удерживая нажатой клавишу Shift (для предотвращения автозапуска макроса) и в коде макроса измените путь к папке "Заявки" на требуемый. Сохраните и закройте файл.
После этого, при открытии файла "OpenDate_2" будет открываться файл по указанному пути с именем максимальной даты. Формат имен файлов "На 03.07.08" - обязательный (придуманный Вами), другие будут игнорироваться. При этом конечная папка (имя которой должно соответствовать названию любого месяца) будет переименована в месяц, соответствующий месяцу открываемого файла (т.е. максимальный).
Надеюсь, что понятно. Ну, в общем, поэкспериментируйте.
ПРИМЕЧЕНИЕ: файл "OpenDate_2" может находиться где угодно, только не в папке-месяце, т.к. переименовать папку в которой находится сам исполняемый файл невозможно.

[valerij]

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

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

Сереж
Все ок, но хотелось бы, что бы не переименовывало папку на новый месяц, а создавало папку с новым месяцем, а то все файлы месяца в куче, пусть я создам 12 папок

[SAS888]

Тогда может быть поступить гораздо проще?
При попытке сохранить файл контролировать имя файла, и если оно не соответствует шаблону, то запретить сохранение и предложить переименовать файл. А также не допускать сохранение в папку с именем месяца не соответствующему месяцу в имени файла (папки с именами всех месяцев должны быть созданы заранее).