via vba autolink erzeugen
11.09.2003 16:25:38
Olaf
ich möchte automatisch in eine Tabelle den Inhalt eines Verzeichnis einlesen.
Siehe Macro.
Nun möchte ich noch den eingelesenen Namen der Dateien automatisch mit den Orginaldateien im Verzeichnis verlinken, so das wenn ich den Namen anklicke sich die Datei öffnet.
Kennt jemand die Lösung?
Vielen Dank im Voraus.
Gruss Olaf
Sub ListVerzeichnis()
Dim obj As Variant
Const verz = "E:\Dokumente und Einstellungen\admin\Eigene Dateien\Eigene Excel"
On Error GoTo fehler
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.Filename = "*.xls"
.SearchSubFolders = True
If .Execute() > 0 Then
For Each obj In .FoundFiles
Debug.Print obj
Next obj
End If
MsgBox .FoundFiles.Count
End With
Exit Sub
fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub