tạo vba autosave

[quockhanh209]

hi mọi người, tình hình là mình muốn tạo macro tự backup file excel ra một vị trí khác file gốc, file backup tạo ra theo giờ mình muốn, file backup mới sẽ lưu đè lên file mới và tên file backup có kèm ngày giờ.
Bác nào biết, giúp em với nhé.
Thanks!!!!!!

 

[Lequocvan]

'Backup file theo thoi gian thuc
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Dim Filenames, Fath As String
    Fath = ThisWorkbook.Path
    Filenames = ActiveWorkbook.Name & "_" & Format(Now, "_ddmmyyyy_hh-mm-ss_") & ".xlsm"
    ActiveWorkbook.Copy 'Lenh backup file 1
    ActiveWorkbook.SaveCopyAs Filename:="E:\" & Filenames 'Lenh backup file 2

Nội dung trên bạn sửa cho phù hợp