collegamenti Web spesso riflettono la struttura delle directory del sito. Ad esempio, "http://example.com/images&quot, si riferisce ad una cartella chiamata" images "nella cartella principale del" sito example.com "Per creare automaticamente i collegamenti ipertestuali mediante la scansione di una struttura di directory e utilizzando i nomi dei. cartelle all'interno dei collegamenti ipertestuali, VBA fornisce l'oggetto del file system. UST consente di leggere le cartelle ei file 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.

istruzione

1 Avviare Excel per visualizzare una cartella di lavoro vuota. Salvare il file come una 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 Excel con attivazione macro (* .xlsm)" come tipo di file e fare clic su "Salva".

2 Selezionare "Sviluppatore" dalla barra a nastro principale, quindi selezionare "Visual Basic" dalla barra a nastro sviluppatore.

3 Creare uno script VBA per la scansione di tutte le cartelle in una directory, inserire il nome della cartella in un link e inserire il link nella cartella di lavoro di Excel. Inizia con la creazione di subroutine. Digitare:

FolderLinks sub ()

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 del numero di cartelle a trovare e una stringa contenente il link che si crea. Digitare:

UST fioco come nuovo FileSystemObject
cartelle Dim come cartella
sottocartella fioco come cartella
conteggio Dim as Integer = 0
collegamento Dim As String

5 Prendi la prima cartella per avviare la scansione. Digitare:

Impostazione delle cartelle = fso.GetFolder ( "D: \ Users \ Steve \ Documents")

6 Creare un ciclo, e ottenere ogni sottocartella all'interno della cartella. Digitare:

Per ogni sottocartella In folders.Subfolders

7 Montare la stringa collegamento mediante una e commerciale per concatenare stringhe. Ottenere il nome della cartella dalla proprietà "Name" della sottocartella. Digitare:

link = "<a href='http://example.com/collection/&quot; & subfolder.Name & "/index.html'>" & subfolder.Name & "</a>"

8 Incrementare il conteggio e impostare la cella del numero di riga che corrisponde al conteggio alla stringa di collegamento. Digitare:

Conteggio = Conteggio + 1
Cellule (contano, 1) = collegamento

9 Chiudere il ciclo e terminare la subroutine. Digitare:

Successivo sottocartella
End Sub

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