Πώς μπορώ να ελέγξω για να δείτε αν ένα αρχείο υπάρχει στο Excel

; Excel 2010 έρχεται με τη Visual Basic for Applications ( VBA ) , η οποία είναι μια απλή γλώσσα προγραμματισμού που μπορείτε να χρησιμοποιήσετε για να χειριστείτε το φύλλο εργασίας του Excel . VBA μπορεί επίσης να εκτελέσει μερικές απλές υπολογιστικές εργασίες , όπως το άνοιγμα ή αλλαγή ενός συγκεκριμένου αρχείου . Αν ο κώδικας Excel VBA σας πρέπει να εργαστείτε με τα αρχεία , μπορεί να είναι χρήσιμο να προσδιορίσει εάν υπάρχει ένα αρχείο πριν ο κώδικας προσπαθεί να εκτελέσει . Μπορείτε να ρυθμίσετε μια λειτουργία VBA για να αναζητήσετε την ύπαρξη του αρχείου , και στη συνέχεια να καλέσετε τη συνάρτηση κάθε φορά θα πρέπει να ψάξουν για ένα αρχείο . Οδηγίες
Η

1 Ανοίξτε ένα νέο φύλλο εργασίας του Excel 2010 . Πατήστε το πλήκτρο " Alt " και " F11 " για να ανοίξετε την κονσόλα VBA . 2

Κάντε δεξί κλικ στο " Φύλλο1 " στην αριστερή πλευρά της κονσόλας . Μετακινήστε το ποντίκι σας πάνω "Εισαγωγή " στο αναδυόμενο μενού και επιλέξτε " Ενότητα ". Κάντε διπλό κλικ στη λειτουργική μονάδα που εμφανίζεται στη λίστα των αντικειμένων στην αριστερή πλευρά της οθόνης .
Εικόνων 3

Κάντε κλικ στο κενό χώρο στη δεξιά πλευρά της κονσόλας VBA . Πληκτρολογήστε τον ακόλουθο κώδικα :

checkfile Λειτουργία ( Όνομα As String ) Όπως Boolean

checkfile = ( Dir ( όνομα αρχείου) <> "" ) Λειτουργία

End

Αυτό θα δημιουργήσει μια λειτουργία που ονομάζεται " checkfile " που μπορείτε να καλέσετε από άλλα τμήματα του κώδικα VBA . Η λειτουργία είναι Boolean όπως θα επιστρέψει είτε απάντηση ναι ή όχι , και αυτό απαιτεί να εισάγετε ένα όνομα αρχείου , όταν καλείτε τη λειτουργία . Η λειτουργία θα χρησιμοποιήσει το " Dir " εντολή για να φέρει το αρχείο στη μνήμη . Εάν το αρχείο δεν υπάρχει , η εντολή dir θα επιστρέψει μια κενή καταχώρηση και " Checkfile " θα είναι ψευδής .
Η

4 Πατήστε το πλήκτρο " Enter" για να φτάσουμε σε μια νέα γραμμή κάτω από τη λειτουργία που μόλις δημιουργήσατε . Εισάγετε τον παρακάτω κωδικό :

Sub Filetest ( )

Αν checkfile ( "c : \\ screenshot1.bmp ") Στη συνέχεια

MsgBox " Yup "

αλλιώς

MsgBox " Όχι "