excel vba 怎样在另存为对话框 自动填入文件名，如果按取消按钮，不会产生文件。

raylenewu

在oe 执行的时候， 在另存为对话框里，如果摁了取消键，则会生成一个文件book，但是并没有保存。
想要的效果是摁了取消，不会生成一个book。要怎样设置。

Sub oe()
dim y$,ff$
Application.ScreenUpdating = False
y = Format(Now, "yyyymmddhhmmss")    '文件名是按照时间自动设置的。
ff = Application.GetSaveAsFilename(y, "xls,*.xlsm")
ActiveSheet.Copy
ActiveWorkbook.SaveAs ff
End if
----------------------------------------------------------------------------------------

如果用下面的方法，怎样能自动生成是按照时间设置的文件名（默认的）。按了确认键后，则会打开保存的文件。

If Application.Dialogs(xlDialogSaveAs).Show = False Then
MsgBox “file cancelled"
End if

raylenewu

Sub saveas()


With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = Format(Now, "yyyymmddhhmmss") & ".xls"  

    If .Show = -1 Then
        ActiveSheet.Copy     
        ActiveWorkbook.saveas  .InitialFileName

    Else
        MsgBox "cancel": Exit Sub
    End If
End With

End Sub