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
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα