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

[fur-lined]

Цитата:

Сообщение от kornix

Тоже пошел этим путем, а запустить макрос можно так:

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

[Gustav]

Цитата:

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

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

Дык через Application.Run(...)

Цитата:

Application.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, varg25, varg26, varg27, varg28, varg29, varg30)

[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');