SAve AS FileName

[Learn_VBA]

Hello

I am having difficulty with the Get Save FileName below. It carried out the code until the very end. I have difficulties Saving the file.

Also, if I want the dialog box to open with a dafault folder, how do I include the syntax within the code below.

Thank you



Dim Ret
strFileName = ProjID & "_" & TCG & "_" & Competitor '<~~ You can set Default name here
Ret = Application.GetSaveAsFilename(InitialFileName:=strFileName, _
FileFilter:="Excel Files (*.xlsx), *.xlsx", _
FilterIndex:=1, _
Title:="Select Folder and File Name to save Impact Assesment")
If Ret <> False Then
ActiveWorkbook.SaveAs FileName:=Ret
Else: Exit Sub
End If

 

[Joe4]

Is the file you are trying to save have this macro (or other VBA code in it)?
If so, you cannot save it as an "xlsx".

To get the default folder, add a "ChrDir" live just before the GetSaveAsFileName step, i.e.

[COLOR=#ff0000]    ChDir "C:\Temp"[/COLOR]
    Ret = Application.GetSaveAsFilename(InitialFileName:=strFileName, _
        FileFilter:="Excel Files (*.xlsx), *.xlsx", _
        FilterIndex:=1, _
        Title:="Select Folder and File Name to save Impact Assesment")