Πώς να δημιουργήσετε υπερ-συνδέσεις με βάση τα ονόματα φακέλων Χρησιμοποιώντας VBA

Web links συχνά αντανακλούν τη δομή του καταλόγου της ιστοσελίδας . Για παράδειγμα , " http://example.com/images " αναφέρεται σε ένα φάκελο που ονομάζεται " εικόνες " στο ριζικό φάκελο του "example.com " ιστοσελίδα . Για να δημιουργήσετε αυτόματα υπερ-συνδέσεις με σάρωση μια δομή καταλόγου και χρησιμοποιώντας τα ονόματα των φακέλων εντός των υπερσυνδέσμων , VBA παρέχει το αντικείμενο του συστήματος αρχείων . FSO σας επιτρέπει να διαβάσετε τους φακέλους και τα αρχεία και να ανακτήσετε τις ιδιότητες , όπως τα ονόματα τους . Με ένα σενάριο VBA σε ένα υπολογιστικό φύλλο του Excel , μπορείτε να δημιουργήσετε μια σειρά από υπερ-συνδέσεις με βάση τα ονόματα των φακέλων σε μια δομή καταλόγου . Οδηγίες
Η 1

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 . Επιστρέψτε στο βιβλίο εργασίας για να δείτε τα αποτελέσματα .
Η
εικόνων