Сохранение копии книги при ее закрытии.

[Busine2009]

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

Или такого нельзя сделать - это из области фантастики.

[SAS888]

Вставьте в модуль "Эта книга" следующий код:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim F As String: Application.DisplayAlerts = False
    F = "D:\Temp\Копия.xls" ' Путь и имя для сохранения
    ThisWorkbook.SaveAs Filename:=F
End Sub

Естественно, подставьте требуемый путь и имя файла. При повторном закрытии исходного файла, файл "Копия.xls" будет перезаписан по умолчанию.

[sonych]

Добрый день!
Я повесил этот код на CommandButton. Все работает. Создает копию под именем, допустим, Х. А не подскажете, как сделать так, чтобы при нажатии этой кнопки, каждый раз создавалась новая копия под новым именем, допустим, Х1, Х2, Х3 и т.д. Т.е. чтобы он не перезаписывал, а создавал именно новую копию. Это очень сложно?
спасибо заранее.

[SAS888]

Чтобы при нажатии кнопки, файл копировался в указанную папку с именем: "Копия + Имя_файла + дата + время", и при этом текущее имя сохраняемого файла не изменялось, "повесьте" на кнопку код:

ThisWorkbook.SaveCopyAs Filename:="D:\Temp\Копия " & ThisWorkbook.Name & "_" & Format(Now, "dd.mm.yy_hh.mm.ss") & ".xls"

Естественно, подставьте свой путь для сохранения.

[sonych]

спасибо большое. Поставил, но ругается на dd. Пишет - «compile error»

[pivas]

Попробуйте DD, хотя скорее всего дело не в этом. Внимательно посмотрите свой код на наличие ошибок и наличие папки в которую пытаетесь сохранить файл.

[sonych]

вот он, код этот...
подскажете?

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

[pivas]

Попробуйте так:

"D:\Personal$\User\Рабочий стол\Новая папка\Заказ" & "_" & Format(Now, "dd.mm.yy_hh.mm.ss") & ".xls"

[SAS888]

Во-первых, сохраненная книга будет иметь всегда одно и то же имя: "Заказ & dd.mm.yy_hh.mm.ss.xls".
Во-вторых, имя активной рабочей книги тоже изменится.
Правильно так:

Private Sub Заказать_Click()
    F$ = "D:\Personal$\User\Рабочий стол\Новая папка\Заказ " & Format(Now, "dd.mm.yy_hh.mm.ss") & ".xls"
    ThisWorkbook.SaveCopyAs Filename:=F$
End Sub

Обратите внимание: не ThisWorkbook.SaveAs..., а ThisWorkbook.SaveCopyAs...

[sonych]

все, спасибо большое. Победили