Hyperlink per makro setzen
26.11.2003 13:16:22
Tom
meine VBA Kenntnisse lassen noch zu wünschen übrig und ich weis wirklich nicht mehr weiter.
Ich lese automatisch in einer Tabelle in Spalte A fortlaufend Dateinamen aus einem bestimmten Verzeichnis ein.
Wie ist es möglich, jetzt in Spalte B immer das Wort Dokument zu schreiben und gleichzeitig automatisch einen Link auf den eingelesenen Dateinamen zu setzten. (Der Link der auf dem Namen Dokument liegen soll, soll immer direkt auf das Originaldokument, dessen Name ich in Spalte A eingelesen habe, verweisen.
Ich hoffe ich habe verständlich geschrieben ;-)
Das Makro habe ich nachstehend nur teilweise veröffentlicht, da noch weitere Schritte erleigt werden die funktionieren.
Public Sub lesen()
Dim fso As New FileSystemObject
Dim f As Folder
Dim p As File
Dim str As String
Dim aktuell As String
Dim u As UsedObjects
Set f = fso.GetFolder("E:\DATEN")
h = 0
l = 1
Do While h <> 1
If Sheets("Archiv").Cells(l, 1) = 0 Then
h = 1
Else
l = l + 1
End If
Loop
leer = l
i = leer
For Each p In f.Files
Sheets("Archiv").Cells(i, 1) = p.Name
i = i + 1
Next