SaveCopyAs

tinfanide · #1 11-01-2011, 07:25 AM

I'm using Excel and create a button that runs the assigned macro:

Code:

ActiveWorkbook.SaveCopyAs "C:\" & Range("B2").Value & ".xls", FileFormat:=56

But this one just saves/overwrites the file itself.

Another one that just forces users to save the file; if not, cannot exit the window:

Code:

Sub forceSaveAs()

Dim NewBook
Dim fName

Set NewBook = Workbooks.Add
Do
    fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.saveAs Filename:=fName

End Sub

Is it a better way or how can I use SaveCopyAs to do so?

macropod · #2 11-02-2011, 01:32 AM

Hi tifanide,

If you want the user to continue working in the newly-saved workbook, you could use:
ActiveWorkbook.SaveAs Filename:="C:\" & Range("B2").Value & ".xls", FileFormat:=56

tinfanide · #3 11-02-2011, 06:02 AM

Thanks for that.