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

[SAS888]

прога поста #2, в ней каждый новый месяц меняем путь FPath = "D:\Temp\Заявки\Январь\"

Здесь речь идет об открытии файла. А при сохранении все файлы закрыты, кроме рабочего (см. пост №19).

Повторяю возможные варианты решения Вашей задачи:
1. Поместить макрос в рабочий файл (в каждый)
2. Создать надстройку (у всех пользователей)

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

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

[valerij]

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

Повторяю возможные варианты решения Вашей задачи:
1. Поместить макрос в рабочий файл (в каждый)

Этот!!!!!!!!!!!!!!!!!!!!

[SAS888]

Посмотрите вложение. Поместите папку "2009" в любую директорию. В папке "2009\Заявки\Январь" есть файл "На 01.01.09". Откройте его и в коде макроса пропишите нужный путь (в коде есть комментарий).
Теперь, при сохранении файла, будет предложено ввести имя, после чего, файл сохранится по нужному пути (в зависимости от введенного имени).
Не верные имена просто не допускаются. Если нужно делать что-то другое при неверном вводе имени - скажите что.

[valerij]

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

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

Скачал, сообщу завтра?
Тебя уже не будет на форуме?

[SAS888]

Сегодня - нет.

[valerij]

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

Сегодня - нет.

Сергей, все в аттаче, разложил по полочкам!!!!!

[SAS888]

Посмотрите вложение. Давайте внесем ясность.

1. Поместите папку "2009" в Вашу директорию.

2. Перед началом работы нужно в файлах "OpenData_3" (который может находиться где угодно) и в файле "На 01.01.09", которая находится в "2009\Заявки\Январь" прописать путь к основной папке, например: "[Ваша_директория]\2009\Заявки" (в кодах макросов обоих файлов есть комментарии). Это нужно сделать всего один раз (не проводить же поиск по всему компьютеру ???!!!)

3. Теперь все готово. Запустите файл "OpenData_3" (можно его переименовать, создать ярлык и т.д.). Он отыщет в папке "Заявки" папку с максимальным месяцем и из нее откроет файл с максимальной датой. После чего сам закроется.

4. При попытке сохранения файла будет выведен запрос на сохранение файла с именем на 1 день больше, чем в ячейке "C3" первого листа рабочего файла (переход через месяц осуществляется корректно). Если согласиться, файл будет сохранен. Если нет - будет выведен запрос на ввод имени для сохранения (формат имени соблюдать обязательно). И в первом и во втором случае, путь (папка месяца) будет добавлен автоматически.

5. Как Вы, наверное, заметили, в папке "Заявки" только одна папка. Я ввел в код макроса проверку существования пути. И если нужной папки не существует - она будет создана.

[valerij]

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

4. запрос на сохранение файла с именем на 1 день больше, чем в ячейке "C3" первого листа рабочего файла.

Так, ни в коем случае, делать нельзя, то я тебе просто пояснял, что сегодня, я даю заявку на завтра(еще и подумал, что напрасно вставил эти строки), но это мелочи, я удалил +1, везде в коде и все ОК.

Тут такая проблема:
1. Открываем файл "На 01.01.09", в С3 ставим 2 января, а при закрытии файла, если я нажму на крест, спрашивает(стандартный вопрос) сохранить изменение в файле "На 01.01.09", Да, выскакивает форма с тем же вопросом, но уже файл "На 02.01.09", то что надо, ДА и Excel зависает. скрин п1.jpg

2. Все то же самое как и п. 1, только жму иконку Сохранить, форма выдает запрос, Да, теперь Excel не зависает, а закрывает файл, но оставляет Excel -ский интерфейс без листов! скрин п2.jpg

Заменил в коде ThisWorkbook.Close на AlleWorkbook.Close и все стало на место, все четко работает(но это если давлю на крест).
А если жму иконку Сохранить, форма выдает запрос, Да, но Excel не закрывается, ПОЧЕМУ, надо еще жать на крест.

3. Сереж, так надо, что в коде, Application.EnableEvents = True повторяется дважды, а Application.EnableEvents = False один раз?

Заменил так все стало ОК!!!!!

Было
ThisWorkbook.Close
End Sub
Стало
Application.Quit
End Sub

Удаляем .rar

[SAS888]

Было
ThisWorkbook.Close
End Sub
Стало
Application.Quit
End Sub

А какое я имею право закрывать Excel (да и Вы тоже)? А вдруг у пользователя в данный момент открыта "куча" других xls-файлов.

[valerij]

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

А вдруг у пользователя в данный момент открыта "куча" других xls-файлов.

Сергей, у моего пользователя, дай бог, что бы один xls-файл открылся!

А 3, пункт?

Сергей, как всегда, все супер и огромное СПАСИБО!!