File renaming doesn't work

[A. Karatas]

Hello,

I made the following code, which opens the Save As box. I then change
the dir, and want it to save it under the name given in cell AE2. But
it doesn't work. I am working with excel2000.

Any idea's why???????


Sub filerenaming()
fileSaveName = Application.GetSaveAsFilename( _
InitialFilename:=Range("AE2").Value, _
fileFilter:="Microsoft Excel Workbook (*.xls), *.xls")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If
End Sub

 

[Norman Jones]

Hi A,

The GetSaveAsFiolename method only provides
the user's name choice; it does not save the file.

Try something like:

'=============>>
Public Sub filerenaming()
Dim fileSaveName As Variant
fileSaveName = Application.GetSaveAsFilename( _
InitialFilename:=Range("AE2").Value, _
FileFilter:="Microsoft Excel Workbook (*.xls), *.xls")
If fileSaveName <> False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName, _
FileFormat:=xlWorkbookNormal
End If
End Sub
'<<=============

 

[Guest]

You are almost there. Missing only a single line:

Sub filerenaming()
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:=Range("AE2").Value, _
fileFilter:="Microsoft Excel Workbook (*.xls), *.xls")
If fileSaveName <> False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName
MsgBox "Save as " & fileSaveName
End If
End Sub


The Msgbox was there but not the actual Save.

 

[A. Karatas]

Thankx guys. It's working