Εκκίνηση του Microsoft Office Excel , στη συνέχεια, κάντε κλικ στην καρτέλα "Προγραμματιστής " . Κάντε κλικ στο " Μακροεντολές " στη συνέχεια, πληκτρολογήστε " searchFile " υπό τον τίτλο " Macro name: " . Κάντε κλικ στο κουμπί "Δημιουργία " για να ανοίξετε το Microsoft Visual Basic παράθυρο 2
Πληκτρολογήστε τα ακόλουθα στο " searchFile " να δηλώσει τα ονόματα των μεταβλητών σας : .
Δημ. filePath Όπως String
Dim currentFile Όπως String Dim
xCntr As Integer
εικόνων 3
Πληκτρολογήστε το παρακάτω για να ορίσετε τη μεταβλητή που θα χρησιμοποιήσετε για να αναζητήσετε αρχεία κειμένου :
filePath = " C : \\. * txt "
Επεξεργασία " C : \\. * txt " και πληκτρολογήστε μια διαφορετική διαδρομή και την επέκταση για να αναζητήσετε άλλα αρχεία
Η 4
Πληκτρολογήστε το . παρακάτω, για να πάρει το πρώτο αρχείο που βρέθηκαν στη διαδρομή :
currentFile = Dir ( filePath )
5
Πληκτρολογήστε το παρακάτω, για να βρόχο μέσω όλων των αρχείων και εμφανίζει ένα πλαίσιο μηνύματος , όταν η " myfile.txt " το αρχείο βρίσκεται :
Do While currentFile <> " "
xCntr = xCntr + 1
Εάν currentFile = " myfile.txt "Τότε
MsgBox " Βρέθηκε το αρχείο ! "
End If
currentFile = Dir
Loop
Η 6
Κάντε κλικ στο " Microsoft Excel " παράθυρο , στη συνέχεια, επιλέξτε " Μακροεντολές ". Κάντε κλικ στο " searchFile " και στη συνέχεια επιλέξτε "Run " για να εκτελέσετε τη μακροεντολή σας και να βρείτε το αρχείο .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα