ich habe in einer Excel-Liste viele Pfad+Dateinamen in unterschiedlichen Zellen stehen:
M:\Tschrift\...\Anweisung.doc
C:\Eigene Dateien\Example.pdf
P:\QM\organigramm.xls
M:\Vertrieb\kunden.mdb
usw. viele mehr.
Ich habe einen Button ins Excel gelegt, der je nach dem wo die ActiveCell steht, diese Datei einfach öffnen soll, wenn der Button gedrückt wird. Quasi wie ein Doppelklick auf dieselbe Datei im Explorer und schwupp die Datei würde geöffnet.
Hier der Code zur Routine beim Button:
Private Sub btnLinkOpen()
Dim Z, S As Integer
Dim Bezug As String
Z = ActiveCell.Row
S = ActiveCell.Column
Bezug = Chr(64 + S) & Trim(Str(Z))
Range(Bezug).Select ' Jetzt wird Bezug-Variable nicht mehr benötigt
Bezug = Cells(Z, S)
If Bezug <> "" Then
If Dir(Bezug) <> "" Then ' Findet er die Datei?
ergebnis = Shell(Bezug, vbMaximizedFocus) ' Hier passiert der Fehler
End If
End If
End Sub
Die Fehlermeldung, die kommt, lautet: Laufzeitfehler 53 "Datei nicht gefunden"
Steht in der Liste im Excel eine ausführbare EXE-Datei funktioniert es. Bei allen anderen Dokument-Typen geht's nicht. Wer kann mir helfen?
Danke, Matthias