|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
03.06.2009, 05:38 | #1 |
Новичок
Джуниор
Регистрация: 23.05.2009
Сообщений: 167
|
Сохранение копии книги при ее закрытии.
Как можно сделать так, чтобы при нажатии на крестик в правом верхнем углу, книга закрывалась и создавалась ее копия в определенном месте на жестком диске.
Или такого нельзя сделать - это из области фантастики. |
03.06.2009, 05:49 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Вставьте в модуль "Эта книга" следующий код:
Код:
Чем шире угол зрения, тем он тупее.
|
11.06.2009, 09:57 | #3 |
Регистрация: 09.06.2009
Сообщений: 8
|
Добрый день!
Я повесил этот код на CommandButton. Все работает. Создает копию под именем, допустим, Х. А не подскажете, как сделать так, чтобы при нажатии этой кнопки, каждый раз создавалась новая копия под новым именем, допустим, Х1, Х2, Х3 и т.д. Т.е. чтобы он не перезаписывал, а создавал именно новую копию. Это очень сложно? спасибо заранее. |
11.06.2009, 10:25 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Чтобы при нажатии кнопки, файл копировался в указанную папку с именем: "Копия + Имя_файла + дата + время", и при этом текущее имя сохраняемого файла не изменялось, "повесьте" на кнопку код:
Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 11.06.2009 в 10:28. |
11.06.2009, 11:07 | #5 |
Регистрация: 09.06.2009
Сообщений: 8
|
спасибо большое. Поставил, но ругается на dd. Пишет - «compile error»
|
11.06.2009, 11:16 | #6 |
Форумчанин
Регистрация: 03.04.2009
Сообщений: 412
|
Попробуйте DD, хотя скорее всего дело не в этом. Внимательно посмотрите свой код на наличие ошибок и наличие папки в которую пытаетесь сохранить файл.
|
11.06.2009, 11:27 | #7 |
Регистрация: 09.06.2009
Сообщений: 8
|
вот он, код этот...
подскажете? Private Sub Заказать_Click() Dim F As String: Application.DisplayAlerts = False F = "D:\Personal$\User\Рабочий стол\Новая папка\Заказ & dd.mm.yy_hh.mm.ss.xls" ' Путь и имя для сохранения ThisWorkbook.SaveAs Filename:=F End Sub |
11.06.2009, 11:32 | #8 |
Форумчанин
Регистрация: 03.04.2009
Сообщений: 412
|
Попробуйте так:
Код:
|
11.06.2009, 11:38 | #9 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Во-первых, сохраненная книга будет иметь всегда одно и то же имя: "Заказ & dd.mm.yy_hh.mm.ss.xls".
Во-вторых, имя активной рабочей книги тоже изменится. Правильно так: Код:
Чем шире угол зрения, тем он тупее.
|
11.06.2009, 11:41 | #10 |
Регистрация: 09.06.2009
Сообщений: 8
|
все, спасибо большое. Победили
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автозапуск макроса при открытии и закрытии книги | ruavia3 | Microsoft Office Excel | 8 | 06.04.2009 11:09 |
Как выполнить действие при закрытии Книги? | valerij | Microsoft Office Excel | 9 | 12.03.2009 15:31 |
При закрытии книги, удаляются листы | Romuald | Microsoft Office Excel | 3 | 20.01.2009 21:34 |
Как в Adobe Reader 8 отключить сохранение копии? | Mikalai | Софт | 0 | 14.03.2008 14:48 |