Excel VBA - GetSaveAsFileName

[Rolandos]

Good Morning, Trying "in vain" to show the original file name in the "file name:" dialog box. Can anyone help?
================================
Sub RGH_SaveAs()


Dim FName

thisfilename = ActiveWorkbook.Name

thisfilenameinquotes = Chr(34) & thisfilename & Chr(34)


IniName = thisfilenameinquotes & Format(Now, "yyyy_mm_dd")




FName = Application.GetSaveAsFileName(InitialFileName:=IniName, FileFilter:="Excel Files (*.xlsx), *.xlsx", Title:="RGH Save As")

If FName = False Then Exit Sub
ActiveWorkbook.SaveAs FileName:=FName, FileFormat:=51


End Sub
===============
thanks in advance
Roland

 

[lnagel]

THis is how I do it - (My Original Filename also resides in cell BP37)

Dim InitialName As String
Dim fileSaveName As Variant
Dim DesktopPath
DesktopPath = Application.ActiveWorkbook.Path
ChDir DesktopPath
InitialName = targetSheet.Range("BP37") & " Your Desc"
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, FileFilter:="Excel Files (*.xlsm), *.xlsm", title:="Save As")
'-----------------------------------------------
If fileSaveName <> "False" Then
    ActiveWindow.DisplayWorkbookTabs = False
    On Error Resume Next
    ThisWorkbook.saveas Filename:=fileSaveName
    On Error GoTo 0
End If
'-----------------------------------------------
ActiveWorkbook.Save

 

[Norie]

2 things:

1 You don't need to add quotes around the filename.

2 You need to add the date before the file extension.

Try this.

Sub RGH_SaveAs()
Dim thisfilename As String
Dim IniName As String
Dim FName As Variant

    thisfilename = ActiveWorkbook.Name

    IniName = Left(thisfilename, Len(thisfilename) - 5) & Format(Now, "yyyy_mm_dd") & Right(thisfilename, 5)

    FName = Application.GetSaveAsFilename(InitialFileName:=IniName, FileFilter:="Excel Files (*.xlsx), *.xlsx", Title:="RGH Save As")

    If FName = False Then Exit Sub
    
    ActiveWorkbook.SaveAs Filename:=FName, FileFormat:=51

End Sub

 

[Rolandos]

Thanks a lot.
This only worked when I remove the following from the code:" & Right(thisfilename, 5) "

 

[Rolandos]

Thanks

 

[Norie]

To include the file extension in the filename it would need to match the file extension you are using in the file filter of GetSaveAsFileName.

For example, if the active workbook had the extension '.xlsm' then it wouldn't work.