Создание книги с заданным именем

[Влад]

Добрый день всем!
Подскажите, как создать книгу с заданным именем.
Более конкретно - формируются отчеты за выбранные дни как отдельные книги, которые должны иметь разные имена (в которые включена дата). Какие из них сохранять как файлы, выбирает пользователь (такое требование), то есть Workbooks.open использовать не получается, так как создаются файлы на диске.
По Workbooks.Add (1) создаются книги с именем "Книга1","Книга2",...
При обходном варианте - временное создание файла-шаблона с произвольным именем и потом удалением этого шаблона

fname = "yyyy-mm-dd.xls"
Open fname For Random Access Read Write As #1
Close #1
Workbooks.Add fname
Kill fname

книга открывается с требуемым именем, но почему-то только для чтения (свойство .ReadOnly=True), а это свойство изменить нельзя.
При использовании как шаблона реальных файлов Excel - картина аналогичная, доступ к вновь открытой книге только по чтению.

Заранее благодарен за помощь.

[GSerg]

Workbooks.Add.Windows(1).Caption = "yyyy-mm-dd.xls"

[Влад]

Спасибо!
Все в соответствии с примечанием, логотипом (не знаю, как назвать) Gserg-а:
"Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас"

[GSerg]

Логотип Супер
Подпись это, она же сигнатура

[Влад]

Sorry, оказалось, что это не все.
При попытке сохранения книги с установленным по
Workbooks.Add(1).Windows(1).Caption = "yyyy-mm-dd.xls"
оказывается, что она имеет имя "ЛистNN"
WorkBooks(i).Name="ЛистNN"
WorkBooks(i).FullName="ЛистNN"
а эти свойства Read Only и не изменяются.
Что можно сделать здесь?

Grerg-у. Насчет сигнатуры получилось, конечно, еще то.
Что поделать, эклер проклятый замучил, как у той бабки, которая пыталась купить два склероза.

[GSerg]

Что сделать, что сделать - скушать эклер, что же ещё!

Код: Выделить всё

Sub sdfhsg()
  With Workbooks.Add
    .Windows(1).Caption = "yyyy-mm-dd.xls"
    .SaveAs "c:\windows\рабочий стол\" + .Windows(1).Caption
  End With
End Sub

[Влад]

Спасибо, Gserg, но это несколько не то. Поставлено требование - формируются отчеты за выбранные дни как отдельные книги, которые должны иметь разные имена (в которые включена дата). Какие из них сохранять как файлы, выбирает пользователь, то есть надо установить имя книги без сохранения на диске.
Возможно ли это?
И еще один вопрос - пользователь должен иметь возможность создать, посмотреть и выбрать сгенерированные отчеты, что не получается при открытой форме. Это, пожалуй, отдельная тема.

[GSerg]

Ну так это Типа того Я об этом как раз.
При создании книги пишешь ей название в caption. Но не сохраняешь. А если нужно сохранить, то имя для файла берёшь из caption.
Я просто две команды рядом дал.

[Влад]

Gserg-y. Благодарю за внимание к теме, но это к сожалению, не Типа того .
Вот например, пользователь получил несколько отчетов за выбранные дни и ЗАКРЫЛ форму и книгу с формой (на что имеет полное право - результат-то уже получен). После этого посмотрел отчеты и решил, что надо сохранить вот такие, и что он увидит в имени файла при сохранении? - что-то вида "ЛистN"?
Форма уже не работает, книга с ней закрыта, так что saveAs здесь не проходит.

[уырекун]

подниму тему, интересует как изменить имя файла в диалоге сохранения новой книги

[pronto]

Код: Выделить всё

Application.Dialogs(xlDialogSaveAs).Show "Нужное_имя_при_сохранении.xls"

Есть константы для всех встроенных диалогов. Для каждого диалога свой набор аргументов. Если есть справка, то это находится в разделе
Microsoft Excel Visual Basic Reference > Collections > Dialogs Collection > ссылка Built-in Dialog Box Argument Lists

[уырекун]

Код: Выделить всё

Application.Dialogs(xlDialogSaveAs).Show "Нужное_имя_при_сохранении.xls"

Есть константы для всех встроенных диалогов. Для каждого диалога свой набор аргументов. Если есть справка, то это находится в разделе
Microsoft Excel Visual Basic Reference > Collections > Dialogs Collection > ссылка Built-in Dialog Box Argument Lists

Ваш код вызывает диалог, а можно ли программно задать это "имя файла", поясню, я программно создаю новую книгу, пользователь жмет в ней сохранить и уже в этом диалоге вместо "книга1" должно быть "Нужное_имя_при_сохранении"

[alibek]

Задай имя книге.
Оно будет использоваться в качестве имени файла при первом сохранении.

[pronto]

Во-первых, можно на «ты»... А ещё можно в книгу добавить событие _BeforeSave

Код: Выделить всё

Private Sub WB_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Cancel = True
   Application.FileDialog(msoFileDialogSaveAs).InitialFileName = "Нужное_имя.xls"
   Application.FileDialog(msoFileDialogSaveAs).Show
End Sub

PS: 2 alibek Как? Можно пример?
PPS: Забыл написать, что в секции (General) (Declarations) модуля «ЭтаКнига» нужно прописать Private WithEvents WB As Workbook, в любом месте создать новую книгу Set WB = Application.Workbooks.Add

[уырекун]

Задай имя книге.
Оно будет использоваться в качестве имени файла при первом сохранении.

Где задается имя книге?

[alibek]

Похоже перепутал с чем-то другим, свойство Name только для чтения.
В таком случае лучше использовать InitialFileName, если версия офиса позволяет.