Gewusst wie: Erstellen von Hyperlinks, die auf der Grundlage von Ordnernamen mit VBA
Web-Links spiegeln oft die Verzeichnisstruktur der Website. Z. B. "http://example.com/images & Quot; bezieht sich auf einen Ordner namens "Bilder" im Stammordner der Website "Beispiel.de". Um automatisch Hyperlinks erstellen durch das Scannen einer Verzeichnisstruktur und die Namen der Ordner innerhalb der Hyperlinks verwenden, bietet VBA das Dateisystemobjekt. FSO können Sie Ordner und Dateien zu lesen und Abrufen von Eigenschaften wie ihre Namen. Mit einem VBA-Skript in eine Excel-Tabelle können Sie eine Gruppe von Hyperlinks, die auf der Grundlage von die Ordnernamen in einer Verzeichnisstruktur erstellen.
Anweisungen
1 Starten Sie Excel um eine leere Arbeitsmappe anzuzeigen. Speichern Sie die Arbeitsmappe als eine Arbeitsmappe mit Makros, so können Sie speichern und Ausführen von VBA Skripts drin. Wählen Sie "Datei" und "Save as.," geben Sie einen Dateinamen, wählen Sie "Excel Arbeitsmappe mit Makros (*.xlsm)" als Dateityp und klicken Sie auf "Speichern."
2 Wählen Sie die wichtigsten Multifunktionsleiste "Developer", und wählen Sie dann "Visual Basic" aus der Entwickler-Multifunktionsleiste.
3 Erstellen Sie ein VBA-Skript, um alle Ordner in einem Verzeichnis Scannen, integrieren den Namen des Ordners in einem Link und den Hyperlink in der Excel-Arbeitsmappe einfügen. Zunächst erstellen die Unterroutine. Typ:
Sub FolderLinks()
4 Deklarieren Sie eine Variable speichern das Dateisystemobjekt in einer Variablen speichern den starten Ordner, eine Variable speichern jeden Unterordner, einen Zähler für die Anzahl der Ordner, die Sie finden und eine Zeichenfolge, die den Link, den Sie erstellen. Typ:
Dim Fso neue FileSystemObjectDim Ordner als OrdnerDim Unterordner als OrdnerDim Anzahl as Integer = 0Dim Verbindung As String
5 Erhalten Sie den ersten Ordner, um den Scan zu beginnen. Typ:
Legen Sie Ordner = Fso. GetFolder("d:\users\steve\documents")
6 Erstellen Sie eine Schleife, und erhalten Sie jeden Unterordner innerhalb des Ordners zu. Typ:
Für jeden Unterordner im Ordner. Unterordner
7 Bauen Sie die Verbindung Zeichenfolge mit einem kaufmännischen und-Zeichen Teilzeichenfolgen verketten. Ruft den Namen des Ordners aus der "Name"-Eigenschaft des Unterordners. Typ:
Link = "< a Href =" http://example.com/collection/ & Quot; & Unterordner. Name & "/ index.html" > "& Unterordner. Name & "</a >"
8 Erhöhen Sie den und Festlegen der Zelle in der Zeile Anzahl, die Anzahl der auf die Verbindung Zeichenfolge entspricht. Typ:
Count = Count + 1Zellen (Count, 1) = Link
9 Schließen Sie die Schleife und beenden Sie die Unterroutine. Typ:
Nächsten UnterordnerEndSub
10 Wählen Sie "Datei" und "Speichern". Wählen Sie "Run" und "Ausführen Sub/Benutzerformular" VBA-Skript ausführen. Wechseln Sie in der Arbeitsmappe, um die Ergebnisse anzuzeigen.