I need to automate the copy of a workbook.? I have an Excel
spreadsheet located at C:\Reports\Test.xls, I need to copy it to
D:\BackUpReports\

What is the best way to do this.

With thanks

Bob

Use ActiveWorkbook.SaveCopyAs ... which will save a backup copy for you.

You can put the code in one of the following sub:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' if you want save a backup copy before close the file
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
' if you want save a backup copy before any saving action
End Sub

Private Sub Workbook_Open()
' if you want save a backup copy before file open
End Sub



"Robert Gillard" wrote in message
k...
I need to automate the copy of a workbook.? I have an Excel
spreadsheet located at C:\Reports\Test.xls, I need to copy it to
D:\BackUpReports\

What is the best way to do this.

With thanks

Bob

Hi Bob

From an external macro, something like

Sub test()
FileCopy "C:\temp\song.mp3", "D:\Anthems\song.mp3"
End Sub

from a macro within the file itself, something like

Sub test2()
ThisWorkbook.SaveCopyAs "D:\Anthems\" & ThisWorkbook.Name
End Sub

HTH. Best wishes Harald

"Robert Gillard" skrev i melding
k...
I need to automate the copy of a workbook.? I have an Excel
spreadsheet located at C:\Reports\Test.xls, I need to copy it to
D:\BackUpReports\

What is the best way to do this.

With thanks

Bob