Giúp code tự động backup file sau khi đóng file (1 người xem)

[congnguyen88]

Mình muốn sau khi mình đóng file thì nó sẽ tự động backup thành 1 file khác theo thư mục mình chỉ định (VD: D:\data ) và tên file backup sẽ có tên thời gian ngay lúc Backkup ( VD: backup 4/2/2016 14:30.xls )
Rất mong mọi người giúp đở nhiệt tình. Chúc mọi người năm mới vui vẽ

 

[dhn46]

Bạn dùng code dạng như thế này và chỉnh sửa cho phù hợp.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim fpath As String
    fpath = "D:\backup " & Format(Now(), "ddmmyy-hhmm") & ".xlsm"
    Application.ThisWorkbook.SaveAs fpath
End Sub

 

[VetMini]

Yêu cầu lạ lùng. Backup như vậy thì ra 2 files in hệt nhau?
Đáng lẽ phải backup khi mở ra. Sau khi save sẽ được 1 phiên bản mới và phiên bản trước khi sửa.

 

[congnguyen88]

Bạn dùng code dạng như thế này và chỉnh sửa cho phù hợp.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim fpath As String
    fpath = "D:\backup " & Format(Now(), "ddmmyy-hhmm") & ".xlsm"
    Application.ThisWorkbook.SaveAs fpath
End Sub

Qúa chuẩn và hoàn toàn đúng theo ý của mình.Thank

 

[Kiều Mạnh]

Qúa chuẩn và hoàn toàn đúng theo ý của mình.Thank

Mới nhậu về cũng đang rãnh hơi làm cho Bạn hơi cầu kỳ một tí có thể tham khảo thêm

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim FolderPath As String
    FolderPath = "D:\backup\"
    With CreateObject("Scripting.FileSystemObject")
        If Not .FolderExists(FolderPath) Then .CreateFolder (FolderPath)        ThisWorkbook.SaveCopyAs FolderPath & "Ngay" & Format(Now(), _        "_dd-mm-yy_hhmmss") & ThisWorkbook.Name
    End With
End Sub

 

[congnguyen88]

Lúc nảy mình chưa Test kỷ, giờ Test kỷ mình mới thấy nó bảo lổi như thế này. mình muốn nó không hiện bảng thông báo này

 

[Kiều Mạnh]

Lúc nảy mình chưa Test kỷ, giờ Test kỷ mình mới thấy nó bảo lổi như thế này. mình muốn nó không hiện bảng thông báo nàyView attachment 154843

Hồi chiều tui mới nhậu về quậy chơi...viết cho Bạn xong....Bạn tui keo đi nhậu nữa lại vừa về xong mở Chôm chôm thấy cái hình ... hông biết Bạn hỏi cái gì mà vô thiên vô địa vậy...ít ra hỏi ai .. cái gì...thì người đọc người ta mới hiểu chớ...
đừng có hỏi vào hư vô như vậy ha...có gì mai tính tiếp...ngủ
hết phim

 

[dhn46]

Lúc nảy mình chưa Test kỷ, giờ Test kỷ mình mới thấy nó bảo lổi như thế này. mình muốn nó không hiện bảng thông báo nàyView attachment 154843

Có nghĩa là file tên như thế đã tồn tại => Trùng tên. Vậy là bạn biết cách xử lý rồi nhỉ?

Bạn làm gì mà trong 1 phút mở ra đóng vào những 2 lần => thế này có mà backup đầy ổ.