Помогите автоматизировать

[PVAOD]

1 - Как научить Excel самому сохранять каждый новый документ под именем с номером на 1 единицу больше предыдущего документа? Например, уже сохранены файлы 01.xls, 02.xls, 03.xls и надо сохранять следующие под именами 04.xls, 05.xls и т.д.

2 - Как на Рабочем Листе Нового документа автоматически проставлять число на 1 единицу больше, чем в закрытом только что документе? Например, открываем Новый документ (из шаблона моего бланка), на Рабочем Листе проставляется число, скажем, 10. Сохраняем документ (автоматически присвоив ему имя 10.xls), открываем Новый документ, а у него на Рабочем Листе автоматически проставлено 11.
Научите, пожалуйста, как это сделать.

[EducatedFool]

Сделать это несложно.

Но надо знать, что Вы подразумеваете под шаблоном.
Если это обычный файл excel, который Вы открываете и сохраняете сразу же под другим именем для создания копии - это одно (тут несложно всё сделать макросом)

Если же шаблон - это на самом деле шаблон Excel - файл с расширением xlt (Вы дважды щелкаете на этом шаблоне, в результате чего Excel сам создаёт книгу на основе этого шаблона) - то решение будет другим.

[PVAOD]

Планирую использовать именно .xlt, но при осложнениях могу пользоваться и просто .xls

[EducatedFool]

но при осложнениях могу пользоваться и просто .xls

Осложнений-то особых нет.
Тут вопрос вот в чём - где хранить текущий номер файла...

В случае использования .xls номер можно хранить в самом файле
При использовании шаблона (поскольку при создании на его основе новой книги он не изменяется) - где-то в другом месте (например, в реестре Windows)

Как научить Excel самому сохранять каждый новый документ под именем с номером на 1 единицу больше предыдущего документа?

А обязательно выводить куда-то в ячейку номер книги?

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

С шаблоном XLT - одна проблема:
Вот только при создании книги на основе шаблона xlt на этот момент книга ещё не будет сохранена.
Как в этом случае указать макросу, в какую папку на диске сохранять файл?

Я бы использовал в качестве шаблона XLS
Открыли файл - нажали СОХРАНИТЬ - файл сохранился в той же папке под новым именем (с индексом на единицу больше)

[PVAOD]

Звучит, вроде,неплохо, красиво.
Ну, и как это выглядит на языке математики теперь?
Идею-то и я выдвинул ,например, со счётчиками, но вот как осуществить - не знаю. Потому, собственно, и прошу помощи.
Пожалуйста!

[EducatedFool]

Вот весь код:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not SaveAsUI Then    ' если пользователь нажал СОХРАНИТЬ, а не СОХРАНИТЬ КАК...
        n = Val(GetSetting("excel", "DocNumber", "n", 0)) ' читаем из реестра номер последнего документа
        n = n + 1    ' увеличиваем его на единицу
        SaveSetting "excel", "DocNumber", "n", n    ' записываем в реестр
        Cancel = True    ' отменяем команду сохранения под тем же именем
        Application.EnableEvents = False ' временно отключаем обработку событий книги
        ThisWorkbook.SaveAs Format(n, "000")    ' сохраняем под нужным именем
        Application.EnableEvents = True ' включаем обратно  обработку событий книги
    End If
End Sub

Сохраните этот файл на своём компе под любым именем, а потом нажимайте Ctrl + S
Каждый раз файл будет сохраняться под новым именем.

[PVAOD]

Благодарю за предложенный вариант.
Но!
А как же с автономером на листе (при открытии)?
И можно ли посмотреть вариант решения с использованием .xlt ?

[PVAOD]

И нажиматься будет ТОЛЬКО "Сохранить", а не "Сохранить как...", потому что это должен делать макрос с безусловным сохранением изменений...

[EducatedFool]

А как же с автономером на листе (при открытии)?

Нужно добавить в код всего одну строку:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not SaveAsUI Then    ' пользователь нажал СОХРАНИТЬ, а не СОХРАНИТЬ КАК...
        ' читаем из реестра номер последнего документа
        n = Val(GetSetting("excel", "DocNumber", "n", 0))
        n = n + 1    ' увеличиваем его на единицу
        SaveSetting "excel", "DocNumber", "n", n    ' записываем в реестр
        [a1] = "Это книга с номером " & n
        Cancel = True    ' отменяем команду сохранения под тем же именем
        Application.EnableEvents = False    ' временно отключаем обработку событий книги
        ThisWorkbook.SaveAs Format(n, "000")    ' сохраняем под нужным именем
        Application.EnableEvents = True    ' включаем обратно  обработку событий книги
    End If
End Sub

И можно ли посмотреть вариант решения с использованием .xlt ?

Там будет всё то же самое, кроме одного: при создании книги из шаблона вновь созданная книга ещё ни разу не сохранена.
Поэтому макрос не знает, в какую папку сохранять файл...

[EducatedFool]

И нажиматься будет ТОЛЬКО "Сохранить", а не "Сохранить как...", потому что это должен делать макрос с безусловным сохранением изменений...

Да без проблем - надо убрать в коде 2 строки:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        ' читаем из реестра номер последнего документа
        n = Val(GetSetting("excel", "DocNumber", "n", 0))
        n = n + 1    ' увеличиваем его на единицу
        SaveSetting "excel", "DocNumber", "n", n    ' записываем в реестр
        [a1] = "Это книга с номером " & n
        Cancel = True    ' отменяем команду сохранения под тем же именем
        Application.EnableEvents = False    ' временно отключаем обработку событий книги
        ThisWorkbook.SaveAs Format(n, "000")    ' сохраняем под нужным именем
        Application.EnableEvents = True    ' включаем обратно  обработку событий книги
End Sub

Теперь нажатие СОХРАНИТЬ КАК равносильно нажатию СОХРАНИТЬ - даже запрос имени файла выдаваться не будет.