Γνωρίζετε ότι η υποστήριξη της εργασίας σας είναι σημαντική. Τώρα μπορείτε να έχετε μια μακροεντολή Excel να το κάνει για εσάς. Αυτή η απλή μακροεντολή αποθηκεύει το βιβλίο εργασίας σας σε ένα νέο αρχείο με τη σημερινή ημερομηνία ως μέρος του ονόματος.
Πώς λειτουργεί η μακροεντολή
Το κόλπο σε αυτήν τη μακροεντολή συνδυάζει το νέο όνομα αρχείου ως διαδρομή, τη σημερινή ημερομηνία και το αρχικό όνομα αρχείου.
Η διαδρομή καταγράφεται χρησιμοποιώντας την ιδιότητα Path του αντικειμένου ThisWorkbook. Η σημερινή ημερομηνία συλλαμβάνεται με τη συνάρτηση Ημερομηνία.
Από προεπιλογή, η συνάρτηση Ημερομηνία επιστρέφει μμ/ηη/εεεε. Οι προς τα εμπρός κάθετες θα προκαλούσαν την αποτυχία της αποθήκευσης του αρχείου, επομένως διαμορφώνετε την ημερομηνία χρησιμοποιώντας ενωτικά (Μορφή(Ημερομηνία, «μμ-ηη-εε»)) επειδή τα Windows δεν επιτρέπουν κάθετες προς τα εμπρός στα ονόματα αρχείων.
Το τελευταίο κομμάτι του νέου ονόματος αρχείου είναι το αρχικό όνομα αρχείου. Μπορείτε να το καταγράψετε χρησιμοποιώντας την ιδιότητα Name του αντικειμένου ThisWorkbook:
Sub Macro1()
«Βήμα 1: Αποθήκευση βιβλίου εργασίας με νέο όνομα αρχείου
This Workbook.SaveCopyAs _
Όνομα αρχείου:=ThisWorkbook.Path & " & _