per dbl_click aus Listbox Datei öffnen

Hallo zusammen,
nachdem ich die Problemchen aus meinem letzten Post selber lösen konnte, komme ich aber mit einer neuen Herausforderung.
Ich möchte aus der ListBox per Doppelklick auf einen Eintrag eine Datei im entsprechenden Ordner finden und zumindest markieren bzw. öffnen.
Der Dateiname ist der Eintrag in der 2. Spalte meiner Listbox.
Der Code ist weiter unten, hoffe das Ihr mir anhand dessen helfen könnt.
Er bleibt zum einen mit der Fehlermeldung "Datei nicht gefunden" hängen, wenn ich mit Shell abfrage - Datei habe ich im Verzeichnis zum Test als .txt angelegt.
Zum Anderen bekomme ich die Meldung wenn ich per ShellExecute abfrage "Sub oder Function nicht gefunden....".
Gehe ich mit dem Curser über Shell(Path & ListBox1.List(n, 2)), zeigt er mir den richtigen Pfad und auch den korrekten Dateinamen.
Wo liegt hier mein Fehler?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Path
Dim n
Path = "T:\Qualitätsmanagement\Aufzeichnungen\Änderungen_Sondergenehmigungen\"
For n = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(n) = True Then
Shell (Path & ListBox1.List(n, 2))
'ShellExecute (0, "open", Path & ListBox1.List(n, 2), "", "", SW_Hide)
End If
Next
End Sub

Danke vorab schon mal und viele Grüße Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hWnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim Path Dim n Path = "T:\Qualitätsmanagement\Aufzeichnungen\änderungen_Sondergenehmigungen\" For n = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(n) = True Then ShellExecute 0&, "Open", Path & ListBox1.List(n, 2), 0, 0, &H9& '9=SW_RESTORE End If Next End Sub

Hallo Andreas,
da die Funktion Shellexecute zur Windows-API gehört, gibt sie zwar einen Fehlercode zurück, den man auswerten kann. Sie erzeugt aber bei Versagen keinen Excelfehler. Deshalb raucht das Programm darüber hinweg. In deinem Beispiel fehlt der vollständige Pfad (hier kein Suffix).
Da dies unbekannt ist, müssen wir erst das Suffix ermitteln. Über Dir ermitteln wir die erste (un hoffentlich einzige) passende Datei und können nun Shellexecute anwenden.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

 Dim Path As String, sDatei As String

 Dim n As Integer

 Path = "T:&bsol;Qualitätsmanagement&bsol;Aufzeichnungen&bsol;änderungen_Sondergenehmigungen&bsol;"

 For n = 0 To ListBox1.ListCount - 1

     If ListBox1.Selected(n) = True Then

       sDatei = Dir(Path & ListBox1.List(n, 2) & "*")  'Festellen, ob es eine solche Datei gibt

       If sDatei <> "" Then                             'Wenn geufnden => öffnen

          ShellExecute 0&, "Open", Path & sDatei, 0, 0, &H9&

       End If

     End If

  Next n

End Sub

viele Grüße aus Freigericht
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

per dbl_click aus Listbox Datei öffnen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

24 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

per dbl_click aus Listbox Datei öffnen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

24 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread