excel getsaveasfilename

Ответ от Олег Филатов[гуру]
Скрипт можно написать, только задача не вполне ясна. На листе кнопка, при нажатии которой этот лист сохраняется в отдельном файле? А с каким названием?
Уважаемая Ярослава, а в хорошем OpenOffice как это можно сделать? 😉
Может в плохой программе Excel этот способ тоже сработает.. .
Люди когда-то Windows запускали ТОЛЬКО для того, чтобы поработать с Microsoft Office... О, как.. .Впрочем, сейчас многие поступают точно так же.. .
Ну, примерно так:
Скрипт открывается в редакторе VBA, например нажатием сочетания клавиш Alt+F11.
Скрипт:
Private Sub CommandButton1_Click()
On Error GoTo errhand
Dim NewBook As Workbook
Set NewBook = Workbooks.Add
Application.DisplayAlerts = False
Do While NewBook.Worksheets.Count > 1
NewBook.Worksheets(1).Delete
Loop
Application.DisplayAlerts = True
NewBook.Worksheets(1).Name = "Ваш заказ"
Range(Cells(1, 1), Cells(Range("A1").EntireColumn.Rows.Count, Range("A1").EntireRow.Columns.Count)).Copy NewBook.Worksheets(1).Range("A1")
fName = Application.GetSaveAsFilename("Ваш заказ от " & Date & ".xls", "Книга Microsoft Office Excel (*.xls), *.xls")
If fName <> False Then
NewBook.SaveAs Filename:=fName
End If
Exit Sub
errhand:
MsgBox Err.Description
Resume Next
End Sub