Code save file excel làm 2 bản (2 người xem)

[Datcdt2k9]

Em chào mọi người
Em cần lưu file excel làm 2 bản, mỗi lần nhấn ctrl + S ( lưu file ) sẽ tạo thành 2 bản excel lưu trên 2 ổ( thư mục khác nhau) đề phòng trường hợp 1 file gặp vấn đề như bị xóa, lỗi...thì còn 1 file backup sẵn.
Nhờ các anh chị giúp đỡ ạ
Em xin cảm ơn.

 

[Hoàng Tuấn 868]

Em chào mọi người
Em cần lưu file excel làm 2 bản, mỗi lần nhấn ctrl + S ( lưu file ) sẽ tạo thành 2 bản excel lưu trên 2 ổ( thư mục khác nhau) đề phòng trường hợp 1 file gặp vấn đề như bị xóa, lỗi...thì còn 1 file backup sẵn.
Nhờ các anh chị giúp đỡ ạ
Em xin cảm ơn.

Vậy khi đang nhập liệu bạn ctrl+ S thì cũng tạo luôn 2 file mới sao?

 

[befaint]

Cái vụ ao tu bách úp lần trước của bạn chưa giải quyết được à?

 

[Maika8008]

Em chào mọi người
Em cần lưu file excel làm 2 bản, mỗi lần nhấn ctrl + S ( lưu file ) sẽ tạo thành 2 bản excel lưu trên 2 ổ( thư mục khác nhau) đề phòng trường hợp 1 file gặp vấn đề như bị xóa, lỗi...thì còn 1 file backup sẵn.
Nhờ các anh chị giúp đỡ ạ
Em xin cảm ơn.

Thời này mà không tận dụng được đám mây kèm tiện ích đồng bộ PC-Cloud thì phí thật. Lẽ ra việc của bạn đơn giản và an toàn hơn rất nhiều nếu dùng Google Drive chẳng hạn.

 

[khitamdao]

Em chào mọi người
Em cần lưu file excel làm 2 bản, mỗi lần nhấn ctrl + S ( lưu file ) sẽ tạo thành 2 bản excel lưu trên 2 ổ( thư mục khác nhau) đề phòng trường hợp 1 file gặp vấn đề như bị xóa, lỗi...thì còn 1 file backup sẵn.
Nhờ các anh chị giúp đỡ ạ
Em xin cảm ơn.

- Đầy phần mềm tự động sao lưu mà, cần gì phải làm kiểu này cho mệt.
- Dùng google drive như bác trên nói cũng ổn.

 

[Datcdt2k9]

Cái vụ ao tu bách úp lần trước của bạn chưa giải quyết được à?em vẫn chưa

Cái vụ ao tu bách úp lần trước của bạn chưa giải quyết được à?

Em vẫn chưa giải quyết được anh ạ, em tìm hiểu robocopy mà áp dụng vào test lấy file trên server về máy mà toàn báo lỗi

Bài đã được tự động gộp: 20/1/21

Thời này mà không tận dụng được đám mây kèm tiện ích đồng bộ PC-Cloud thì phí thật. Lẽ ra việc của bạn đơn giản và an toàn hơn rất nhiều nếu dùng Google Drive chẳng hạn.

Em không được cài phần mềm hay app gì anh ạ nên lên diễn đàn nhờ anh chị giúp code save file excel làm 2 bản, không may bị mất file còn có file ứng cứu

Bài đã được tự động gộp: 20/1/21

- Đầy phần mềm tự động sao lưu mà, cần gì phải làm kiểu này cho mệt.
- Dùng google drive như bác trên nói cũng ổn.

Em không được cài thêm app hay phần mềm gì anh ạ

Bài đã được tự động gộp: 20/1/21

Vậy khi đang nhập liệu bạn ctrl+ S thì cũng tạo luôn 2 file mới sao?

Vâng a, cứ ctrl +s là excel được lưu làm 2 file, nhưng dạng update chứ không phải cứ nhấn save là tạo ra 2 bản tại các thời điểm khác nhau anh ạ

 

[Hoàng Tuấn 868]

Vâng a, cứ ctrl +s là excel được lưu làm 2 file, nhưng dạng update chứ không phải cứ nhấn save là tạo ra 2 bản tại các thời điểm khác nhau anh ạ

Vậy làm sao máy nhận ra được là đoạn dữ liệu mới gõ vào với dữ liệu cũ cách đây 1 tiếng hay 2 tiếng rồi chọn ra để cập nhật bạn nhỉ.

 

[Datcdt2k9]

Vậy làm sao máy nhận ra được là đoạn dữ liệu mới gõ vào với dữ liệu cũ cách đây 1 tiếng hay 2 tiếng rồi chọn ra để cập nhật bạn nhỉ.

Như vậy là cứ save là sẽ tạo ra các bản excel tương ứng từng thời điểm à anh, bản gốc vẫn như cũ

 

[Hoàng Tuấn 868]

Như vậy là cứ save là sẽ tạo ra các bản excel tương ứng từng thời điểm à anh, bản gốc vẫn như cũ

Vậy nhỡ tay xếp lại là lại ra hai bản mới, có vẻ không hợp lý bạn ạ.

 

[Datcdt2k9]

Vậy nhỡ tay xếp lại là lại ra hai bản mới, có vẻ không hợp lý bạn ạ.

Vậy anh có cách nào giải quyết bài toán này giúp em với ạ

 

[Hoàng Tuấn 868]

Vậy anh có cách nào giải quyết bài toán này giúp em với ạ

Cái này xuất phát từ nhu cầu thực tế của bạn, mình cũng chưa nghĩ ra nhưng ý tưởng trên thì chắc không phù hợp.

 

[VetMini]

Cái này xuất phát từ nhu cầu thực tế của bạn, mình cũng chưa nghĩ ra nhưng ý tưởng trên thì chắc không phù hợp.

Nhu cầu chính của thớt là backup dữ liệu để đề phòng mất điện.
Những cái thớt nghĩ ra là nhu cầu của các cơ quan thứ dữ, cần dạng backup song song. Ví dụ một database server ngỏm thì lập tức server thứ hai nhảy vào thay thế, database in hệt như vậy.

Muốn hai bản thì cứ tạo một cai phần mềm ở sau lưng (running in background). Phần mềm xét hễ có file mới saved thì copy vào archive.

 

[Maika8008]

Vậy làm sao máy nhận ra được là đoạn dữ liệu mới gõ vào với dữ liệu cũ cách đây 1 tiếng hay 2 tiếng rồi chọn ra để cập nhật bạn nhỉ.

Tôi nghĩ cứ lưu đè file sao lưu không cần hỏi, bất kể dữ liệu mới sai đúng thế nào thì được chứ?

 

[Datcdt2k9]

Tôi nghĩ cứ lưu đè file sao lưu không cần hỏi, bất kể dữ liệu mới sai đúng thế nào thì được chứ?

Ý em muốn cũng là như vậy,bản backup thì sẽ ghi đè, vì chỉ cần lấy dữ liệu lần ctrl +s cuối cùng

 

[huuthang_bd]

Ý em muốn cũng là như vậy,bản backup thì sẽ ghi đè, vì chỉ cần lấy dữ liệu lần ctrl +s cuối cùng

Bạn thử code này xem.

Private Const sBackupFolder As String = "D:\Backup\"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs sBackupFolder & ThisWorkbook.Name
End Sub

 

[Datcdt2k9]

Bạn thử code này xem.

Private Const sBackupFolder As String = "D:\Backup\"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs sBackupFolder & ThisWorkbook.Name
End Sub

Em chép code này vào vba test thì lúc run không hiện tên sub để run anh ạ

 

[befaint]

Em chép code này vào vba test thì lúc run không hiện tên sub để run anh ạ

Chép vào ThisWorkbook. Và không cần ấn chạy Sub, chỉ cần ấn lưu file là được.

 

[Datcdt2k9]

Chép vào ThisWorkbook. Và không cần ấn chạy Sub, chỉ cần ấn lưu file là được.

View attachment 253324

Vâng anh, em test lại ạ

 

[Datcdt2k9]

Chép vào ThisWorkbook. Và không cần ấn chạy Sub, chỉ cần ấn lưu file là được.

View attachment 253324

Em làm được rồi, cảm ơn các anh đã giúp em

Bài đã được tự động gộp: 21/1/21

Bạn thử code này xem.

Private Const sBackupFolder As String = "D:\Backup\"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs sBackupFolder & ThisWorkbook.Name
End Sub

Em test ok rồi ạ, em cảm ơn anh

 

[Datcdt2k9]

Bạn thử code này xem.

Private Const sBackupFolder As String = "D:\Backup\"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs sBackupFolder & ThisWorkbook.Name
End Sub

Trong quá trình sử dụng nếu em nhấn ctrl+s 2 lần liên tiếp sẽ NG, số lần nhấn là số lẻ code chạy ok, số lần nhấn là số chẵn sẽ NG code( run tine error 1004) và file backup bị mất, anh kiểm tra giúp em ạ