Hyperlink - "hard stuff"
04.08.2003 18:23:34
Roland
ich möchte gern automatische Hyperlinks auf alle Files in einem Verzeichnis und Unterverzeichnissen erstellen. Der Code anbei funktioniert soweit Prima.
In der Zelle B2 muß lediglich der Suchpfad eingegeben werden.
Als Ausgabe werden nun Links auf alle gefundenen Files ab A2 ausgegeben.
Ich möchte allerdings das im Link nur der Dateiname d.h.ohne Pfadangabe ausgegeben wird. Den Dateinamen alleine benötige ich zur Weiterverarbeitung noch im Bereich ab B2.
Wer kann helfen ..
Roland
Sub SetHyperlinks()
Dim arr As Variant
Dim iCounter As Integer
ActiveSheet.Hyperlinks.Delete
Range("A2:A65536").ClearContents
With Application.FileSearch
.LookIn = Range("B1").Value
.Filename = "*.*"
'.FileType = msoFileTypeExcelWorkbooks
.SearchSubFolders = True
.Execute
For iCounter = 1 To .FoundFiles.Count
Cells(iCounter + 1, 1).Value = .FoundFiles(iCounter)
ActiveSheet.Hyperlinks.Add _
anchor:=Cells(iCounter + 1, 1), _
Address:=.FoundFiles(iCounter)
Next iCounter
End With
Columns(1).AutoFit
End Sub