Datei ermitteln und öffnen
15.11.2022 19:44:07
Freeloader
Mit folgendem Code ermittle ich, ob eine Datei existiert welche im Dateinamen "AB" enthält und vom Typ .pdf ist. Wenn diese Datei existiert, soll sie geöffnet werden. Das funktioniert natürlich mit den Platzhaltern nicht. Wie kann ich nun den korrekten Namen der Datei ermitteln? Danke und Gruss, Henner
Dim sFile As String
sFile = ThisWorkbook.Path & "\Unterordner\*AB*.pdf"
If Dir(sFile, vbNormal) "" Then ActiveWorkbook.FollowHyperlink sFile