@R. Quaas - Verzeichnisse var. auslesen+Hyperlinks

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 97
nach unten

Betrifft: @R. Quaas - Verzeichnisse var. auslesen+Hyperlinks
von: Martin Beck
Geschrieben am: 03.05.2002 - 13:06:40

Hallo Rainer,

ich hatte gestern noch im alten Thread gepostet, der ist jedoch inzwischen aus dem Forum herausgewachsen. Da ich nicht weiß, ob Du noch rechtzeitig mitlesen konntest, hier noch mal die Komplettlösung:


Sub variabel_auslesen()
'Alle Dateien eines Ordners nebst Unterordner auslesen
'und mit Hyperlink versehen.
'Aus leerem Blatt starten.
Dim fs As FileSearch
Dim intCounter As Integer
Dim As Integer
Dim strFolder As String
Application.Volatile
strFolder = Application.GetOpenFilename
For i = Len(strFolder) To Step -1
    If Mid(strFolder, i, 1) = "\" Then
        strFolder = Left(strFolder, i - 1)
        Exit For
    End If
Next i
'MsgBox strFolder
Set fs = Application.FileSearch
With fs
    .LookIn = strFolder
    .SearchSubFolders = True
    .FileType = msoFileTypeExcelWorkbooks 'msoFileTypeAllFiles
    .Execute
End With
      
For intCounter = 1 To fs.FoundFiles.Count
    Cells(intCounter, 1) = fs.FoundFiles(intCounter)
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(intCounter, 1), Address:=Cells(intCounter, 1).Value
Next intCounter
End Sub

Gruß
Martin Beck

nach oben   nach unten

Re: @R. Quaas - Verzeichnisse var. auslesen+Hyperlinks
von: Rainer Quaas
Geschrieben am: 03.05.2002 - 17:10:55

Hallo Martin,

danke für Deine Bemühung; bitte lese auch meine Antwort weiter unten.

Gruß Rainer


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "@R. Quaas - Verzeichnisse var. auslesen+Hyperlinks"