Резервное копирование в excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Резервное копирование в excel (Макросы/Sub)

Killerlord

Дата: Понедельник, 29.02.2016, 17:58 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 80% ±

Excel 2007

Здравствуйте, мне нужно сделать чтоб при сохранении создавалась резервная копия документа excel.
На форуме нашел макрос но он сделан для Word(a)
[vba]

Код

Private Sub WordApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
    Dim NewName$, Suffix$, i&
    NewName = Doc.Name
    If NewName <> Me.Name Then Exit Sub
    i = InStrRev(NewName, ".")
    Suffix = " (ResCopy " & Format(Now, "dd.mm.yyyy hh-mm-ss)")
    If i Then _
        NewName = Left$(NewName, i - 1) & Suffix & Mid$(NewName, i) Else _
        NewName = NewName & Suffix
    Doc.SaveAs "D:\СПД Граб\" & NewName
End Sub

[/vba]
Я проверил для ворда он работает хорошо. Как сделать то же самое только для Excel ?

Ответить

Manyasha

Дата: Понедельник, 29.02.2016, 18:12 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Killerlord, так попробуйте:
[vba]

Код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim NewName$, Suffix$, i&
    NewName = ThisWorkbook.Name
    i = InStrRev(NewName, ".")
    Suffix = " (ResCopy " & Format(Now, "dd.mm.yyyy hh-mm-ss)")
    If i Then _
        NewName = Left$(NewName, i - 1) & Suffix & Mid$(NewName, i) Else _
        NewName = NewName & Suffix
    ThisWorkbook.SaveCopyAs "D:\СПД Граб\" & NewName
End Sub

[/vba]
код скопируйте в модуль книги

ЯД: 410013299366744 WM: R193491431804

Ответить

Killerlord

Дата: Понедельник, 29.02.2016, 18:37 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 80% ±

Excel 2007

удалено
Спасибо большое, все работает.
[moder]Не надо цитировать посты целиком - это нарушение правил форума![/moder]

Сообщение отредактировал Manyasha - Понедельник, 29.02.2016, 18:47

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Резервное копирование в excel (Макросы/Sub)

Страница 1 из 1
1