Πίνακας περιεχομένων
Δοκιμάστε αν το βιβλίο εργασίας είναι ανοιχτό
Ακολουθεί ένας πραγματικός βασικός κώδικας για δοκιμή εάν ένα βιβλίο εργασίας είναι προς το παρόν ανοιχτό δοκιμάζοντας το όνομα ενός βιβλίου εργασίας και όχι το πλήρως αναγνωρισμένο όνομα που περιλαμβάνει τη διαδρομή.
Έγραφα κώδικα σε υπολογιστικό φύλλο που άλλαζε φύλλα σε άλλο βιβλίο εργασίας και ήθελα να βεβαιωθώ ότι το βιβλίο εργασίας 2 ήταν ανοιχτό πριν εκτελεστεί ο κώδικας στο βιβλίο εργασίας 1.
Sub TestByWorkbookName () Dim wb As Workbook For each wb In Workbooks Εάν wb.Name = "New Microsoft Excel Worksheet.xls" then MsgBox "Found it" Exit Sub 'call code, we'll just exit now for End End If Next End Υπο