Πώς να αλλάξει την Ημερομηνία τροποποίησης στο Excel VBE

Η γλώσσα προγραμματισμού Excel VBA σας επιτρέπει να χειριστείτε το χρόνο κατά τον οποίο δημιουργήθηκε ένα αρχείο και να τροποποιηθεί . Αυτή η διαδικασία είναι επωφελής όταν θέλετε να χειραγωγήσουν προγραμματισμού ημερομηνίες αρχείο για να επαναφέρετε τις αλλαγές ή να συστήσει μια αυτόματη διαδικασία που παρακολουθεί τις αλλαγές που κάνουν οι άνθρωποι στο αρχείο Excel και την ημερομηνία κατά την οποία έγιναν οι αλλαγές στο αρχείο . Οδηγίες
Η

1 Ανοίξτε το λογισμικό Excel από το μενού του προγράμματος των Windows και ανοίξτε το αρχείο του Excel που θέλετε να χρησιμοποιήσετε για να επεξεργαστείτε την ημερομηνία του αρχείου . Κάντε κλικ στην καρτέλα "Προγραμματιστής " ή κορδέλα και κάντε κλικ στο κουμπί VBA για να ανοίξετε το αρχείο VBA κωδικό σας . 2

Δημιουργήστε τις μεταβλητές VBA . Θα πρέπει να ορίσετε τη μεταβλητή για την " Ημερομηνία τροποποίησης " χαρακτηριστικό του αρχείου και την ημερομηνία που θέλετε να χρησιμοποιήσετε για την ημερομηνία τροποποίησης . Ο παρακάτω κώδικας δημιουργεί τις μεταβλητές σας :

Dim αρχείο Όσον αφορά τα αποτελέσματα StringDim Όπως BooleanDim newdate Όπως DoubleDim τροποποιημένα Όπως FileDateToProcess
εικόνων 3

Ρυθμίστε το όνομα του αρχείου . Μπορείτε να χρησιμοποιήσετε το " αρχείο" μεταβλητή για να ορίσετε το όνομα του αρχείου . Ο παρακάτω κώδικας δημιουργεί το αρχείο όνομα συμβολοσειράς :

αρχείο = " myfile.xls "

Αντικαταστήστε το " myfile.xls " με οποιοδήποτε όνομα αρχείου που θέλετε να τροποποιήσετε
<. br > 4

Αλλάξτε την ημερομηνία τροποποίησης του αρχείου . Μπορείτε να χρησιμοποιήσετε τη λειτουργία Excel VBA " SetFileDateTime " για να επεξεργαστείτε την ημερομηνία τροποποίησης . Ο κώδικας που ακολουθεί αλλάζει την ημερομηνία " 1/1/2011 " :

newdate = " 1/1/2011 " αποτελέσματα = SetFileDateTime ( Όνομα αρχείου : = αρχείο , FileDateTime : = newdaate , WhichDateToChange : = τροποποιημένο , NoGMTConvert : = False )
5

Εμφάνιση μηνύματος επιτυχία στον χρήστη μετά την ημερομηνία αυτή τροποποιείται . Ο ακόλουθος κώδικας καθορίζει αν βρέθηκαν τυχόν λάθη και εμφανίζει το μήνυμα επιτυχίας :

Αν τα αποτελέσματα = True ThenDebug.Print " . Του αρχείου ήταν επιτυχής τροποποιημένο" End If

Η