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

[Wasup!]

Сабдж, в продолжение старой темы.

http://bbs.vbstreets.ru/viewtopic.php?t ... D%C8%C3%C8

В ней, к сожалению, так и нет четкого ответа: возможно ли создать книгу Excel с именем отличным от "Книга1"? Таким образом, чтобы при нажатии "файл/сохранить" в поле имя файла было не "Книга1.xls", а "NewName_ddmmyy.xls"

Такой метод:
Workbooks.Add.Windows(1).Caption = "NewName_ddmmyy.xls" просто изменяет заголовок окна, ничего не делая с именем файла

А при создании на основе шаблона
Workbooks.Add ("c:\template.xls")
имя файла тоже будет неправильным - template1.xls

Есть какое-то решение этого вопроса

[KL]

Как насчет:

Workbooks.Add.SaveAs ("c:\temp\test.xls")

[alibek]

Ему не надо сохранять, ему надо, чтобы при сохранении автоматически подставлялось указанное имя.
Помоему, никак. Я тоже так пытался, так и не нашел способа.

[Ig]

Процедура вызова диалогового окна "Сохранить, как", где, "Имя файла": "It is Me" (.xls - по умолчанию)

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

Sub WrkbSave()
Dim objFlDlg As Object
Dim strFlNm As String

Set objFlDlg = Application.FileDialog(msoFileDialogSaveAs)
strFlNm = "It is Me" ' имя нашей книги
With objFlDlg
.Title = "Выберите папку для сохранения"
.FilterIndex = 1 ' расширение ".xls"
.InitialFileName = strFlNm ' стоит уже наше имя
If .Show = -1 Then
  strFlNm = .SelectedItems(1)
  ActiveWorkbook.SaveAs strFlNm
End If
End With
End Sub

Не оно?..

[GSerg]

И что, если пользователь кликнет Сохранить - вылезет?..

[KL]

Теоретически можно конечно поместить след. код в модуле ThisWorkbook, но уж очень как-то через одно место...

Private Sub Workbook_BeforeSave( _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
SaveFile
Application.EnableEvents = True
End Sub

Sub SaveFile()
Dim strName As String
strName = "Моя Книга.xls"
fileSaveName = Application.GetSaveAsFilename( _
strName, "Excel Files (*.xls), *.xls")
If fileSaveName <> False Then ActiveWorkbook.SaveAs _
fileSaveName
End Sub

[Ig]

И что, если пользователь кликнет Сохранить - вылезет?..

Если он кликнет просто: "Сохранить", - то ничего

[KL]

Если он кликнет просто: "Сохранить", - то ничего

С кодом, который я привел выше, что бы он ни кликнул, при попытке сохранить вылезет примерно то, что ты предложил ранее (исключения: макросы отключены, Application.EnableEvents=False)