Πώς να ανοίξετε, να αποθηκεύσετε και να κλείσετε το βιβλίο εργασίας του Excel στο VBA

Πώς να ανοίξετε, να αποθηκεύσετε και να κλείσετε το βιβλίο εργασίας του Excel σε VBA

2024-07-12

Πρόλογος

Αυτή η ενότητα θα παρουσιάσει τον τρόπο χρήσης της μεθόδου VBA για το άνοιγμα ενός βιβλίου εργασίας του Excel, την αποθήκευση και το κλείσιμο του βιβλίου εργασίας του Excel και τη χρήση των μεθόδων Άνοιγμα, Αποθήκευση και Κλείσιμο αντίστοιχα.

1. Χρησιμοποιήστε τη μέθοδο Άνοιγμα για να ανοίξετε το βιβλίο εργασίας

Workbooks.Open(FileName,UpdateLinks,ReadOnly,Format,Password,WriteResPassword,Ignore-ReadOnlyResommended,Origin,Delimiter,Editable,Notify,Converter,AddToMru,Local,Corrupt-Load)
虽参数较多，但只有FileName为必填参数，表示需要打开的工作簿文件名，关于参数说明请参考下表：

παράμετρος	εικονογραφώ
Ονομα αρχείου	Απαιτείται το όνομα αρχείου του βιβλίου εργασίας που πρέπει να ανοίξει και η απόλυτη διαδρομή του αρχείου.
UpdateLinks	Καθορίζει τον τρόπο με τον οποίο ενημερώνονται οι εξωτερικές αναφορές (συνδέσμοι) στο βιβλίο εργασίας.Οι πιθανές τιμές είναι 0 ή 3, που αντίστοιχα σημαίνει να μην ενημερώνονται οι εξωτερικές αναφορές κατά το άνοιγμα του βιβλίου εργασίας και να ενημερώνονται οι εξωτερικές αναφορές κατά το άνοιγμα του βιβλίου εργασίας.
Μόνο για ανάγνωση	Όταν είναι True, σημαίνει άνοιγμα του βιβλίου εργασίας σε λειτουργία μόνο για ανάγνωση.
Μορφή	Όταν ανοίγετε ένα αρχείο κειμένου, χρησιμοποιήστε αυτήν την παράμετρο για να καθορίσετε τον οριοθέτη. Πιθανές τιμές είναι 1 (καρτέλα), 2 (κόμμα), 3 (κενό), 4 (κενό), 5 (κανένα), 6 (προσαρμοσμένος χαρακτήρας, που καθορίζεται από την παράμετρο Οριοθέτηση)
Κωδικός πρόσβασης	Εάν το βιβλίο εργασίας που θα ανοίξει έχει οριστεί κωδικός πρόσβασης ανοίγματος, χρησιμοποιήστε αυτήν την παράμετρο για να δώσετε τον κωδικό πρόσβασης.Εάν έχει οριστεί κωδικός πρόσβασης αλλά αυτή η παράμετρος δεν έχει συμπληρωθεί, θα εμφανιστεί ένα παράθυρο διαλόγου που θα ζητά από τον χρήστη να εισαγάγει τον κωδικό πρόσβασης.
WriteResPassword	Εάν το βιβλίο εργασίας που θα ανοίξει έχει κωδικό πρόσβασης για την προστασία της δομής, χρησιμοποιήστε αυτήν την παράμετρο για να δώσετε τον αντίστοιχο κωδικό πρόσβασης.
IgnoreReadOnlyRecommended	Όταν είναι True, σημαίνει ότι δεν εμφανίζονται προτεινόμενες πληροφορίες μόνο για ανάγνωση.
Προέλευση	Όταν ανοίγετε ένα αρχείο κειμένου, χρησιμοποιήστε αυτήν την παράμετρο για να υποδείξετε από ποιο λειτουργικό σύστημα προέρχεται το αρχείο, για να χειριστείτε σωστά τις σελίδες κώδικα και τις επιστροφές/τροφοδοσίες γραμμών μεταφοράς. Πιθανές τιμές είναι οι σταθερές xlMacintosh, xlWindows, xlMSDOS.
Οριοθέτης	Όταν ανοίγετε ένα αρχείο κειμένου, εάν η παράμετρος Format έχει οριστεί στο 6, χρησιμοποιήστε αυτήν την παράμετρο για να καθορίσετε τον χαρακτήρα ως διαχωριστικό Εάν έχουν οριστεί πολλοί χαρακτήρες, θα λαμβάνεται μόνο ο πρώτος χαρακτήρας.
Επεξεργάσιμο	Εάν το αρχείο που θα ανοίξει είναι πρόσθετο του Excel 4.0, τότε όταν η τιμή αυτής της παραμέτρου είναι True, το πρόσθετο είναι ένα ορατό παράθυρο εάν είναι False ή αυτή η παράμετρος αγνοηθεί, το πρόσθετο ανοίγει σε κρυφό λειτουργία και δεν μπορεί να γίνει ορατή Αυτή η παράμετρος δεν μπορεί να χρησιμοποιηθεί σε εκδόσεις 5.0 και νεότερες.
Κοινοποιώ	Όταν το αρχείο που θα ανοίξει δεν μπορεί να ανοίξει σε λειτουργία ανάγνωσης-εγγραφής, εάν η τιμή αυτής της παραμέτρου είναι True, το αρχείο μπορεί να προστεθεί στη λίστα ειδοποιήσεων αρχείου. Το Excel θα ανοίξει το αρχείο σε λειτουργία μόνο για ανάγνωση και θα ψηφίσει τη λίστα ειδοποιήσεων του αρχείου, ειδοποιώντας τον χρήστη όταν το αρχείο είναι διαθέσιμο.Εάν η τιμή αυτής της παραμέτρου είναι False ή παραλειφθεί, δεν ζητείται ειδοποίηση και δεν είναι δυνατό να ανοίξουν τυχόν μη διαθέσιμα αρχεία.
Μετατροπέας	Ο αριθμός ευρετηρίου του μετατροπέα αρχείων προσπάθησε να χρησιμοποιηθεί για πρώτη φορά κατά το άνοιγμα του αρχείου. Εάν το αρχείο δεν αναγνωρίζεται από τον καθορισμένο μετατροπέα αρχείων, δοκιμάστε να χρησιμοποιήσετε άλλο μετατροπέα.
AddToMru	Εάν η τιμή αυτής της παραμέτρου είναι True, η εργασία δεν θα προστεθεί στη λίστα αρχείων που χρησιμοποιήθηκαν πρόσφατα. Η προεπιλογή είναι False
Τοπικός	Εάν η τιμή αυτής της παραμέτρου είναι True, το αρχείο θα αποθηκευτεί στη γλώσσα του Excel (συμπεριλαμβανομένων των ρυθμίσεων του πίνακα ελέγχου Η προεπιλογή είναι False, το αρχείο θα αποθηκευτεί στη γλώσσα του VBA).
CorruptLoad	Οι διαθέσιμες τιμές είναι οι σταθερές xlNormalLoad, xlRepairFile και xlExtractData, που αντίστοιχα σημαίνουν κανονικό άνοιγμα του βιβλίου εργασίας, προσπάθεια επιδιόρθωσης του βιβλίου εργασίας και προσπάθεια επαναφοράς των δεδομένων στο βιβλίο εργασίας. Η προεπιλογή είναι xlNormalLoad

Παράδειγμα 1: Ανοίξτε ένα βιβλίο εργασίας του Excel

Sub OpenExcelFile()
    
    Dim strFileName As String
    ' 定义文件名称
    strFileName = "D:VBAEmployee.xlsx"
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFileName
    
End Sub
1
2
3
4
5
6
7
8
9
10

Παράδειγμα 2: Ανοίξτε το βιβλίο εργασίας του Excel στην τρέχουσα διαδρομή

Sub OpenExcelFile()

    Dim strFileName As String
    Dim strFilePath
    
    ' 定义文件名称
    strFileName = "Employee.xlsx"
    ' 获取当前路径
    strFilePath = ThisWorkbook.Path
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFilePath & "" & strFileName
    
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14

2. Αποθηκεύστε και κλείστε το αρχείο

Όταν ανοίγετε ένα βιβλίο εργασίας του Excel και χειρίζεστε τα περιεχόμενά του και, στη συνέχεια, θέλετε να το αποθηκεύσετε και να το κλείσετε, μπορείτε να χρησιμοποιήσετε τις μεθόδους Αποθήκευση και Κλείσιμο.

Παράδειγμα: Αφού ανοίξετε το αρχείο Employee.xlsx στην τρέχουσα διαδρομή, αφού γράψετε την τρέχουσα ημερομηνία στο κελί A1 του Sheet1, αποθηκεύστε και κλείστε το αρχείο Employee.xlsx Ο πλήρης κώδικας είναι ο εξής:

Sub WriteCurrentDate()
    
    ' 申明变量
    Dim strFileName As String
    Dim strFilePath
    Dim ws As Worksheet
    Dim wb As Workbook
    
    ' 定义文件名称
    strFileName = "Employee.xlsx"
    ' 获取当前路径
    strFilePath = ThisWorkbook.Path
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFilePath & "" & strFileName
    
    ' 定义sheet1工作表对象以及当前打开的工作簿对象
    Set ws = ActiveWorkbook.Worksheets("Sheet1")
    Set wb = ActiveWorkbook
    
    ' A1单元格写入当前日期
    ws.Range("A1").Value = Date
    
    ' 保存并关闭文件
    wb.Save
    wb.Close
    
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

Κοινή χρήση τεχνολογίας