Πώς μπορείτε να διαπιστώσετε εάν ένα φύλλο εργασίας Υπάρχει Χρησιμοποιώντας Excel.Application

VBA είναι αυτοματισμού και μακρο γλώσσα προγραμματισμού που αναπτύχθηκε από τη Microsoft που περιλαμβάνεται και χρησιμοποιείται σε μερικά από τα βασικά προϊόντα της Microsoft , συμπεριλαμβανομένων , του Microsoft Office . VBA είναι σύμφωνο με το Microsoft COM ( Component Object Model ) , με την οποία βλέπει και τα διαλείμματα προγράμματα όπως το excel σε αντικείμενα για τους προγραμματιστές να αλληλεπιδρούν και να χειριστούν το πρόγραμμα . Το αντικείμενο Application θεωρείται το υψηλότερο αντικείμενο στο μοντέλο αντικειμένου του Microsoft Excel . Αντιπροσωπεύει την ίδια την εφαρμογή του Excel . Όλα τα άλλα αντικείμενα, όπως : βιβλίο εργασίας , φύλλα εργασίας και τα κύτταρα είναι κάτω από αυτό. Δημιουργώντας ένα πρόγραμμα για να ελέγξετε αν υπάρχει ένα συγκεκριμένο φύλλο εργασίας στο βιβλίο εργασίας σας είναι απλή τη στιγμή που θα ξεκινήσει μια κλήση στο αντικείμενο εφαρμογής του Excel . Οδηγίες
Η

1 Ανοίξτε το Microsoft Excel . 2

Κάντε κλικ στο " Εργαλεία ", " Macro " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Αυτό θα ανοίξει το περιβάλλον προγραμματισμού VBA .
Εικόνων 3

Κάντε κλικ στο " Εισαγωγή ", " ενότητα " . Είστε τώρα σε μια λειτουργική μονάδα κώδικα προγραμματισμού

Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τον παρακάτω κώδικα : .

WorksheetExists Λειτουργία ( _

FullPathToWorkbook As String , _

WorksheetName As String _

) Όπως Boolean

Dim objExcel As Object

Dim objWorksheet As Object

Set objExcel = CreateObject ( " Excel.Application " )

objExcel.Workbooks.Open "c : \\ Book1.xls "

For Each objWorksheet Σε objExcel.ActiveWorkbook.Worksheets

Εάν objWorksheet.Name = " Sheet3 " τότε

WorksheetExists = True

MsgBox ( " Φύλλο εργασίας υπάρχουν " )

Έξοδος Για

End If

Επόμενο objWorksheet

objExcel.ActiveWorkbook.Close SaveChanges : = False

Set objExcel = Τίποτα

Function End
Η
εικόνων