Hyperlink
17.01.2008 12:32:42
Winnewoerm
hab da wieder mal ein kleines Problem.
ICh versuche in einer Tabelle eine Liste von PDF-Dateien zu erstellen und diese gleich als Hyperlink darzustellen.
Vereinfacht: Ich habe einen Order mit ca. 3000 PDF Files. Die Dateinamen dieser Files sollen in einer Excel-Tabelle eingelesen werden. Das klappt auch schon.
Was ich nun noch möchte, das diese Dateinamen gleich als Hyperlink auf die PDF-Datei funktionieren.
Mein Code sieht bis jetzt so aus
Sub dat()
Dim Datei As String
Dim x As Long
Dim DateiListe()
Datei = Dir("C:\pdf archiv\*.*")
Do While Datei ""
x = x + 1
ReDim Preserve DateiListe(1 To x)
DateiListe(x) = Datei
Datei = Dir
Loop
For n = 1 To x
Worksheets(1).Cells(n, 1) = DateiListe(n)
'Hier ist der Fehler
ActiveSheet.Hyperlinks.Add anchor:=DateiListe(n), Adress:=DateiListe(n)
Next n
End Sub
Wenn jemand eine Idee hätte war wirklich sehr dankebar
Gruß Oliver
Anzeige