Bạn sử dụng macro này để ghi lại lịch sử phiên bản
Có nhiều sổ làm việc nên được lưu vào các khoảng thời gian cố định. Nếu bạn luôn sử dụng một tên khác, thì bạn có thể theo dõi chính xác dữ liệu nào được tìm thấy trong sổ làm việc tại thời điểm nào.
Đặc biệt hữu ích khi sử dụng dấu ngày-giờ khi lưu tệp. Bạn sử dụng kết hợp ngày và giờ làm tên tệp. Ví dụ: nếu tệp được lưu vào ngày 27/08/2008 lúc 10:32 và 26 giây, tên tệp là:
20080827-103226
Ưu điểm của dấu ngày-giờ như vậy là việc hiển thị các tệp theo thứ tự bảng chữ cái (ví dụ với Windows Explorer) cũng tương ứng với thứ tự thời gian.
Việc xác định tên tệp hiện tại theo cách thủ công rất tốn thời gian và dễ xảy ra lỗi. Thay vào đó, hãy sử dụng macro sau:
Sub WithTimestampSave ()
Làm mờ dấu thời gian ngày dưới dạng chuỗi
Làm mờ ngay bây giờ như ngày
Now = Bây giờ ()
Dấu thời gian = Năm (Ngày) & Định dạng (Tháng (Ngày), "00") & Định dạng (Ngày (Ngày), "00")
Date Time Stamp = Date Time Stamp & "-" & Format (Hour (Now), "00") & Format (Minute (Now), "00") & Format (Second (Now), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & date tem & ".xls")
Kết thúc Sub
Khi bạn gọi macro, sổ làm việc hiện hoạt được lưu lại trong đường dẫn lưu trữ trước đó. Dấu ngày-giờ được sử dụng làm tên tệp, như thể hiện trong hình sau:
Nếu bạn cũng muốn bao gồm cửa sổ này trong macro của mình, hãy tích hợp dòng chương trình sau dưới dạng một dòng mới, riêng biệt ở phía trước dòng Kết thúc Sub:
MsgBox (ActiveWorkbook.Path)
