Launch Excel για να δείτε ένα κενό βιβλίο εργασίας . Αποθηκεύστε το βιβλίο εργασίας ως δυνατότητα μακροεντολών βιβλίο εργασίας , ώστε να μπορείτε να αποθηκεύσετε και να εκτελέσετε scripts VBA σε αυτό . Επιλέξτε "Αρχείο" και "Save As .. ", πληκτρολογήστε ένα όνομα αρχείου , επιλέξτε " Excel Macro - Enabled Workbook ( * . Xlsm )" ως τον τύπο αρχείου και κάντε κλικ στο κουμπί "Αποθήκευση".
2
Επιλέξτε "Προγραμματιστής " από το κύριο ribbon bar , και στη συνέχεια επιλέξτε " Visual Basic" από τη γραμμή του έργου κορδέλα .
εικόνων 3
Δημιουργία δέσμης ενεργειών VBA για να σαρώσετε όλους τους φακέλους σε έναν κατάλογο , να ενσωματώσουν το όνομα του φακέλου σε ένα σύνδεσμο και τοποθετήστε το σύνδεσμο στο βιβλίο εργασίας του Excel . Ξεκινήστε με τη δημιουργία του υπορουτίνα . Τύπος:
Sub FolderLinks ( )
Η 4
αναγνωρίσει μια μεταβλητή για να αποθηκεύσουμε το αντικείμενο του συστήματος αρχείων , μια μεταβλητή για να αποθηκεύσετε το φάκελο εκκίνησης , μια μεταβλητή για την αποθήκευση κάθε υποφάκελο , ένα μετρητή ο αριθμός των φακέλων που έχετε βρει και ένα string που περιέχει το σύνδεσμο που δημιουργείτε . Τύπος:
Δημ. FSO Όπως φακέλους Νέα FileSystemObjectDim Όπως FolderDim υποφάκελο Όπως FolderDim μετράνε ως Integer = 0Dim σύνδεσμο As String
5
Αποκτήστε το πρώτο φάκελο για να ξεκινήσει η σάρωση . Τύπος :
Ρύθμιση φακέλων = fso.GetFolder ( "d : \\ χρήστες \\ steve \\ έγγραφα " )
Η 6
Δημιουργήστε έναν βρόχο , και να πάρει κάθε υποφάκελο μέσα στο φάκελο . Τύπος :
χρήσης για κάθε υποφάκελο Σε folders.Subfolders
Η 7
Συγκεντρώστε το string σύνδεση, χρησιμοποιώντας ένα εμπορικό για να ενώσετε substrings . Πάρτε το όνομα του φακέλου από την "Name " ιδιότητα του υποφακέλου . Τύπος:
link = " " & subfolder.Name & " "
8
Αύξησε την καταμέτρηση και να ρυθμίσετε το κύτταρο με τον αριθμό της γραμμής που αντιστοιχεί στον αριθμό των χορδών στο σύνδεσμο . Τύπος:
count = μετράνε + 1Cells ( μετράνε , 1 ) = σύνδεσμος
Η 9
Κλείστε το βρόχο και να τερματίσετε την υπορουτίνα . Τύπος:
Επόμενο subfolderEnd Sub
Η 10
Επιλέξτε "Αρχείο " και επιλέξτε " Run" και "Run Φόρμα Sub /χρήστη " για να εκτελέσετε το "Αποθήκευση". VBA script . Επιστρέψτε στο βιβλίο εργασίας για να δείτε τα αποτελέσματα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα