Πίνακας περιεχομένων
Αποθηκεύουμε σημαντικές πληροφορίες σε Excel Επίσης, εκτελούμε διάφορες λειτουργίες ανάλογα με τις απαιτήσεις μας. Έτσι, είναι απαραίτητο να αποθηκεύσουμε το αρχείο μόλις το ενημερώσουμε. Διαφορετικά, μπορεί να χάσουμε κάποια πολύτιμα δεδομένα. Υπάρχουν ορισμένοι αποτελεσματικοί τρόποι για να Αποθήκευση ένα Βιβλίο εργασίας του Excel . Επιπλέον, η αποθήκευση ενός Excel αρχείο σύμφωνα με το επιθυμητό μας Μορφή , ή την αποθήκευση του αρχείου στο επιθυμητό Τοποθεσία είναι ένα άλλο ζωτικής σημασίας έργο. Σε αυτό το άρθρο, θα σας δείξουμε τα πιο χρήσιμα παραδείγματα των Excel VBA Αποθήκευση ως μορφή αρχείου .
Κατεβάστε το βιβλίο ασκήσεων
Κατεβάστε το παρακάτω βιβλίο εργασίας για να εξασκηθείτε μόνοι σας.
VBA Αποθήκευση ως μορφή αρχείου.xlsm12 παραδείγματα αποθήκευσης αρχείων Excel VBA ως μορφή αρχείου
Για να γίνει κατανοητό, θα χρησιμοποιήσουμε το ακόλουθο σύνολο δεδομένων ως παράδειγμα. Για παράδειγμα, το σύνολο δεδομένων αναπαριστά το Πωλητής , Προϊόν , και Καθαρές πωλήσεις μιας εταιρείας. Εδώ, θα αποθηκεύσουμε αυτό το βιβλίο εργασίας εφαρμόζοντας Excel VBA Αποθήκευση ως μορφή αρχείου .
1. VBA για να αποθηκεύσετε ως αρχείο Excel
Στο πρώτο μας παράδειγμα, θα σας δείξουμε ένα απλό Κώδικας VBA για να αποθηκεύσετε ένα Excel Επομένως, ακολουθήστε τα παρακάτω βήματα για να εκτελέσετε την εργασία.
ΒΗΜΑΤΑ:
- Πρώτον, μεταβείτε στο Καρτέλα Developer.
- Στη συνέχεια, επιλέξτε Visual Basic .
- Ως αποτέλεσμα, η VBA θα εμφανιστεί το παράθυρο.
- Μετά από αυτό, κάντε κλικ στο Εισαγωγή .
- Στη συνέχεια, επιλέξτε το Ενότητα .
- Ως εκ τούτου, η Ενότητα θα εμφανιστεί το παράθυρο.
- Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον στο πλαίσιο.
Sub Example_1() ActiveWorkbook.SaveAs End Sub 
- Τώρα, εκτελέστε τον κώδικα πατώντας F5 .
- Κατά συνέπεια, θα πρέπει να εισαγάγετε το όνομα του αρχείου, τη μορφή και άλλες πληροφορίες που σας ζητούνται.
- Τέλος, θα αποθηκεύσει το αρχείο στην τοποθεσία που έχετε ορίσει.
Διαβάστε περισσότερα: Πώς να αποθηκεύσετε ένα φύλλο εργασίας ως νέο αρχείο χρησιμοποιώντας το Excel VBA
2. Καθορισμός επέκτασης αρχείου με το Excel VBA
Στο προηγούμενο παράδειγμα, έπρεπε να καθορίσουμε χειροκίνητα το Μορφή αρχείου μετά το πάτημα της εντολής run. Αλλά εδώ, θα δείξουμε έναν πιο αποτελεσματικό τρόπο για την εφαρμογή Excel VBA Αποθήκευση ως μορφή αρχείου για να αποθηκεύσουμε τα βιβλία εργασίας στην επιθυμητή μορφή. Θα καθορίσουμε απλά την επέκταση αρχείου μετά το όνομα του αρχείου. Έτσι, εισάγετε τον παρακάτω κώδικα στο αρχείο Ενότητα παράθυρο.
Sub Example_2() Dim location As String location = "D:\SOFTEKO\excel vba save as file format.xlsm" ActiveWorkbook.SaveAs Filename:=location End Sub 
Με αυτόν τον τρόπο, μπορείτε να εκτελέσετε τον κώδικα για να λάβετε το αρχείο στην επιθυμητή μορφή και θέση. αποθηκεύστε το αρχείο σε μορφή xlsx, τύπος xlsx αντί xlsm .
Διαβάστε περισσότερα: Μακροεντολή Excel VBA για την αποθήκευση PDF σε συγκεκριμένο φάκελο (7 ιδανικά παραδείγματα)
3. Excel VBA για τη χρήση κώδικα μορφής αρχείου
Ωστόσο, μπορούμε να εισάγουμε το Αριθμός κωδικού μορφής αρχείου αντί να καθορίσετε την επέκταση του αρχείου. Μερικοί χρήσιμοι κωδικοί είναι οι εξής: .xlsx = 51 , . xlsm = 52 , .xlsb = 50 , .xls = 56 . Ως εκ τούτου, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον στο αρχείο Ενότητα κουτί.
Sub Example_3() Dim location As String location = "D:\SOFTEKO\excel vba save as file format" ActiveWorkbook.SaveAs Filename:=location, FileFormat:=52 End Sub 
Διαβάστε περισσότερα: [Διορθώθηκε!] Γιατί το Excel δεν αποθηκεύει τη μορφοποίησή μου; (7 πιθανοί λόγοι)
4. Αποθήκευση στον ίδιο κατάλογο με VBA
Σε αυτό το παράδειγμα, θα δείξουμε πώς να Αποθήκευση στο Ίδιος κατάλογος όπου το αρχείο βρίσκεται ήδη με Excel VBA . Επομένως, εισάγετε τον κώδικα στο Ενότητα παράθυρο.
Sub Example_4() ActiveWorkbook.SaveAs Filename:="excel vba save as file format" End Sub 
Διαβάστε περισσότερα: Excel VBA: Επιλογή τοποθεσίας και αποθήκευση ως PDF
5. VBA για αποθήκευση σε νέο κατάλογο
Ωστόσο, μπορεί επίσης να χρειαστεί να αποθηκεύσουμε το αρχείο σε ένα Νέος κατάλογος . Έτσι, πληκτρολογήστε τον ακόλουθο κώδικα στο Ενότητα box και εκτελέστε το.
Sub Example_5() Dim location As String location = "D:\SOFTEKO\excel vba save as file format" ActiveWorkbook.SaveAs Filename:=location End Sub 
6. Ζητήστε κωδικό πρόσβασης για να ανοίξετε το αρχείο Excel
Επιπλέον, μπορείτε να εφαρμόσετε Excel VBA Αποθήκευση ως μορφή αρχείου να ζητήσει Κωδικός πρόσβασης στο Άνοιγμα αρχείου Excel . Έτσι, εισάγετε και εκτελέστε τον παρακάτω κώδικα.
Sub Example_6() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", Password:="one" End Sub 
Διαβάστε περισσότερα: Πώς να αποθηκεύσετε το αρχείο Excel με κωδικό πρόσβασης
Παρόμοιες αναγνώσεις
- Excel VBA για την αποθήκευση αρχείου με μεταβλητό όνομα (5 παραδείγματα)
- Πώς να αποθηκεύσετε το Excel ως τοπίο PDF (με γρήγορα βήματα)
- Excel VBA για να αποθηκεύσετε ως αρχείο χρησιμοποιώντας τη διαδρομή από το κελί (με γρήγορα βήματα)
- Κώδικας VBA για το κουμπί αποθήκευσης στο Excel (4 παραλλαγές)
- [Διορθωμένο!] Το αρχείο CSV του Excel δεν αποθηκεύει τις αλλαγές (6 πιθανές λύσεις)
7. Προσθήκη κωδικού πρόσβασης για επεξεργασία στο Excel
Επιπλέον, μπορείτε να ζητήσετε Κωδικός πρόσβασης για το Επεξεργασία στο Excel . Χωρίς τον κωδικό πρόσβασης, θα ανοίξει μόνο σε μορφή μόνο για ανάγνωση. Αντιγράψτε τον κώδικα και επικολλήστε τον. Στη συνέχεια, εκτελέστε τον κώδικα.
Sub Example_7() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", WriteRes:="one" End Sub 
8. Άνοιγμα σε μορφή μόνο για ανάγνωση
Και πάλι, για το άνοιγμα ενός αρχείου στο Μόνο για ανάγνωση Μορφή , πληκτρολογήστε τον παρακάτω κωδικό και πατήστε F5 για να το τρέξετε.
Sub Example_8() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", _ ReadOnlyRecommended:=True End Sub 
Διαβάστε περισσότερα: Πώς να ανοίξετε έγγραφο του Word και να το αποθηκεύσετε ως PDF ή Docx με το VBA Excel
9. Δημιουργία πλαισίου διαλόγου "Αποθήκευση ως
Μια άλλη χρήσιμη λειτουργία του Excel VBA για να αποθηκεύσετε ως μορφή αρχείου είναι να δημιουργήσει Παράθυρο διαλόγου Αποθήκευση ως Ως εκ τούτου, εισάγετε τον παρακάτω κώδικα.
Sub Example_9() Application.GetSaveAsFilename End Sub 
Διαβάστε περισσότερα: Μακροεντολή Excel για αποθήκευση ως PDF (5 κατάλληλα παραδείγματα)
10. VBA για τη δημιουργία & αποθήκευση νέου βιβλίου εργασίας
Εκτός από την αποθήκευση ενός αρχείου, μπορούμε επίσης να Δημιουργία & Αποθήκευση νέου βιβλίου εργασίας με VBA Για να ολοκληρώσετε την εργασία, πληκτρολογήστε τον παρακάτω κώδικα στο πεδίο Ενότητα παράθυρο και πατήστε F5 .
Sub Example_10() Dim book As Workbook Set book = Workbooks.Add Application.DisplayAlerts = False book.SaveAs Filename:="D:\SOFTEKO\excel vba save as file format.xlsm" Application.DisplayAlerts = True End Sub 
Διαβάστε περισσότερα: Excel VBA: Αποθήκευση φύλλου ως νέο βιβλίο εργασίας χωρίς άνοιγμα
11. Αποθήκευση ενεργού βιβλίου εργασίας στο Excel
Ομοίως, μπορούμε να αποθηκεύσουμε το ενεργό βιβλίο εργασίας όπου είναι ήδη αποθηκευμένο. Για να πραγματοποιήσετε τη λειτουργία, εισάγετε τον πολύ απλό κώδικα.
Sub Example_11() ActiveWorkbook.Save End Sub 
Διαβάστε περισσότερα: Πώς να αποθηκεύσετε μια μακροεντολή για όλα τα βιβλία εργασίας στο Excel (με εύκολα βήματα)
12. VBA για την αποθήκευση σε μορφή PDF στο Excel
Τέλος, μπορούμε να χρησιμοποιήσουμε το PDF επέκταση αρχείου στην υπηρεσία μας VBA κώδικα για να αποθηκεύσετε στο Μορφή PDF . Έτσι, εφαρμόστε Excel VBA Αποθήκευση ως μορφή αρχείου Στη συνέχεια, εκτελέστε τον κώδικα πατώντας F5 .
Sub Example_12() ActiveSheet.SaveAs Filename:="excel vba save as file format.pdf" End Sub 
Διαβάστε περισσότερα: Πώς να αποθηκεύσετε το Excel ως PDF (6 χρήσιμοι τρόποι)
Συμπέρασμα
Στο εξής, θα μπορείτε να αποθηκεύετε αρχεία με Excel VBA Αποθήκευση ως μορφή αρχείου ακολουθώντας τα παραδείγματα που περιγράφονται παραπάνω. Συνεχίστε να τα χρησιμοποιείτε και ενημερώστε μας αν έχετε περισσότερους τρόπους για να κάνετε την εργασία. το ExcelWIKI Μην ξεχάσετε να αφήσετε σχόλια, προτάσεις ή απορίες, αν έχετε, στο τμήμα σχολίων παρακάτω.
