saving new file name

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi ,
I need to save an open file under a new name by replacing the old one.
The problem is that the new name is generated by the content of the file, I mean that the file is open.
Does someone has a good idea.

cheers,
Douvid
 
Douvid,

You need to write some VB code in a macro for this. In
short, your code should:

1.get the old name file before you save under the new name:
oldname = activeworkbook.path & "/" & _
activeworkbook.name
2.save under the new name
activeworkbook.saveas "TheNewFilename.xls"
same folder, or full path for different folder). The new
file name will most likely be a variable whose value is
read from the spreadsheet, I guess (in that case omit the
quotes).
3. delete original file
kill oldname

HTH,
Nikos
-----Original Message-----
Hi ,
I need to save an open file under a new name by replacing the old one.
The problem is that the new name is generated by the
Click to expand...
content of the file, I mean that the file is open.
 
Is this what you want ? (will need to be adapted. might need full path)

'==================================
Sub UnTested()
Dim OldName As String
Dim NewName As String
OldName = ActiveWorkbook.Name
NewName = Worksheets("Sheet1").Value
'- make new file
ActiveWorkbook.SaveAs FileName:=NewName
'- delete old file
Kill OldName
End Sub
'==============================================


Regards
BrianB
 
Back
Top