Цитата:
Сообщение от
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
А вызвать:
X++:
application.run('SaveAsDialog', 'FileName');