ich hab wieder mal was.
Und zwar versuche ich aus einer Listbox heraus Dateien (speziell PDF Dateien) zu öffnen.
Hier die Excel-Datei: https://www.herber.de/bbs/user/155070.xlsm
Verwende folgenden Code für das Öffnen der Dateien dafür:
Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.DisplayAlerts = False
Dim Pfad As String
Pfad = "C:\Temp\"
ActiveWorkbook.FollowHyperlink Pfad & ListBox1.Text
Application.DisplayAlerts = True
End Sub
Die DisplayAlerts sind dafür da, da diese Meldung immer auftaucht. Ich kann keine AddIns deaktivieren oder andere Lösungsmöglichkeiten nutzen, um dieses Problem zu beheben.
Das Ding aber ist. Die Datei die ich auswähle öffnet sich trotzdem.
Also der Code funktioniert, nur es dauert aufgrund des Fehlers fast 30 Sekunden oder mehr bis sich die Datei öffnet.
Gibt es alternative Möglichkeiten?
Gruß
Max