Moin zusammen
Ich hoffe jemand hier kann mir einen Tipp geben.
Es geht darum, dass ich mit einem Makro aus einem bestimmten Ordner alle PDFs auslese und in Excel aufliste. Nun würde ich gerne die ausgelesenen Pdf Dateinamen aber als Hyperlink haben. und da komme ich nicht weiter.
Hier mal der code
Sub Dateien_eines_Ordners_Auflisten()
Dim wks As Worksheet
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
'Tabelle aktivieren um Spalte zu löschen
Set wks = ActiveWorkbook.Worksheets("Tabelle2")
'löscht Spalte B
wks.Range(Cells(2, 2), Cells(3000, 3)).ClearContents
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("Ordnerpfad")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 2
'liest alle pdfs aus dem ordner und schreibt sie ins excel
For Each objDatei In objDateienliste
If Not objDatei Is Nothing And Right(LCase(objDatei.Name), 4) = ".pdf" Then
ActiveSheet.Cells(lngZeile, 2) = objDatei.Name
'in hyperlink umwandeln
ActiveSheet.Hyperlinks.Add Anchor:=Tabelle2.Cells(lngZeile, 2), _
Address:="objDateienliste", _
TextToDisplay:=Tabelle2.Cells(lngZeile, 2).Value
lngZeile = lngZeile + 1
End If
Next objDatei
End Sub
Wenn ich dieses Programm laufen lasse, werden die Links zwar generiert aber wenn man draufklickt kommt die Meldung: Angegebene Datei kann nicht geöffnet werden.
Ich vermute stark, dass hängt mit dem Dateipfad zusammen. Aber wie kann man's formulieren, dass jeder Link die entsprechende pdf datei auch öffnet?
Kann mir hier jemand weiterhelfen? Wäre für jeden Tipp dankbar
greez Mike
|