Tạo file backup sang thư mục khác

Chân thành cảm ơn.

Em có một vài file Excel đang để tại thư mục A (thư mục làm việc hàng ngày). Nhằm tránh bị xoá mất file. Nên em muốn tạo file backup và được lưu trữ tại một thư mục khác ngoài thư mục làm việc hàng ngày nhưng không muốn làm xong lại phải copy sang. (Đã tạo file backup (.xlk) nhưng file backup lại nằm trong thư mực làm việc hàng ngày). Các bác xem giúp em vấn đề này nhé. Chân thành cảm ơn.

Bạn copy code này vào file bạn cần lưu nha.

Sub Saveasfile()
Dim Msg, style, title, TB, a
Dim Filenames, Fath As String
On Error Resume Next

Application.ScreenUpdating = False
Fath = ThisWorkbook.Path
Filenames = ActiveWorkbook.Name & "_" & Format(Date, "dd-mm-yy") & ".xls"

Msg = "Luu du lieu : " & Filenames & " Ban muon luu file nay ? "
style = vbYesNo + vbInformation
title = "THONG BAO ! "
TB = MsgBox(Msg, style, title)
If TB = vbYes Then
ActiveWorkbook.Copy
ActiveWorkbook.SaveAs Filename:=Fath & "Backup" & Filenames
'ActiveWorkbook.Close savechanges:=False
Else: Exit Sub
End If
End Sub

Chú ý tạo thư mục cần lưu là Backup cùng thư mục với file.

www.giaiphapexcel.com/diendan/threads/t%E1%BA%A1o-file-backup-sang-th%C6%B0-m%E1%BB%A5c-kh%C3%A1c.31884/

Khóa học SprinGO phù hợp

Ứng dụng AI và Chat GPT trong Quản trị nhân sự

Học xong khóa này, học viên có thể: Hiểu đúng bản chất AI, các nhóm AI phổ biến và cách AI “hoạt động” ở...

Xem khóa học