[Hỏi - Đáp] Backup Dữ Liệu Excel Theo Ngày. (2 người xem)

[master90x]

Chào buổi sáng đại gia đình GPE. Chúc cả nhà một ngày làm việc vui vẻ.

Em đang có 1 vấn đề thế này. Hiện em đang có 1 file excel có chứa khoảng 10k bảng ghi về thông tin user. Nhưng bản ghi này tạm thời ko đưa được về dạng bản ghi kiểu CSDL được vì còn dùng chung với các bộ phận khác (Có thêm tiêu đề và rất nhiều thứ râu ria ko liên quan). Nên em định code thêm VBA để tạo ra 1 file chỉ chứa dữ liệu user để thuận tiện việc code VBA xử lí sau này. Nhưng vấn đề là dữ liệu thay đổi theo ngày vậy có cách nào để tự động hóa quá trình xử lí này hằng ngày được không?.

P/s: Trong MSSQL có SQL Agent để backup data hằng ngày. Hoặc với SQLExpress không có Agent thì chạy Windows Schedule + batch CMD để auto backup. Còn Excel thì không biết có code nào để tự động chạy không. Em cảm ơn ạ.

 

[Kiều Mạnh]

Chào buổi sáng đại gia đình GPE. Chúc cả nhà một ngày làm việc vui vẻ.

Em đang có 1 vấn đề thế này. Hiện em đang có 1 file excel có chứa khoảng 10k bảng ghi về thông tin user. Nhưng bản ghi này tạm thời ko đưa được về dạng bản ghi kiểu CSDL được vì còn dùng chung với các bộ phận khác (Có thêm tiêu đề và rất nhiều thứ râu ria ko liên quan). Nên em định code thêm VBA để tạo ra 1 file chỉ chứa dữ liệu user để thuận tiện việc code VBA xử lí sau này. Nhưng vấn đề là dữ liệu thay đổi theo ngày vậy có cách nào để tự động hóa quá trình xử lí này hằng ngày được không?.

P/s: Trong MSSQL có SQL Agent để backup data hằng ngày. Hoặc với SQLExpress không có Agent thì chạy Windows Schedule + batch CMD để auto backup. Còn Excel thì không biết có code nào để tự động chạy không. Em cảm ơn ạ.

Mình thì thích chơi vầy ... nếu Bạn thích thì chơi ko thì thui vậy he

Sub Backup()
Dim Ngay As Date
Ngay = Range("A1").Value
If Ngay <> Date Then
    ''Mi backup File cho tao he ...xong ...don gian vay thui
    Range("A1").Value = Date
    ThisWorkbook.Save
End If
End Sub

 

[master90x]

Mình thì thích chơi vầy ... nếu Bạn thích thì chơi ko thì thui vậy he

Sub Backup()
Dim Ngay As Date
Ngay = Range("A1").Value
If Ngay <> Date Then
    ''Mi backup File cho tao he ...xong ...don gian vay thui
    Range("A1").Value = Date
    ThisWorkbook.Save
End If
End Sub

Cái này mỗi lần mở Excel ra là phải bấm backup mới đc. Chắc vẫn làm nông dân quá bác ạ. Thôi chào bác em đi trồng khoai tự động phát =))

 

[Kiều Mạnh]

Cái này mỗi lần mở Excel ra là phải bấm backup mới đc. Chắc vẫn làm nông dân quá bác ạ. Thôi chào bác em đi trồng khoai tự động phát =))

Thay thế như sau là mỗi lần mở file Excel lên là nó chạy nè
Backup = Autpen()

 

[VetMini]

Thay thế như sau là mỗi lần mở file Excel lên là nó chạy nè
Backup = Autpen()

Thớt đã biết dùng "Windows Schedule" thì viết quách 1 cái lệnh DOS nó copy file. Khoẻ ru, suy nghĩ cốt kiếc cho mệt.

 

[master90x]

Thay thế như sau là mỗi lần mở file Excel lên là nó chạy nè
Backup = Autpen()

Thôi đằng nào cũng tầm 10k bản in. Chạy excel cũng ì ạch lắm. Em chắc viết DOS cho sang Access cho nhanh. Đang mày mò. Có gì OK sẽ share lên

 

[master90x]

Thớt đã biết dùng "Windows Schedule" thì viết quách 1 cái lệnh DOS nó copy file. Khoẻ ru, suy nghĩ cốt kiếc cho mệt.

Chắc vậy bác. E đang mò @@

 

[Kiều Mạnh]

Làm theo bài 5 hoặc cách sau

Viết 1 File *.exe cho nó chạy khi Khởi động Windows ..... cứ Mở máy là nó copy cho nó khỏe nếu quên copy thì nó cứ tự động vậy
Tạo 1 File *.txt hay file gì đó tùy thích .... Lưu ngày vô đó xong khi nó chay kiểm tra ngày trong đó nếu khác ngày hiên tại .... thì copy file cho Anh he ...xong