Πώς να ανοίξετε το πιο πρόσφατο αρχείο σε ένα φάκελο στο Microsoft Excel
Σε περίπτωση που θέλετε έναν κωδικό VBA που θα σας επιτρέψει να ανοίξετε το πρόσφατα αποθηκευμένο αρχείο στο φάκελο με ένα μόνο κλικ στο κουμπί μακροεντολής.
Ερώτηση): Έχω μια ομάδα 10 ατόμων και αναζητώ επειγόντως μια μακροεντολή που θα με βοηθήσει να ανοίξω το πιο πρόσφατο αρχείο που έχει αποθηκευτεί από το μέλος της ομάδας, έτσι ώστε να μην χρειαστεί να ακολουθήσω τη διαδρομή όπου αποθηκεύεται το αρχείο.
Πρέπει να ακολουθήσουμε τα παρακάτω βήματα:
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κωδικών, επιλέξτε Visual Basic
- Εισαγάγετε τον ακόλουθο κώδικα στη μονάδα φύλλου εργασίας
Επιλογή ρητή
Υπο NewestFile ()
Dim MyPath As String
Dim MyFile As String
Dim LatestFile As String
Dim LatestDate As Date
Dim LMD ως ημερομηνία
MyPath = "C: \ Users \ Documents \"
Εάν είναι σωστό (MyPath, 1) "\" Τότε MyPath = MyPath & "\"
MyFile = Dir (MyPath & "*.xls", vbNormal)
Αν Len (MyFile) = 0 Τότε
MsgBox "Δεν βρέθηκαν αρχεία …", vbExclamation
Έξοδος Sub
Τέλος εαν
Do while Len (MyFile)> 0
LMD = FileDateTime (MyPath & MyFile)
Εάν LMD> Τελευταία Ημερομηνία Τότε
LatestFile = MyFile
LatestDate = LMD
Τέλος εαν
MyFile = Σκηνοθεσία
Βρόχος
Τετράδια εργασίας. Ανοίξτε το MyPath & LatestFile
Τέλος υπο
Με αυτόν τον τρόπο, χρησιμοποιώντας κώδικα μακροεντολής, θα μπορούμε να ανοίξουμε το πιο πρόσφατο αρχείο που έχει αποθηκευτεί από το μέλος της ομάδας.
Λήψη - Πώς να ανοίξετε το νεότερο αρχείο σε ένα φάκελο - xlsm