Ανοίξτε και κλείστε το βιβλίο εργασίας του Excel χρησιμοποιώντας VBA

Anonim

Σε αυτό το άρθρο θα μάθουμε πώς να κλείνουμε και να ανοίγουμε τη μέθοδο στο Excel VBA που χρησιμοποιείται για το άνοιγμα του κλειστού βιβλίου εργασίας και επίσης το κλείσιμο του ανοιχτού βιβλίου εργασίας.

Δημιουργούμε κουμπί εντολών στο φύλλο Excel και εκχωρούμε μακροεντολή.

Για να μάθετε πώς να δημιουργήσετε το στοιχείο ελέγχου Activex κάντε κλικ στο σύνδεσμο

https://www.exceltip.com/tips/activex-controls-in-microsoft-excel-2010.html

Πώς να ανοίξετε το βιβλίο εργασίας του Excel μέσω VBA;

Ακολουθήστε τα παρακάτω βήματα και κωδικοποίηση:-

  • Εισαγάγετε 2 κουμπιά εντολών.
  • Πρώτο κουμπί εντολών που χρησιμοποιούμε για να κάνουμε δεξί κλικ στο ποντίκι στο κουμπί εντολών.
  • Η σελίδα VBE θα ανοίξει και θα αντιγράψει την παρακάτω κωδικοποίηση και θα επικολλήσει στη σελίδα VBE.
  • Για να ανοίξετε το βιβλίο εργασίας, αναθέστε την παρακάτω μακροεντολή.
Sub sOpenWorkbook ()
"καθορίστε τη μεταβλητή για το όνομα αρχείου
Dim csFileName As String
"λάβετε το όνομα αρχείου από το κελί A1 στο Sheet1
csFileName = ThisWorkbook.Sheets ("Παράδειγμα Άνοιγμα και Κλείσιμο"). Εύρος ("A1")
«ανοίξτε το βιβλίο εργασίας
Τετράδια εργασίας. Άνοιγμα csFileName
MsgBox csFileName & "άνοιξε"
Τέλος υπο
  • Δεύτερο κουμπί εντολών που χρησιμοποιούμε για να κάνουμε δεξί κλικ στο ποντίκι στο κουμπί εντολών.
  • Η σελίδα VBE θα ανοίξει και θα αντιγράψει την παρακάτω κωδικοποίηση και θα επικολλήσει στη σελίδα VBE.
  • Για να ανοίξετε το βιβλίο εργασίας, αναθέστε την παρακάτω μακροεντολή.
Sub sCloseWorkbook ()
"καθορίστε τη μεταβλητή για το όνομα αρχείου
Dim csFileName As String
"λάβετε το όνομα αρχείου από το κελί A1 στο Sheet1
csFileName = ThisWorkbook.Sheets ("Παράδειγμα Άνοιγμα και Κλείσιμο"). Εύρος ("A1")
«κλείστε το βιβλίο εργασίας» Βιβλία εργασίας (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & "κλειστό"
Τέλος υπο

Και οι δύο μακροεντολές θα αντιστοιχιστούν στα κουμπιά εντολών, πρέπει να χρησιμοποιήσουμε την παρακάτω μακροεντολή.

Επιλογή ρητή
Sub sExample () Const csFileName As String = _
"C: \ Test \ Master.xlsx" Workbooks.Open
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). Close
Τέλος υποSub sOpenWorkbook ()
"καθορίστε τη μεταβλητή για το όνομα αρχείου
Dim csFileName As String
"λάβετε το όνομα αρχείου από το κελί A1 στο Sheet1
csFileName = ThisWorkbook.Sheets ("Παράδειγμα Άνοιγμα και Κλείσιμο"). Εύρος ("A1") 'ανοίξτε το βιβλίο εργασίας
Βιβλία εργασίας. Άνοιγμα csFileNameMsgBox csFileName & "άνοιξε"
Τέλος υποSub sCloseWorkbook ()
"καθορίστε τη μεταβλητή για το όνομα αρχείου
Dim csFileName As String 'λάβετε όνομα αρχείου από το κελί A1 στο Sheet1
csFileName = ThisWorkbook.Sheets ("Παράδειγμα Άνοιγμα και Κλείσιμο"). Εύρος ("A1")
«κλείστε το βιβλίο εργασίας» Βιβλία εργασίας (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & "κλειστό"
Τέλος υπο

Σημείωση: - Πρέπει να αναφέρετε τη διαδρομή σύμφωνα με το αρχείο σας.