Нужно сделать резервную копию БД Access из Excel-я

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile "C:\temp\test.mdb", "C:\temp\temp\test.mdb"

'Копирование файла
'В отличие от FileCopy, копирует открытый файл.
'При копировании появляется окно состояния копирования
'Если файл уже уже существует, появляется диалоговое окно
Private Type SHFILEOPSTRUCT
        hwnd As Long
        wFunc As Long
        pFrom As String
        pTo As String
        fFlags As Integer
        fAnyOperationsAborted As Long
        hNameMappings As Long
        lpszProgressTitle As Long
End Type
Private Declare Function SHFileOperation Lib _
"shell32.dll" Alias "SHFileOperationA" _
(lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_MOVE = &H1
Private Const FO_COPY = &H2
Private Const FOF_SILENT = &H4
Private Const FOF_RENAMEONCOLLISION = &H8
'Далее сам макрос
Sub FileCopyMacro()
Dim ShellCall As SHFILEOPSTRUCT
Dim FileSource As String 'Полный путь с названием файла-источника
Dim FileDestination As String 'Полный путь с названием файла-получаемого
FileSource = ""
FileDestination = ""
ShellCall.hwnd = hwnd
ShellCall.wFunc = FO_COPY
ShellCall.pFrom = "c:Мои документыOldfile.xls"
ShellCall.pTo = "d:Newfile.xls"
ShellCall.hNameMappings = 0
Call SHFileOperation(ShellCall)
End Sub