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

[oip]

Цитата:

Сообщение от fur-lined

а параметры (имя файла напр.) этому макросу как передать?

В Макросе:

Цитата:

Sub SaveAsDialog(FileName As String)

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

А вызвать:

application.run('SaveAsDialog', 'FileName');