Имя файла при сохранении

[oip]

Аналогичной функции не нашел. Можно, например, макрос. Проверил, работает.

Цитата:

Sub SaveAsDialog()

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
.InitialFileName = "FileName"
If .Show = 0 Then
Else
.Execute
End If
End With
Set fd = Nothing
End Sub