Χρησιμοποιείτε αυτήν τη μακροεντολή για να καταγράψετε ένα ιστορικό εκδόσεων
Υπάρχουν πολλά βιβλία εργασίας που πρέπει να αποθηκεύονται σε σταθερά διαστήματα. Εάν χρησιμοποιείτε πάντα διαφορετικό όνομα, μπορείτε στη συνέχεια να ακολουθήσετε ακριβώς ποια δεδομένα βρέθηκαν στο βιβλίο εργασίας σε ποια χρονική στιγμή.
Είναι ιδιαίτερα χρήσιμο να χρησιμοποιήσετε μια σφραγίδα ημερομηνίας-ώρας κατά την αποθήκευση του αρχείου. Χρησιμοποιείτε συνδυασμό ημερομηνίας και ώρας ως όνομα αρχείου. Για παράδειγμα, εάν το αρχείο αποθηκευτεί στις 27/08/2008 στις 10:32 και 26 δευτερόλεπτα, το όνομα του αρχείου είναι:
20080827-103226
Το πλεονέκτημα μιας τέτοιας σφραγίδας ημερομηνίας-ώρας είναι ότι η εμφάνιση των αρχείων με αλφαβητική σειρά (για παράδειγμα με την Εξερεύνηση των Windows) αντιστοιχεί επίσης στη χρονολογική σειρά.
Ο ορισμός των τρέχοντων ονομάτων αρχείων με μη αυτόματο τρόπο είναι χρονοβόρος και επιρρεπής σε σφάλματα. Αντ 'αυτού, χρησιμοποιήστε την ακόλουθη μακροεντολή:
Sub WithTimestampSave ()
Χαμηλή χρονική σήμανση ημερομηνίας ως συμβολοσειρά
Dim Now As Date
Τώρα = Τώρα ()
Χρονοσήμανση ημερομηνίας = Έτος (Ημερομηνία) & Μορφή (Μήνας (Ημερομηνία), "00") & Μορφή (Ημέρα (Ημερομηνία), "00")
Χρονοσήμανση ημερομηνίας = Χρονική σφραγίδα ημερομηνίας & "-" & Μορφή (ourρα (Τώρα), "00") & Μορφή (Λεπτό (Τώρα), "00") & Μορφή (Δεύτερο (Τώρα), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & date stamp & ".xls")
Τέλος υπο
Όταν καλείτε τη μακροεντολή, το ενεργό βιβλίο εργασίας αποθηκεύεται ξανά στην προηγούμενη διαδρομή αποθήκευσης. Η σφραγίδα ημερομηνίας-ώρας χρησιμοποιείται ως όνομα αρχείου, όπως φαίνεται στο παρακάτω σχήμα:
Εάν θέλετε επίσης να συμπεριλάβετε αυτό το παράθυρο στη μακροεντολή σας, ενσωματώστε την ακόλουθη γραμμή προγράμματος ως ξεχωριστή, νέα γραμμή μπροστά από τη γραμμή Τέλος υπο:
MsgBox (ActiveWorkbook.Path)
