powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Excel создать книгу на основе шаблона и поменять имя
8 сообщений из 8, страница 1 из 1
Как в Excel создать книгу на основе шаблона и поменять имя
    #35649368
PavelT100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Создаю новую книгу на основе шаблона
Workbooks.Add(<имя шаблона.xlt>)
В результате этого создается книга <имя шаблона.xls>, ее можно заполнять данными. Но сама книга пока не сохранена на диск. Сохранить ее можно либо программо вызвав Workbook.SaveAs либо это может сделать пользователь. Я SaveAs вызывать не хочу, потому как возможно пользователь в конце концов и не захочет сохранять полученную книгу с текущими данными и я не знаю каталога в который пользователь захочет сохранять книгу. Но мне хочется чтобы у книги которая создалась с помощью шаблона, но еще не сохранилась имя было уже не <имя шаблона.xls>, а то которое я захочу - например <имя шаблона_дата_и_время_создания.xls>. Можно ли это сделать ?
...
Рейтинг: 0 / 0
Как в Excel создать книгу на основе шаблона и поменять имя
    #35649460
vbhevbh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Application.Dialogs(xlDialogSaveAs).Show Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Date, "dd.mm.yy") & "_" & Format(Time, "hh-mm") & ".xls"
...
Рейтинг: 0 / 0
Как в Excel создать книгу на основе шаблона и поменять имя
    #35649633
PavelT100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vbhevbhApplication.Dialogs(xlDialogSaveAs).Show Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Date, "dd.mm.yy") & "_" & Format(Time, "hh-mm") & ".xls"
Это если я хочу программно выполнять сохранение.
А если инициировать сохранение будет только пользователь нажимая пунк меню File|Save As... ?
...
Рейтинг: 0 / 0
Как в Excel создать книгу на основе шаблона и поменять имя
    #35649883
vbhevbh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.Dialogs(xlDialogSaveAs).Show Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 4) & "_" & Format(Date, "dd.mm.yy") & "_" & Format(Time, "hh-mm") & ".xls"

End Sub
...
Рейтинг: 0 / 0
Как в Excel создать книгу на основе шаблона и поменять имя
    #35649899
vbhevbh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
http://forum.codenet.ru/archive/index.php/t-12524.html
...
Рейтинг: 0 / 0
Как в Excel создать книгу на основе шаблона и поменять имя
    #35649903
vbhevbh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
Как в Excel создать книгу на основе шаблона и поменять имя
    #35649943
vbhevbh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не учла, что произойдет зацикливание. Вот из того же источника (http://forum.codenet.ru/archive/index.php/t-12524.html):

Dim lEvent As Long
Dim bolEx As Boolean

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If lEvent = 0 Then
lEvent = 1
Application.Dialogs(xlDialogSaveAs).Show Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 4) & "_" & Format(Date, "dd.mm.yy") & "_" & Format(Time, "hh-mm") & ".xls"
ElseIf lEvent = 1 Then
lEvent = 0
bolEx = True
End If

If lEvent = 0 And bolEx Then
bolEx = False
Cancel = False
Else
Cancel = True
End If

End Sub
...
Рейтинг: 0 / 0
Как в Excel создать книгу на основе шаблона и поменять имя
    #35752738
PavelT100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо! Это все работает, но изначально задача у меня все-таки другая. Сейчас, после того как я создал книгу из шаблона командой Workbooks.Add(<имя шаблона.xlt>) в заголовке написано имя "<имя шаблона> & 1".
И только после того как начнутся манипуляции с сохранением, прграмно или пользователем имя книги и заголовок сменятся. А можно ли сделать так чтобы не сохраняя книгу пользователь видел бы другой заголовок книги отличный от "<имя шаблона> & 1" ?
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Excel создать книгу на основе шаблона и поменять имя
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]