lancio Excel per visualizzare una cartella di lavoro vuota . Salvare la cartella di lavoro come cartella di lavoro con attivazione macro modo da poter memorizzare ed eseguire script VBA in esso. Scegliere "File" e "Salva con nome .. ", digitare un nome di file , selezionare " Cartella di lavoro con attivazione macro di Excel ( * . Xlsm ) " come tipo di file e fare clic su "Salva ".
2
Seleziona "Sviluppatore " dalla barra principale del nastro , e quindi selezionare " Visual Basic " dalla barra nastro sviluppatore .
3
creare uno script VBA per eseguire la scansione tutte le cartelle in una directory , incorporano il nome della cartella in un link e inserire il collegamento nella cartella di lavoro di Excel . Iniziate creando la subroutine . Tipo:
Sub FolderLinks ( ) economici 4
dichiarare una variabile per memorizzare l'oggetto del file system , una variabile per memorizzare la cartella di partenza, una variabile per memorizzare ogni sottocartella , un contatore di il numero di cartelle che si trovano e da una stringa che contiene il collegamento che si crea. Tipo:
Dim fso come cartelle Nuovi FileSystemObjectDim Come sottocartella FolderDim come Conte FolderDim as Integer = collegamento 0Dim As String
5
Scarica la prima cartella per avviare la scansione . Tipo:
cartelle = fso.GetFolder ( " D: \\ Users \\ Steve \\ documenti " ) economici 6
creare un ciclo , e ottenere ogni sottocartella all'interno della cartella . Tipo:
Per ciascuna sottocartella folders.Subfolders
7
Assemblare la stringa di collegamento mediante una e commerciale per concatenare sottostringhe . Prendi il nome della cartella dalla proprietà "Name" della sottocartella . Tipo:
Link
= " " & subfolder.Name & " < /a> "
8
= count + 1Cells ( conteggio , 1 ) = collegamento
9
chiudere il ciclo e terminare la subroutine . Tipo:
Programmazione © www.354353.com