Open and Save Using VBA

I am using Excel 2010 running in Windows XP. I would like to depress a command button which will allow me to open an Excel file. Once the file is open I would like to save it immediately ensuring the original file isn't changed. How can I programmatically do this using VBA? The name of my original file is called databaseFile and has an extension of xlsx.

Hi, ajocius,

assuming that both workbooks are located in the very same folder:

Sub ajocius_SaveAs()
Dim wb As Workbook
Set wb = Workbooks.Open("Database.xlsx")
If Not wb Is Nothing Then
  wb.SaveAs Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & Format(Now, "yymmdd_hhnnss") & ".xlsx", FileFormat:=51
Else
  MsgBox "Couldn`t find 'database.xlsx' in the directory of teh macro workjbook", vbInformation
End If
End Sub

Ciao,
Holger

Hi, Tony,

I'm navigating to a different folder

Is that always the same folder (can be laid down in code) or do you wish to have a Dialog to pick the file?

The new file now is saved in another folder

Always the same folder or switching from month to month or year to year?

Ciao,
Holger

Hi, Tony,

glad if I could have been of some help. Could you please mark this thread as solved (according to FAQ) although you´ve already done it in the post? TIA.

Holger