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

Visual Basic for Applications ( VBA ) είναι ένα υποσύνολο της Visual Basic η οποία χρησιμοποιείται για να προσαρμόσουμε τα προγράμματα του Microsoft Office για να ταιριάζει στις ανάγκες σας . Όταν γράφετε σε ένα αρχείο VBA , είναι καλή πρακτική να βεβαιωθείτε ότι υπάρχει συγκεκριμένο αρχείο πριν να επιχειρήσετε να γράψει σε αυτό . Αν θέλετε να βρείτε αν υπάρχει ένα αρχείο στο Excel , να οικοδομήσουμε μια λειτουργική μονάδα VBA που κάνει το κόλπο . Για να χρησιμοποιήσετε αυτή τη λειτουργία , θα πρέπει να έχουν κάποια προηγούμενη εμπειρία με τον προγραμματισμό VB . Τα πράγματα που θα χρειαστείτε
Excel 2007 ή το Excel 2010
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Αντιγράψτε τον ακόλουθο κώδικα :

Option Explicit

FileOrDirExists Λειτουργία ( PathName Όπως String ) Όπως Boolean

«Macro Σκοπός : Λειτουργία επιστρέφει TRUE αν το καθορισμένο αρχείο

» ή φάκελο υπάρχει , αν όχι ψευδείς

» PathName . : υποστηρίζει τα Windows αντιστοιχισμένες μονάδες δίσκου ή UNC

» : υποστηρίζει μονοπάτια Macintosh

« χρήση αρχείου : Παρέχετε την πλήρη διαδρομή του αρχείου και την επέκταση
χρήση φακέλου

» : Παρέχετε την πλήρη διαδρομή του φακέλου

» δέχεται με /χωρίς σύρει " \\ " ( Windows)

» δέχεται με /χωρίς σύρει " : " ( Macintosh )

Dim iTemp As Integer

« Αγνοήστε τα λάθη για να καταστεί δυνατή η αξιολόγηση των σφαλμάτων

On Error Resume Next

iTemp = GetAttr ( PathName )

« Ελέγξτε εάν υπάρχει σφάλμα και την απόκριση
κατάλληλα

Select Case Err.Number

υπόθεση είναι = 0

FileOrDirExists = True

Case Else

FileOrDirExists = False

End Select

«σφάλμα Συνέχιση έλεγχο

On Error Goto 0

End Function

Sub TestItWithWindows ( )

« Macro Σκοπός: Να ελεγχθεί η λειτουργία FileOrDirExists με τα Windows

» περιλαμβάνονται μόνο να αποδείξει τη λειτουργία . ΔΕΝ απαιτούνται για την κανονική χρήση

Dim Späth Όπως String

! " Αλλάξτε τον κατάλογο σας εδώ

Spath = " C : \\ Test.xls "

» δοκιμή εάν υπάρχει κατάλογος ή το αρχείο

Αν FileOrDirExists ( Spath ) Στη συνέχεια

MsgBox Späth & " υπάρχει ! "

Else MsgBox

Späth & " δεν υπάρχουν "

End If

End Sub Sub

TestItWithMacintosh ( )

« Macro Σκοπός : . Για να ελέγξετε τη λειτουργία FileOrDirExists με
Macintosh

«Μόνο προκειμένου να επιδειχθεί η λειτουργία . ΔΕΝ απαιτούνται για την κανονική χρήση

Dim Späth Όπως String

« Αλλάξτε τον κατάλογο σας εδώ

Spath = ! " HardDriveName : Έγγραφα : test.doc "

« Δοκιμή εάν υπάρχει κατάλογος ή το αρχείο

Αν FileOrDirExists ( Spath ) Στη συνέχεια

MsgBox Späth & " υπάρχει ! "

Else MsgBox

Späth & " δεν δεν υπάρχει. "