Web Links spiegeln oft die Verzeichnis-Struktur der Website. Zum Beispiel bezieht sich " http://example.com/images " in einem Ordner namens " Bilder " im Root- Ordner der "example.com "-Website . Um automatisch Hyperlinks durch Scannen eines Verzeichnis-Struktur und mit den Namen der Ordner in den Hyperlinks , bietet die VBA File System Object . BFS können Sie Ordner und Dateien lesen und Abrufen von Eigenschaften , wie ihre Namen . Mit einem VBA-Skript in einer Excel-Tabelle können Sie eine Reihe von Hyperlinks auf den Ordnernamen in einem Verzeichnis -Struktur. Anleitung
1

starten Excel eine leere Arbeitsmappe anzuzeigen. Speichern Sie die Arbeitsmappe als eine Arbeitsmappe mit Makros , so dass Sie speichern und ausführen können VBA Script drin. Wählen Sie "Datei" und "Speichern unter .. ", geben Sie einen Dateinamen , wählen Sie " Excel -Arbeitsmappe mit Makros (*. Xlsm )" als Dateityp und klicken Sie auf " Speichern".

2

Wählen Sie "Entwickler " aus dem Hauptmenü Multifunktionsleiste , und wählen Sie dann " Visual Basic " vom Entwickler Multifunktionsleiste .
3

erstellen VBA Skript zu scannen alle Ordner in einem Verzeichnis , übernehmen den Namen des Ordners in einem Link und fügen Sie den Link in der Excel-Arbeitsmappe . Beginnen Sie, indem Sie das Unterprogramm. Typ:

Sub FolderLinks ()
4

Deklarieren Sie eine Variable , um das Dateisystem -Objekt , eine Variable zu speichern, um den Start -Ordner , eine Variable , um jeden Unterordner speichern , ein Zähler speichern die Anzahl der Ordner, die Sie finden und einen String mit dem Link, den Sie erstellen. Typ:

Dim fso As New FileSystemObjectDim Ordner als Unterordner FolderDim Wie FolderDim zählen als Integer = 0Dim Link As String
5

Sie den ersten Ordner , um den Scanvorgang zu starten . Typ:

Set Ordner = fso.GetFolder ( "d : \\ users \\ steve \\ Dokumente " )
6

Erstellen einer Schleife , und erhalten Sie jeden Unterordner innerhalb des Ordners . Typ:

For Each Unterordner In folders.Subfolders
7

Montieren Sie den Link Saite durch ein kaufmännisches Und , um Teilstrings verketten. Holen Sie sich den Namen des Ordners aus der Eigenschaft "Name" der Unterordner . Typ:

link = " " & subfolder.Name & " "
8

Erhöhung der Anzahl und den Zelle in der Zeile Nummer, die der Anzahl der Verbindungsabfolgedaten entspricht . Typ:

count = count + 1Cells ( Anzahl , 1 ) = link
9

Den Kreislauf schließen und beenden Sie das Unterprogramm. Typ:

Weiter subfolderEnd Sub
10

Wählen Sie " Datei" und "Speichern". Wählen Sie " Run" und "Run Sub /User Form " zum laufen VBA-Skript . Wechseln Sie zurück zu der Arbeitsmappe , um die Ergebnisse anzuzeigen.