Помогите плз поменять имя у не сохраненного workbooka.
"Книга1" -> "My Name"

Здравствуйте, JohnDoe, Вы писали:

JD>Помогите плз поменять имя у не сохраненного workbooka.
JD>"Книга1" -> "My Name"

Workbook(1).FullName = "New name"
или
This example creates a new workbook, prompts the user for a file name, and then saves the workbook.

Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName

Здравствуйте, Smooky, Вы писали:

S>Здравствуйте, JohnDoe, Вы писали:

JD>>Помогите плз поменять имя у не сохраненного workbooka.
JD>>"Книга1" -> "My Name"

S>Workbook(1).FullName = "New name"

пишу

Sub ff()

 Call ChangeName(ActiveWorkbook, "TestName")

End Sub

Sub ChangeName(workbook As workbook, name As String)
  workbook.FullName = name
End Sub

грит
Compile error:
Can't assign to read-only property

на назначении имени

имя надо менять не сохраняя workbook

Угу... Всё верно... Это я протупил... Хммм... думаю наверное никак... Все пропертя name есть readonly...

Здравствуйте, JohnDoe, Вы писали:

JD>Здравствуйте, Smooky, Вы писали:

S>>Здравствуйте, JohnDoe, Вы писали:

JD>>>Помогите плз поменять имя у не сохраненного workbooka.
JD>>>"Книга1" -> "My Name"

S>>Workbook(1).FullName = "New name"

JD>пишу

JD>

JD>Sub ff()

JD> Call ChangeName(ActiveWorkbook, "TestName")

JD>End Sub

JD>Sub ChangeName(workbook As workbook, name As String)
JD>  workbook.FullName = name
JD>End Sub
JD>

JD>грит
JD>Compile error:
JD>Can't assign to read-only property

JD>на назначении имени

JD>имя надо менять не сохраняя workbook

Здравствуйте, Smooky, Вы писали:

S>Угу... Всё верно... Это я протупил... Хммм... думаю наверное никак... Все пропертя name есть readonly...

JD>>имя надо менять не сохраняя workbook

ну не могёт такого быть... кто-то ж его пишет (save as и проч....)
я уже на грани.... скоро тож вступлю в тим Excel mustdie

Здравствуйте, JohnDoe, Вы писали:

JD>>>имя надо менять не сохраняя workbook


Если для цели отображения имени в заголовке, то поменяйте Caption у Window

ActiveWindow.Caption = "New Name"

Или для чего это нужно, если книга не сохранена?

Здравствуйте, JohnDoe, Вы писали:

JD>Здравствуйте, Smooky, Вы писали:

S>>Угу... Всё верно... Это я протупил... Хммм... думаю наверное никак... Все пропертя name есть readonly...

JD>>>имя надо менять не сохраняя workbook

JD>ну не могёт такого быть... кто-то ж его пишет (save as и проч....)
JD>я уже на грани.... скоро тож вступлю в тим Excel mustdie

Неа.Неполучиться ничего.
У Application есть событие NewWorkbook(Wb as Workbook)... Посмотри... У Wb.Name уже инициализирован!Всё.А дальше без сохранения не поменяешь.

Здравствуйте, Elena_, Вы писали:

E_>Здравствуйте, JohnDoe, Вы писали:

JD>>>>имя надо менять не сохраняя workbook


E_>Если для цели отображения имени в заголовке, то поменяйте Caption у Window
E_>

E_>ActiveWindow.Caption = "New Name"
E_>

E_>Или для чего это нужно, если книга не сохранена?


Вот .... спасибки...
то что нужно