Come creare collegamenti ipertestuali in base ai nomi delle cartelle utilizzando VBA

collegamenti Web spesso rispecchiano la struttura delle directory del sito. Ad esempio, " http://example.com/images " si riferisce a una cartella chiamata "images" nella cartella principale del sito web " example.com " . Per creare automaticamente i collegamenti ipertestuali per la scansione di una struttura di directory e utilizzando i nomi delle cartelle all'interno dei collegamenti ipertestuali , VBA fornisce il File System Object . UST consente di leggere i file e cartelle e recuperare le proprietà , come i loro nomi . Con uno script VBA in un foglio di calcolo di Excel , è possibile creare una serie di collegamenti ipertestuali in base ai nomi delle cartelle in una struttura di directory . Istruzioni
1

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

incrementare il conteggio e impostare la cella del numero di riga che corrisponde al conteggio alla stringa di collegamento . Tipo:
conteggio

= count + 1Cells ( conteggio , 1 ) = collegamento
9

chiudere il ciclo e terminare la subroutine . Tipo:

Prossimo subfolderEnd Sub
10

Selezionare "File" e " Salva ". Scegliere " Esegui " e " Esegui Sub /User Form" per eseguire il lo script VBA . Tornare alla cartella di lavoro per visualizzare i risultati .

• Come aggiungere VBScript per Excel 
• Come reindirizzare a un altro server