Πώς μπορείτε να διαπιστώσετε εάν το Excel εκτελείται ήδη σε VBA

; Θα πρέπει να ξέρετε πώς να καθορίσει αν το Microsoft Excel εκτελείται , αν πρόκειται να είναι η ανάπτυξη εφαρμογών με χρήση της Visual Basic for Applications ( VBA) που θα χρησιμοποιήσει το Microsoft Excel ως έξοδο για τα δεδομένα σας . Ο πιο γρήγορος τρόπος να καθοριστεί εάν μια εφαρμογή εκτελείται σε VBA είναι μέσω μεταβλητές αντικειμένου . Αυτές οι μεταβλητές αντικειμένων είναι σε θέση να συνδεθεί με το Excel , χρησιμοποιώντας το " Excel.Application " προγραμματική αναγνωριστικό . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Word , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ξεκινήσει το πρόγραμμα επεξεργασίας VBA . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα ενότητα 2

Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε μια νέα διαδικασία : .

Private Sub IsExcelOpen ( ) On Error GoTo Err_IsExcelOpen :
3

αντιγραφή και επικόλληση τον παρακάτω κώδικα για να διαπιστώσετε αν το Excel εκτελείται ήδη :

Dim xlsObject Όπως ObjectSet xlsObject = GetObject ( " Excel.Application " ;) Αν ( xlsObject = " Microsoft Excel " ) ThenMsgBox " Excel εκτελείται ! " End If
4

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

Set xlsObject = NothingExit_IsExcelOpen : Έξοδος SubErr_IsExcelOpen : Αν Err.Number = 429 ThenMsgBox " Excel δεν τρέχει ! " End IfSet xlsObject = NothingEnd Sub

5

Ξεκινήστε το Microsoft Excel και πατήστε το πλήκτρο "F5 " για να εκτελέσετε τη διαδικασία . Θα λάβετε ένα μήνυμα που αναφέρει ότι το Excel εκτελείται . Κλείστε το Excel και εκτελέστε ξανά τη διαδικασία για να λάβετε ένα μήνυμα το Excel δεν εκτελείται .
Η
εικόνων