VBA to File SaveAs

[Zaigham]

Hi,
I need a VBA to save my excel files with a different name.

Thanks in advance

Zaigham

 

[Burrgogi]

Hi,
I need a VBA to save my excel files with a different name.

Thanks in advance

Zaigham

If you are using Excel 2003 or earlier then:
File menu > Save As....

If Excel 2007/2010 then click on the Office button (very top left corner). Then click "Save As".

 

[Burrgogi]

I don't really see why you need a VBA solution for something so simple. But since you asked:

Sub FileSaveAs()
'
'  Make sure you change the value in between the quotes
'  to the appropriate path where your workbook will be saved.
'
    ChDir "C:\folder1"
    ActiveWorkbook.SaveAs Filename:="C:\folder1\name of new file.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

 

[Zaigham]

Burrgogi,

Thank you for compliments. But I need a macro which interrupt for input a new name each time. Hope now I have explained more clearly.

Regards,
Zaigham

 

[VoG]

Try this

Sub SaveMe()
Dim fName As Variant
fName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Save As")
If fNameAndPath = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=fName
End Sub

 

[Zaigham]

Thank you very much Peter.

Regards,
Zaigham

 

[VoG]

You are welcome. Glad it works.

 

[Zaigham]

Hi Peter,

After running the macro, SaveAs dialog appears with "Blank" file name and Save as type: = "Excel Files". But there is something missing as new file name doesn't appears on title bar by changing the current filename nor found in folder where it was saved even not found with windows search utility.
Hope you will detect the error.
Regards,
Zaigham

 

[VoG]

Sorry, a small error. Tested and working

Sub SaveMe()
Dim fName As Variant
fName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Save As")
If fName = False Then Exit Sub
ActiveWorkbook.SaveAs fileName:=fName
End Sub

If you are using Excel 2007 or later you might need a small tweak. Let me know.

 

[Zaigham]

I am using Excel 2010 at Home and 2003 at office.