Backup dữ liệu (1 người xem)

[thephi99]

Các bác ơi cho em hỏi mình có file Excel sợ nó bị mất muốn lưu dự phòng về ổ cứng khác
VD: File đang lưu là D:\Excel\LUONG\LUONG03-09
Mình muốn lưu về ổ C:\Backup\Excel
Xin các bác hướng dẫn giúp em, vỉ VBA em không biết.
Xin cảm ơn trước.

 

[Po_Pikachu]

Bác qua đây là thấy liền!
http://www.giaiphapexcel.com/forum/showthread.php?t=18352
Thân.

 

[thephi99]

Bác qua đây là thấy liền!
http://www.giaiphapexcel.com/forum/showthread.php?t=18352
Thân.

Em chỉ anh luôn anh muốn lưu lại mà lưu qua ổ khác đó
VD : D: sang E:\...\

 

[hoangdanh282vn]

Em chỉ anh luôn anh muốn lưu lại mà lưu qua ổ khác đó
VD : D: sang E:\...\

Xem trong link trên, Bài #18 :

Sub Backup()
With ThisWorkbook
.Save
.SaveCopyAs "D:\Backup\" & "Bak" & Format(Now, "_ddmmyy_hhmmss_") & .Name
End With
End Sub

Trong code trên, anh chỉnh lại đường dẫn cho phù hợp.

 

[thephi99]

Cảm ơn Danh anh làm được rồi.