Πώς να χρησιμοποιήσετε το Excel FileDialog να πάρει λίστα των αρχείων σε ένα Directory

Microsoft Excel δεν είναι μόνο για τα δεδομένα των πινάκων , οι υπολογισμοί και τη διαχείριση πληροφοριών . Οποιαδήποτε άπληστος χρήστης μπορεί να μετατρέψει το Excel σε ένα ισχυρό εργαλείο για τη διαχείριση των φακέλων , την οργάνωση των αρχείων και την παρακολούθηση των εργασιών . Μπορείτε να δημιουργήσετε μια μακροεντολή που χρησιμοποιεί ένα αντικείμενο FileDialog VBA για να ανιχνεύσει γρήγορα έναν κατάλογο και τον κατάλογο των περιεχομένων του σε ένα υπολογιστικό φύλλο . Μετά την εκτέλεση , αυτή η μακροοικονομική θα προτρέψει τους χρήστες να επιλέξετε ένα φάκελο , και θα απαριθμήσει στη συνέχεια τα ονόματα του περιεχομένου του σε μία μόνο στήλη . Οδηγίες
δημιουργία του Macro
Η 1

Ξεκινήστε το Microsoft Excel . Πατήστε το πλήκτρο " CTRL + O ", επιλέξτε το βιβλίο εργασίας σας και στη συνέχεια κάντε κλικ στο "Άνοιγμα ". Για να δημιουργήσετε ένα νέο βιβλίο εργασίας , αντί , πατήστε το πλήκτρο " CTRL + N. " 2

Πατήστε " ALT + F8 " για να ανοίξετε το παράθυρο διαλόγου Μακροεντολές . Τύπος " GetFolderContents " στο πλαίσιο Όνομα μακροεντολής και στη συνέχεια κάντε κλικ στο "Δημιουργία ".
Εικόνων 3

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

Sub GetFolderContents ( )

Δημ. xDir , xFilename , στ , FSO As Object

Ορισμός FSO = CreateObject ( " Scripting.FileSystemObject " )

Με Application.FileDialog ( msoFileDialogFolderPicker )

. InitialFileName = ThisWorkbook.Path & " \\ "