Имя книги excel по имени ячейки

@radonic · Регистрация: 26.10.2014

Author24 — интернет-сервис помощи студентам

Добрый день уважаемые программисты !
В программировании я ни бум-бум, поэтому прошу у Вас помощи.

Нужен простой макрос который будет переименовывать имя книги при закрытии, по имени ячейки (например меняем текст в ячейке A1 на "Договор №1", получаем книгу с именем "Договор №1").
Когда-то очень давно мне попадался такой макрос на просторах инета, но сейчас уже все перегуглил, найти не могу! ((
Заранее всем спасибо!

Добавлено через 3 минуты
Вот кое что нашел, но этот макрос работает по открытию книги ((. А мне нужно что бы имя книги менялось сразу по закрытию. Может кто знает что поменять нужно ?

Visual Basic

Private Sub Workbook_Open()
sv = Sheets("Лист1").Cells(1, 1)
' Имя листа с ячейкой А1
If Len(sv) = 0 Then Exit Sub
sv = sv & ".xls"
s = ThisWorkbook.Name
If s <> sv Then
s1 = ThisWorkbook.FullName
s2 = ThisWorkbook.Path
s2 = s2 & "/" & sv
ThisWorkbook.SaveAs Filename:=s2
Kill s1
End If
End Sub

@~~Апострофф~~ · 22.08.2013, 15:21

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

что поменять нужно ?

Событие наверно?

Visual Basic

Private Sub Workbook_BeforeClose(Cancel As Boolean)
sv = Sheets("Лист1").Cells(1, 1)
' Имя листа с ячейкой А1
If Len(sv) = 0 Then Exit Sub
sv = sv & ".xls"
S = ThisWorkbook.Name
If S <> sv Then
  s1 = ThisWorkbook.FullName
  s2 = ThisWorkbook.Path
  s2 = s2 & "/" & sv
  ThisWorkbook.SaveAs Filename:=s2
  Kill s1
End If
End Sub

@radonic · 22.08.2013, 15:26

Апострофф, вот это оперативность, примного благодарен Вам, огромное спасибо !!! ))
Все работает )), тему можно закрывать.

@radonic 0 / 0 / 0 Регистрация: 26.10.2014 Сообщений: 3
	22.08.2013, 15:26	3
	Апострофф, вот это оперативность, примного благодарен Вам, огромное спасибо !!! )) Все работает )), тему можно закрывать. 0