|
|
|
Как в Excel создать книгу на основе шаблона и поменять имя
|
|||
|---|---|---|---|
|
#18+
Создаю новую книгу на основе шаблона Workbooks.Add(<имя шаблона.xlt>) В результате этого создается книга <имя шаблона.xls>, ее можно заполнять данными. Но сама книга пока не сохранена на диск. Сохранить ее можно либо программо вызвав Workbook.SaveAs либо это может сделать пользователь. Я SaveAs вызывать не хочу, потому как возможно пользователь в конце концов и не захочет сохранять полученную книгу с текущими данными и я не знаю каталога в который пользователь захочет сохранять книгу. Но мне хочется чтобы у книги которая создалась с помощью шаблона, но еще не сохранилась имя было уже не <имя шаблона.xls>, а то которое я захочу - например <имя шаблона_дата_и_время_создания.xls>. Можно ли это сделать ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.11.2008, 15:09:04 |
|
||
|
Как в Excel создать книгу на основе шаблона и поменять имя
|
|||
|---|---|---|---|
|
#18+
Application.Dialogs(xlDialogSaveAs).Show Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Date, "dd.mm.yy") & "_" & Format(Time, "hh-mm") & ".xls" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.11.2008, 15:28:21 |
|
||
|
Как в Excel создать книгу на основе шаблона и поменять имя
|
|||
|---|---|---|---|
|
#18+
vbhevbhApplication.Dialogs(xlDialogSaveAs).Show Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Date, "dd.mm.yy") & "_" & Format(Time, "hh-mm") & ".xls" Это если я хочу программно выполнять сохранение. А если инициировать сохранение будет только пользователь нажимая пунк меню File|Save As... ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.11.2008, 16:07:09 |
|
||
|
Как в Excel создать книгу на основе шаблона и поменять имя
|
|||
|---|---|---|---|
|
#18+
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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.11.2008, 17:04:53 |
|
||
|
Как в Excel создать книгу на основе шаблона и поменять имя
|
|||
|---|---|---|---|
|
#18+
http://forum.codenet.ru/archive/index.php/t-12524.html ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.11.2008, 17:09:11 |
|
||
|
Как в Excel создать книгу на основе шаблона и поменять имя
|
|||
|---|---|---|---|
|
#18+
... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.11.2008, 17:10:14 |
|
||
|
Как в Excel создать книгу на основе шаблона и поменять имя
|
|||
|---|---|---|---|
|
#18+
Не учла, что произойдет зацикливание. Вот из того же источника (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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.11.2008, 17:19:18 |
|
||
|
Как в Excel создать книгу на основе шаблона и поменять имя
|
|||
|---|---|---|---|
|
#18+
Спасибо! Это все работает, но изначально задача у меня все-таки другая. Сейчас, после того как я создал книгу из шаблона командой Workbooks.Add(<имя шаблона.xlt>) в заголовке написано имя "<имя шаблона> & 1". И только после того как начнутся манипуляции с сохранением, прграмно или пользователем имя книги и заголовок сменятся. А можно ли сделать так чтобы не сохраняя книгу пользователь видел бы другой заголовок книги отличный от "<имя шаблона> & 1" ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.01.2009, 14:56:47 |
|
||
|
|

start [/forum/topic.php?fid=61&msg=35649633&tid=2179931]: |
0ms |
get settings: |
7ms |
get forum list: |
12ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
189ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
60ms |
get tp. blocked users: |
1ms |
| others: | 188ms |
| total: | 476ms |

| 0 / 0 |
