www.Russ-Jesteburg.de > Excel > VBA > Datei

Dateien suchen und Hyperlinks generieren:

' Du willst schnell und unkompliziert alle Dateien eines
' Verzeichnisses suche und in einer Excel-Tabelle per
' Hyperlink verbinden?
Sub Dateisuche()
    Dim Zeile As Long
    Dim WS As Worksheet
    Set WS = ActiveSheet
    With Application.FileSearch
        .NewSearch
        ' In welchem Ordner soll gesucht werden?
        .LookIn = "C:\Eigene Dateien\Excel\"
        ' Sollen auch Unterordner durchsicht werden?
        .SearchSubFolders = True
        ' Welche Dateiart soll gesucht werden?
        .FileType = msoFileTypeAllFiles
        .Execute
        ' alle gefundenen Dateien in die Excel Tabelle schreiben
        ' und mit Hyperlinks verbinden:
        For Zeile = 1 To .FoundFiles.count
            WS.Cells(Zeile, 1).FormulaLocal = _
            "=Hyperlink(""" & .FoundFiles(Zeile) & """;""" & .FoundFiles(Zeile) & """)"
        Next Zeile
    End With
End Sub

Dieser Tipp ist vom 16.12.2005