Σε αυτό το σεμινάριο, θα μοιραστώ μαζί σας 5 κατάλληλοι τρόποι για να αποθηκεύσετε ένα αντίγραφο ενός αρχείου excel σε XLSX μορφή χρησιμοποιώντας VBA Μπορείτε να χρησιμοποιήσετε αυτές τις μεθόδους σε κάθε τύπο βιβλίου εργασίας είτε περιέχουν μεγάλα είτε μικρά δεδομένα. Επίσης, καθώς θα χρησιμοποιήσουμε VBA , δεν θα χρειαστεί σχεδόν καθόλου χρόνο για να ολοκληρωθεί το έργο.

Κατεβάστε το βιβλίο ασκήσεων

Μπορείτε να κατεβάσετε το βιβλίο ασκήσεων από εδώ.

Τι είναι ένα αρχείο XLSX;

Το XLSX αρχείο είναι ένα MS Excel Ανοιχτό φύλλο μορφής XML που αποθηκεύει δεδομένα σε κελιά που περιέχονται μέσα σε φύλλα εργασίας. Τα κελιά είναι τοποθετημένα σε μια δομή γραμμής-στήλης. MS Excel 2007 και νωρίτερα, αυτό το αρχείο υπολογιστικού φύλλου ήταν του τύπου XLS .

5 κατάλληλοι τρόποι για να αποθηκεύσετε ένα αντίγραφο του αρχείου Excel ως XLSX χρησιμοποιώντας την VBA

Σε αυτό το σεμινάριο, ο κύριος σκοπός μας είναι να σας δείξουμε πώς να αποθηκεύσετε ένα τρέχον βιβλίο εργασίας σε ένα XLSX Έτσι, πήραμε ένα απλό και συνοπτικό σύνολο δεδομένων που έχει 3 στήλες και 6 αρχεία των βαθμολογιών των μαθητών. Έχετε όμως τη δυνατότητα να χρησιμοποιήσετε τα δικά σας σύνολα δεδομένων.

1. Χρήση της μεθόδου SaveCopyAs

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

Βήματα:

• Πρώτον, μεταβείτε στο Προγραμματιστής και επιλέξτε Visual Basic .

• Στη συνέχεια, στο Visual Basic παράθυρο, κάντε κλικ στο Εισαγωγή και επιλέξτε Ενότητα .

• Τώρα, στο νέο παράθυρο της ενότητας στα δεξιά, πληκτρολογήστε τον ακόλουθο τύπο:

 Sub SaveCopyAs_Method() Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs "C:\Users\USER\Desktop\5700\SaveCopyAs method.xlsx" End Sub 

• Στη συνέχεια, κλείστε το VBA και πλοηγηθείτε στο παράθυρο Προγραμματιστής και πάλι την καρτέλα.
• Εδώ, επιλέξτε Μακροεντολές .

• Τώρα, στο Μάκρο θα πρέπει να δείτε τον κώδικα της μακροεντολής που εισαγάγαμε.
• Στη συνέχεια, κάντε κλικ στο Εκτέλεση .

• Τέλος, ανοίξτε το φάκελο στον οποίο αποθηκεύσατε το αρχείο και θα πρέπει να είναι διαθέσιμο στο παράθυρο XLSX μορφή όπως θέλαμε.

Διαβάστε περισσότερα: Πώς να αποθηκεύσετε αρχεία μακροεντολών του Excel ως όνομα αρχείου από την τιμή κελιού

2. Καθορισμός του ονόματος αρχείου

Μπορούμε να αποθηκεύσουμε ένα αντίγραφο ενός αρχείου excel στο XLSX μορφή καθορίζοντας το όνομα του αρχείου στην εντολή VBA κώδικα. Όταν ορίζουμε το όνομα του αρχείου, θα προσθέσουμε και την επέκταση του αρχείου, η οποία θα μετατρέψει το αρχείο στην επιθυμητή μορφή. Για να προχωρήσουμε με αυτή τη μέθοδο, εισάγετε τον παρακάτω κώδικα στο VBA παράθυρο μονάδας.

 Sub Specify_file_name() Dim location As String location = "C:\Users\USER\Desktop\5700\Specify file name.xlsx" ActiveWorkbook.SaveAs Filename:=location End Sub 

Αφού πληκτρολογήσετε τον κώδικα, απλά εκτελέστε τον από το Μακροεντολές όπως δείξαμε προηγουμένως. Τώρα, πηγαίνετε στο φάκελο αποθήκευσης και το αρχείο με το XLSX μορφή θα πρέπει να είναι εκεί τώρα.

Διαβάστε περισσότερα: Excel VBA για να αποθηκεύσετε το βιβλίο εργασίας σε συγκεκριμένο φάκελο με ημερομηνία

3. Εισαγωγή αριθμού μορφής αρχείου

Οι αριθμοί μορφής αρχείου είναι μοναδικοί αριθμοί που δηλώνουν έναν συγκεκριμένο τύπο αρχείου κατά την αποθήκευση. Για αυτό το σεμινάριο, ο στόχος μας είναι να αποθηκεύσουμε ένα αντίγραφο του excel ως XLSX αρχείο χρησιμοποιώντας VBA Έτσι, θα χρησιμοποιήσουμε τον αριθμό μορφής 51 , το οποίο δηλώνει το XLSX Έτσι, πληκτρολογήστε τον ακόλουθο κώδικα στο αρχείο VBA ενότητα:

 Sub file_format_number() Dim location As String Application.DisplayAlerts = False location = "C:\Users\USER\Desktop\5700\File format number" ActiveWorkbook.SaveAs Filename:=location, FileFormat:=51 End Sub 

Τώρα, αν εκτελέσετε αυτόν τον κώδικα, το excel θα αποθηκεύσει αμέσως το βιβλίο εργασίας σε ένα XLSX μορφή. Μπορείτε να το επιβεβαιώσετε αυτό ελέγχοντας στο φάκελο προορισμού.

Διαβάστε περισσότερα: Excel VBA Αποθήκευση ως μορφή αρχείου (12 κατάλληλα παραδείγματα)

4. Αποθήκευση με κωδικό πρόσβασης

Σε πολλές περιπτώσεις, είναι πολύ σημαντικό να αποθηκεύσετε ένα αντίγραφο ενός βιβλίου εργασίας excel σε XLSX μορφή με έναν πρόσθετο κωδικό πρόσβασης. Αυτό ισχύει ιδιαίτερα για τα βιβλία εργασίας που έχουν υψηλές ανησυχίες για την ασφάλεια. Μπορείτε να επιτύχετε αυτό το έργο πολύ εύκολα με τη χρήση του VBA και τον καθορισμό ενός προσαρμοσμένου κωδικού πρόσβασης παράλληλα με την αποθήκευση του εγγράφου σας. Για το σκοπό αυτό, πληκτρολογήστε τα παρακάτω VBA κώδικα στο Ενότητα παράθυρο:

 Sub Save_With_Password() Application.DisplayAlerts = False ActiveWorkbook.SaveAs _ Filename:="C:\Users\USER\Desktop\5700\Save with password.xlsx", Password:="one" End Sub 

Τέλος, όπως είδαμε προηγουμένως, πρέπει απλά να εκτελέσετε αυτόν τον κώδικα από το Μακροεντολές Τώρα, αν πάτε στον αποθηκευμένο φάκελο σας, θα πρέπει να βρείτε το αρχείο με το όνομα που δώσατε και το XLSX επέκταση στο τέλος.

Διαβάστε περισσότερα: Excel VBA: Αποθήκευση φύλλου ως νέο βιβλίο εργασίας χωρίς άνοιγμα

5. Αποθηκεύστε συνιστώντας μόνο ανάγνωση

Ένας λιγότερο αυστηρός τρόπος προστασίας ενός εγγράφου είναι να το κάνετε αρχείο μόνο για ανάγνωση. Αν αποθηκεύσετε ένα αντίγραφο του αρχείου excel στο XLSX μορφή, τότε μπορείτε να ορίσετε τη συνθήκη μόνο για ανάγνωση χρησιμοποιώντας VBA . Τώρα, για να το κάνετε αυτό, εισάγετε τον ακόλουθο κώδικα στο αρχείο VBA ενότητα:

 Sub recommend_read_only() Application.DisplayAlerts = False ActiveWorkbook.SaveAs _ Filename:="C:\Users\USER\Desktop\5700\Recommend read only.xlsx", _ ReadOnlyRecommended:=True End Sub 

Στη συνέχεια, εκτελέστε αυτόν τον κώδικα από το Μακροεντολές επιλογή στο πλαίσιο του Προγραμματιστής Αυτό θα πρέπει να αποθηκεύσει ένα XLSX αντίγραφο του τρέχοντος βιβλίου εργασίας, όπως φαίνεται παρακάτω.

Διαβάστε περισσότερα: Excel VBA για την αποθήκευση αρχείου με μεταβλητό όνομα (5 παραδείγματα)

Πράγματα που πρέπει να θυμάστε

• Βεβαιωθείτε ότι έχετε αλλάξει τη διαδρομή αποθήκευσης του XLSX αρχείο στο VBA Θα πρέπει να ταιριάζει με τη διαδρομή ενός φακέλου στον υπολογιστή σας.
• Ελέγξτε δύο φορές για να βεβαιωθείτε ότι γράφετε ορθογραφικά όλα τα ενσωματωμένα VBA λειτουργεί ακριβώς όπως έχω κάνει.
• Να θυμάστε ότι, σε ορισμένες περιπτώσεις, η VBA ο κώδικας μπορεί να μην είναι πλέον διαθέσιμος στο VBA παράθυρο μετά την εκτέλεση του κώδικα.

Συμπέρασμα

Ελπίζω ότι οι μέθοδοι που έδειξα για να αποθηκεύσω ένα αντίγραφο αρχείου excel σε XLSX μορφή χρησιμοποιώντας VBA σας βοήθησαν. Αν κολλήσετε σε κάποιο από τα βήματα ή ένας κώδικας δεν λειτουργεί, τότε θα σας πρότεινα να ελέγξετε τους κώδικες που σας έδωσα μερικές φορές. Επίσης, δοκιμάστε να αλλάξετε τον κώδικα σε κάποιο βαθμό για να καταλάβετε τι κάνει ο κώδικας. Τέλος, για να μάθετε περισσότερα excel τεχνικές, ακολουθήστε τις ExcelWIKI Εάν έχετε οποιαδήποτε απορία, ενημερώστε με στα σχόλια.