Logo 
Search:

MS Office Answers

Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds
  Question Asked By: Jody Mills   on Oct 21 In MS Office Category.

  
Question Answered By: Eamon Jones   on Oct 21

just tried, that don't seem to work but if you play around a little with
the following I'm sure it will do what you want or at least get you on the right
lines

Sub Save()

Dim strFilename
strFilename = Application.GetSaveAsFilename("My File" & Format(Now,
"ddmmyyhhnnss") & _
".xls", "Microsoft Excel 97-2000 & 5.0/95 Workbook
(*.xls),*.xls")

If strFilename <> "False" Then
ActiveWorkbook.SaveAs Filename:=strFilename, FileFormat:= _
xlExcel9795, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:=False
End If
Exit Sub

End Sub

Share: 

 

This Question has 4 more answer(s). View Complete Question Thread

 
Didn't find what you were looking for? Find more on using todays date as file name Or get search suggestion and latest updates.


Tagged: