автосохранение файла каждые 15 минут

[kzld]

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

[VictorM]

Сама процедура может быть такой

Sub SaveWorkbook()
    Dim wb As Workbook, wbName As String
    Set wb = Excel.Application.ActiveWorkbook
    ph = ActiveWorkbook.Path
    имя = Format(Now, "dd/mm/yy_hh.mm")
    wbName = wb.Name
    wb.SaveCopyAs (ph & "\Архив\" & Left(wbName, Len(wbName) - 4) & "_" & имя & ".xls")
End Sub

В папке Архив (которую нужно предварительно создать!) будет вот такая копия Магазин1_13.12.10_11.47.xls
А каждые 15 мин, недавно было, посмотрите по поиску, таймер.
Вот нашел, где-то так:

Sub NextTime()
    Application.OnTime Now + TimeSerial(0, 15, 0), "NextTime"    'здесь выставить нужное время
    Call SaveWorkbook
End Sub

NextTime запускайте при открвтии книги Workbook_Open

[kzld]

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

Сама процедура может быть такой

Sub SaveWorkbook()
    Dim wb As Workbook, wbName As String
    Set wb = Excel.Application.ActiveWorkbook
    ph = ActiveWorkbook.Path
    имя = Format(Now, "dd/mm/yy_hh.mm")
    wbName = wb.Name
    wb.SaveCopyAs (ph & "\Архив\" & Left(wbName, Len(wbName) - 4) & "_" & имя & ".xls")
End Sub

Вручную получилось, а как вставить период сохранения

А каждые 15 мин, недавно было, посмотрите по поиску, таймер.
Вот нашел, где-то так:

Sub NextTime()
    Application.OnTime Now + TimeSerial(0, 15, 0), "NextTime"    'здесь выставить нужное время
    Call SaveWorkbook
End Sub

NextTime запускайте при открвтии книги Workbook_Open

А как здесь вставить путь для сохранения и уникальное имя.
И что значит
NextTime запускайте при открвтии книги Workbook_Open
Прошу обьяснить популярнее, для чайника

[VictorM]

Путь здесь уже прописан, папка рабочей книги, папка Архив.
Я предыдущий пост немного добавил.
И так же получается уникальное имя, вида :
Название файла (без расширения)_дата_время.

[VictorM]

NextTime запускайте при открвтии книги Workbook_Open

Прошу обьяснить популярнее, для чайника

В модуле Эта книга поместите код

Private Sub Workbook_Open()
   Call NextTime
End Sub

Этим Вы будете запускать таймер при открытии рабочей книги.

[VictorM]

Добавлю
Если написать так

Private Sub Workbook_Open()
   Call SaveWorkbook
   Call NextTime
End Sub

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