друзья нашел вот такой макрос для Excel 2003
нужно тоже самое для Excel 2010
нужно чтобы макрос запускался автоматически при закрытии книги
Заранее Спасибо!!!
нужно тоже самое для Excel 2010
нужно чтобы макрос запускался автоматически при закрытии книги
Заранее Спасибо!!!
| Код |
|---|
Sub Переименовать_книгу()
OldName = ActiveWorkbook.FullName
NewName = Sheets("Лист1".[A1] & ".xls"
If NewName = ".xls" Or NewName = ActiveWorkbook.Name Then Exit Sub
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & NewName
Kill OldName
End Sub |
