Здравствуйте, 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
... << RSDN@Home 1.1.3 beta 1 >>
Только Путин, и никого кроме Путина! О Великий и Могучий Путин — царь на веки веков, навсегда!
Смотрю только Соловьева и Михеева, для меня это самые авторитетные эксперты.
КРЫМ НАШ! СКОРО И ВСЯ УКРАИНА БУДЕТ НАШЕЙ!
